Test for Graphics.UI.SDL (for SDL binding library on hackage)

gistfile1.hs

import qualified Graphics.UI.SDL as SDL
import qualified Graphics.UI.SDL.Events as E

main :: IO ()
main = do
     SDL.init [SDL.InitEverything]
     SDL.setVideoMode 640 480 32 []
     SDL.setCaption "Video Test!" "video test"
     eventLoop
     SDL.quit
     print "done"
 where
     eventLoop = SDL.waitEventBlocking >>= checkEvent
     checkEvent (E.KeyUp _) = return ()
     checkEvent _         = eventLoop