10 lines
341 B
Haskell
10 lines
341 B
Haskell
-- 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
|