Cleanup

2022-06-19 22:26:34 +01:00
parent 8d81104f5f
commit e838f270f2
2 changed files with 6 additions and 14 deletions
@@ -24,12 +24,12 @@ roomsContaining crs its = tToBTree str <$> roomsContaining' crs its
 roomsContaining' :: RandomGen g => [Creature] -> [Item] -> State g (Tree Room)
 roomsContaining' crs its = do
    endroom <- join $ takeOne
-        [ roomPillarsSquare <&> rmPmnts .++~ crsItmsUnused crs its
+        [ roomPillarsSquare <&> rmPmnts ++.~ crsItmsUnused crs its
        , randomFourCornerRoomCrsIts crs its 
        , tanksRoom crs its
        , tanksPipesRoom <&> rmPmnts ++.~ crsItmsUnused crs its
        , roomPillarsContaining crs its
-        , roomPillarsPassage <&> rmPmnts .++~ crsItmsUnused crs its
+        , roomPillarsPassage <&> rmPmnts ++.~ crsItmsUnused crs its
        ]
    return (pure $ cleatOnward endroom)