graninas/Hydra
1
1
Fork 0
mirror of https://github.com/graninas/Hydra.git synced 2024-12-26 18:43:41 +03:00
Code Issues Projects Releases Wiki Activity

wormholes to next

Browse Source
This commit is contained in:
Default 2020-07-20 11:20:10 -04:00
parent 120f5ed29d
commit 8684dd1b75
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -153,8 +153,8 @@ getGameState :: AppState -> LangL GameState
getGameState st = readVarIO $ st ^. gameState getGameState st = readVarIO $ st ^. gameState
nextWormhole :: Wormholes -> Int -> Int nextWormhole :: Wormholes -> Int -> Int
nextWormhole wms n | (n + 1 < Map.size wms) = n + 1 nextWormhole wms n | (n + 1 <= Map.size wms) = n + 1
| otherwise = 0 | otherwise = 1
executeWormhole :: AppState -> Int -> LangL () executeWormhole :: AppState -> Int -> LangL ()
executeWormhole st prevWormhole = do executeWormhole st prevWormhole = do