Allow for random choice between placements in different rooms

2021-11-26 12:20:20 +00:00
parent aad79bdf25
commit 123bcd2c94
27 changed files with 260 additions and 191 deletions
@@ -73,7 +73,7 @@ placeLineBlock
    -> GenWorld 
    -> (Int, GenWorld)
 placeLineBlock basePane bm blockWidth depth a b gw = ( 0 
-    , gw & gWorld .~ (removePathsCrossing a b $ foldr insertWall (insertBlocks w) listWalls)
+    , gw & gWorld .~ removePathsCrossing a b (foldr insertWall (insertBlocks w) listWalls)
    )
  where 
    w = _gWorld gw