graninas/Hydra
1
1
Fork 0
mirror of https://github.com/graninas/Hydra.git synced 2024-11-28 13:02:50 +03:00
Code Issues Projects Releases Wiki Activity

Fix of build

Browse Source
This commit is contained in:
Alexander Granin 2020-06-08 17:09:22 +07:00
parent 9a0dd5b5fc
commit 7bbabc8b0a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
app/labyrinth/src/Labyrinth/App.hs
View File

@ -415,10 +415,10 @@ labyrinthApp st = do
cliToken <- cli (onStep st) (onUnknownCommand st) $ do
cmd "help" $ help
cmd "go up" $ onPlayerMove st $ makeMove st DirUp
cmd "go down" $ onPlayerMove st $ makeMove st DirDown
cmd "go left" $ onPlayerMove st $ makeMove st DirLeft
cmd "go right" $ onPlayerMove st $ makeMove st DirRight
cmd "go up" $ onPlayerMove st $ makePlayerMove st DirUp
cmd "go down" $ onPlayerMove st $ makePlayerMove st DirDown
cmd "go left" $ onPlayerMove st $ makePlayerMove st DirLeft
cmd "go right" $ onPlayerMove st $ makePlayerMove st DirRight
cmd "up" $ onPlayerMove st $ makePlayerMove st DirUp
cmd "down" $ onPlayerMove st $ makePlayerMove st DirDown