Restructuring, #9

lib/Input.hs

@@ -0,0 +1,10 @@
+-- Go to the next stage of the Game
+-- setNextState :: Game -> Game
+-- setNextState game = game{ state = newState }
+--     where newState = nextState $ state game
+
+-- -- Get the next state based on the current state
+-- nextState :: State -> State
+-- nextState Menu {} = defaultLvlSelect
+-- nextState Pause {} = Playing
+-- nextState _ = Menu