次のプログラム:
import Graphics.Rendering.OpenGL
import Graphics.UI.GLUT
main = do
(progname, _) <- getArgsAndInitialize
createWindow "Hello World"
mainLoop
次のコマンドでコンパイル:
ghc -package GLUT HelloWorld.hs -o HelloWorld
このチュートリアルで説明されているように、OSX Lion での実行に失敗し、次のエラー メッセージが表示されます。
2013-09-07 20:31:20.372 aff[8561:60b] GLUT Warning: The following is a new check for GLUT 3.0; update your code.
2013-09-07 20:31:20.373 aff[8561:60b] GLUT Fatal Error: redisplay needed for window 1, but no display callback.