17 lines
No EOL
480 B
Haskell
17 lines
No EOL
480 B
Haskell
module RPGEngine.Input.Paused
|
|
( handleInputPaused
|
|
) where
|
|
|
|
import RPGEngine.Input.Core ( InputHandler, handleAnyKey )
|
|
|
|
import RPGEngine.Data ( Game (..), State (..) )
|
|
|
|
------------------------------ 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 |