Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
15 lines (11 sloc) 315 Bytes
module DinoRush.Engine.Input where
import KeyState
data Input = Input
{ iSpace :: KeyState Int
, iUp :: KeyState Int
, iDown :: KeyState Int
, iEscape :: KeyState Int
, iQuit :: Bool
} deriving (Show, Eq)
initInput :: Input
initInput = Input initKeyState initKeyState initKeyState initKeyState False