Cleanup

2022-06-14 12:55:40 +01:00
parent e1f3a774b2
commit a280bbb787
3 changed files with 9 additions and 33 deletions
@@ -45,7 +45,7 @@ roomC w h = do
            ]
    ntanks <- takeOne [0,0,0,0,0,1,1,1,1,2,3,4]
    thetank <- randomTank <&> plSpot .~ unusedOffPathAwayFromLink 50
-    maybeaddgird <- takeOne [return, addRandomGirderFromWest 0, addRandomGirderFrom North 0]
+    maybeaddgird <- takeOne [return, addRandomGirderFrom West 0, addRandomGirderFrom North 0]
    maybeaddgird =<< (shuffleLinks $ roomRectAutoLinks w h
        & rmLinks %~ 
            ( (setInLinks (\rl -> S.fromList [(FromEdge East) 0,OnEdge South] `S.isSubsetOf` _rlType rl))