Skip to content

Instantly share code, notes, and snippets.

@kindaro

kindaro/Glut.hs

Created October 6, 2019 20:24
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 1 You must be signed in to fork a gist
  • Save kindaro/795997c4e96b396af742b40ad69c4264 to your computer and use it in GitHub Desktop.
Save kindaro/795997c4e96b396af742b40ad69c4264 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Glut.hs
import System.Exit (exitWith, ExitCode(ExitSuccess))
import Graphics.UI.GLUT
main = do
(progName, _args) <- getArgsAndInitialize
initialDisplayMode $= [ SingleBuffered, RGBMode ]
initialWindowSize $= Size 500 500
_ <- createWindow progName
exitWith ExitSuccess
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment