module Main where import Graphics.Gloss.Interface.Pure.Game data World = World { picture :: Picture } main :: IO () main = play (InWindow "Templete" (800, 600) (10, 10)) black 60 initWorld draw handleInput (\_ s -> s ) initWorld :: World initWorld = World { picture = Blank } draw :: World -> Picture draw (World _) = Blank handleInput :: Event -> World -> World handleInput (EventKey k ks _ _) s = s