Suguivy
/
roguelike
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Cleaned the code again

This commit is contained in:
Ivy 2021-02-18 20:36:11 +01:00
parent 59fd2ce561
commit d1e7fa7956
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Action.hs
View File

@ -3,7 +3,6 @@
module Action where module Action where
import Graphics.Vty.Input import Graphics.Vty.Input
import Control.Applicative
import Data.Maybe import Data.Maybe
import Linear.V2 import Linear.V2
@ -25,4 +24,4 @@ bindings =
] ]
eventToAction :: Event -> Action eventToAction :: Event -> Action
eventToAction e = fromJust $ lookup e bindings <|> Just None eventToAction e = fromMaybe None (lookup e bindings)