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