tdpeuter/2022FuncProg-project3-RPGEngine
tdpeuter/2022FuncProg-project3-RPGEngine
Archived
1
Fork 0
Code Issues Pull requests Releases Activity

#6 Win/End state #8 End screen #9 level selection

Browse source
This commit is contained in:
Tibo De Peuter 2022-12-22 16:25:29 +01:00
parent becd305e01
commit 5cc96cbdba
10 changed files with 53 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lib/RPGEngine/Input/Lose.hs
View file

@ -2,11 +2,16 @@ module RPGEngine.Input.Lose
( handleInputLose
) where
import RPGEngine.Input.Core (InputHandler)
import RPGEngine.Input.Core (InputHandler, handleAnyKey)
import RPGEngine.Data (Game)
import RPGEngine.Data (Game(..), State(..))
------------------------------ Exported ------------------------------
handleInputLose :: InputHandler Game
handleInputLose = undefined
handleInputLose = handleAnyKey retry
----------------------------------------------------------------------
retry :: Game -> Game
retry g@Game{ state = Lose{ restart = restart }} = g{ state = restart }