objdemo: pass view matrix from haskell.

1 files changed, 4 insertions, 1 deletions

diff --git a/GLWidget.hs b/GLWidget.hs
index 19ef129..8620c1a 100644
--- a/GLWidget.hs
+++ b/GLWidget.hs
@@ -82,7 +82,10 @@ oopsG e = do
 oops :: String -> IO ()
 oops s = hPutStrLn stderr s
 
-runGLApp :: IsWidget b => (GLArea -> IO b) -> WidgetMethods b -> IO ()
+runGLApp :: IsWidget b => (GLArea -> IO b) -- ^ Initialize a state object that will be passed
+                                           -- to all the event handlers.
+                       -> WidgetMethods b
+                       -> IO ()
 runGLApp mk methods = do
     _ <- Gtk.init Nothing