From fe3c7e54e760b6a8155e8cd094a251b1da19c832 Mon Sep 17 00:00:00 2001 From: Jesse McDonald Date: Tue, 8 Apr 2014 21:41:56 -0500 Subject: [PATCH] clean up excess whitespace --- src/Waterdeep/Logic.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Waterdeep/Logic.hs b/src/Waterdeep/Logic.hs index ca96ee7..2a6256f 100644 --- a/src/Waterdeep/Logic.hs +++ b/src/Waterdeep/Logic.hs @@ -105,11 +105,11 @@ waterdeepGame = do beginRound :: Int -> Waterdeep () beginRound round = do - gameCurrentRound .= round + gameCurrentRound .= round gameCurrentPlayer <~ use gameFirstPlayer - gameBasicBuildings . traverse . buildingAgents .= [] + gameBasicBuildings . traverse . buildingAgents .= [] gameAdvancedBuildings . traverse . buildingAgents .= [] - gameBuildersHall . traverse . buildingAgents .= [] + gameBuildersHall . traverse . buildingAgents .= [] gameBuildersHall . traverse . buildingAccumulation += 1 players <- IM.size <$> use gamePlayers forM_ [1..players] $ \p -> do