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