#15 Basic input handling

lib/control/Input.hs

@@ -0,0 +1,23 @@
+module Input
+(
+-- Handle all input for RPG-Engine
+handleAllInput
+) where
+
+import Game
+import State
+import InputHandling
+
+import Graphics.Gloss.Interface.IO.Game
+
+----------------------------------------------------------------------
+
+handleAllInput :: InputHandler Game
+handleAllInput = composeInputHandlers [
+    handleSpecialKey KeySpace setNextState
+    ]
+
+-- Go to the next stage of the Game
+setNextState :: Game -> Game
+setNextState game = game{ state = newState }
+    where newState = nextState $ state game