2022FuncProg-project3-RPGEngine/lib/RPGEngine/Input/Lose.hs

module RPGEngine.Input.Lose
( handleInputLose
) where

import RPGEngine.Input.Core (InputHandler, handleAnyKey)

import RPGEngine.Data (Game(..), State(..))

------------------------------ Exported ------------------------------

handleInputLose :: InputHandler Game
handleInputLose = handleAnyKey retry

----------------------------------------------------------------------

retry :: Game -> Game
retry g@Game{ state = Lose{ restart = restart }} = g{ state = restart }