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