nybble
/
waterdeep
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

clean up excess whitespace

This commit is contained in:
Jesse D. McDonald 2014-04-08 21:41:56 -05:00
parent d2d00c135f
commit fe3c7e54e7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Waterdeep/Logic.hs
View File

@ -105,11 +105,11 @@ waterdeepGame = do
beginRound :: Int -> Waterdeep () beginRound :: Int -> Waterdeep ()
beginRound round = do beginRound round = do
gameCurrentRound .= round gameCurrentRound .= round
gameCurrentPlayer <~ use gameFirstPlayer gameCurrentPlayer <~ use gameFirstPlayer
gameBasicBuildings . traverse . buildingAgents .= [] gameBasicBuildings . traverse . buildingAgents .= []
gameAdvancedBuildings . traverse . buildingAgents .= [] gameAdvancedBuildings . traverse . buildingAgents .= []
gameBuildersHall . traverse . buildingAgents .= [] gameBuildersHall . traverse . buildingAgents .= []
gameBuildersHall . traverse . buildingAccumulation += 1 gameBuildersHall . traverse . buildingAccumulation += 1
players <- IM.size <$> use gamePlayers players <- IM.size <$> use gamePlayers
forM_ [1..players] $ \p -> do forM_ [1..players] $ \p -> do