Help older GHCs a bit by providing a type signature.

Author: svenpanne

examples/Misc/SmoothOpenGL3.hs

@@ -160,7 +160,8 @@ myInit = do
 
 dumpInfo :: IO ()
 dumpInfo = do
-   let dump message var = putStrLn . ((message ++ ": ") ++) =<< get var
+   let dump :: String -> GettableStateVar String -> IO ()
+       dump message var = putStrLn . ((message ++ ": ") ++) =<< get var
    dump "Vendor" vendor
    dump "Renderer" renderer
    dump "Version" glVersion