16 lines
No EOL
434 B
Haskell
16 lines
No EOL
434 B
Haskell
module RPGEngine.Input.Win
|
|
( handleInputWin
|
|
) where
|
|
|
|
import RPGEngine.Input.Core (InputHandler, handleAnyKey)
|
|
import RPGEngine.Data (Game (..), State (Menu))
|
|
|
|
------------------------------ Exported ------------------------------
|
|
|
|
handleInputWin :: InputHandler Game
|
|
handleInputWin = handleAnyKey goToMenu
|
|
|
|
----------------------------------------------------------------------
|
|
|
|
goToMenu :: Game -> Game
|
|
goToMenu g = g{ state = Menu } |