18 lines
No EOL
560 B
Haskell
18 lines
No EOL
560 B
Haskell
module RPGEngine.Input.Paused
|
|
( handleInputPaused
|
|
) where
|
|
|
|
import RPGEngine.Input.Core (InputHandler, handleAnyKey)
|
|
import RPGEngine.Data (Game (..), State (continue, Paused))
|
|
|
|
------------------------------ Exported ------------------------------
|
|
|
|
handleInputPaused :: InputHandler Game
|
|
handleInputPaused = handleAnyKey continueGame
|
|
|
|
----------------------------------------------------------------------
|
|
|
|
continueGame :: Game -> Game
|
|
continueGame g@Game{ state = Paused{ continue = state }} = newGame
|
|
where newGame = g{ state = state }
|
|
continueGame g = g |