Trial balloon: Use full path to GLUT framework on Apple platforms.

Author: svenpanne

CHANGELOG.md

@@ -1,6 +1,6 @@
 2.7.0.9
 --------
-* Windows/Linux: The GLUT package compiles without any additional GLUT library now.
+* The GLUT package compiles without any additional library/framework now.
 * Windows: We search for a native freeglut DLL, a MinGW freeglut DLL and a classic GLUT DLL, in that order.
 
 2.7.0.8

GLUT.cabal

@@ -103,8 +103,6 @@ library
   else
     cpp-options: "-DCALLCONV=ccall"
     cc-options: "-DUSE_DLSYM"
-    if os(darwin)
-      frameworks: GLUT
 
 executable BOGLGP01-OnYourOwn1
   if !flag(BuildExamples)

cbits/HsGLUT.c

@@ -48,6 +48,12 @@ hs_GLUT_getProcAddress(const char *name)
 #include <stdlib.h>
 #include <dlfcn.h>
 
+#ifdef __APPLE__
+#define FILENAME "/System/Library/Frameworks/GLUT.framework/GLUT"
+#else
+#define FILENAME "libglut.so"
+#endif
+
 void*
 hs_GLUT_getProcAddress(const char *name)
 {
@@ -56,7 +62,7 @@ hs_GLUT_getProcAddress(const char *name)
 
   if (firstTime) {
     firstTime = 0;
-    handle = dlopen("libglut.so", RTLD_LAZY);
+    handle = dlopen(FILENAME, RTLD_LAZY | RTLD_GLOBAL);
   }
 
   return handle ? dlsym(handle, name) : NULL;