Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
12 lines (8 sloc) 326 Bytes
module Main where
import Graphics.UI.Fungen
main :: IO ()
main =
let winConfig = ((50,50),(500,300),"Hello, Fungen World! Press Q to quit")
gameMap = colorMap 0.0 0.0 0.0 250 250
bindings = [(Char 'q', Press, \_ _ -> funExit)]
in funInit winConfig gameMap [] () () bindings (return()) Idle []
You can’t perform that action at this time.