Improve placementspots

2022-03-12 10:35:14 +00:00
parent 33718ea94b
commit d340fd73c3
4 changed files with 29 additions and 11 deletions
@@ -128,7 +128,8 @@ doAfterPlacement pmntis gw = gRandify gw $ do
    return $ newgw & gRooms . ix i .~ rm

 doInPlacements :: ( IM.IntMap [Placement],GenWorld) -> GenWorld
-doInPlacements (im,w) = let (gw,rms) = mapAccumR (doRoomInPlacements im) w (_gRooms w)
+doInPlacements (im,w) = 
+    let (gw,rms) = mapAccumR (doRoomInPlacements im) w (_gRooms w)
    in gw {_gRooms = rms}

 doRoomInPlacements :: IM.IntMap [Placement] -> GenWorld -> Room -> (GenWorld, Room)