justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Work on placements

Browse Source
This commit is contained in:
justin
2025-09-23 12:59:28 +01:00
parent a9ecd7de2e
commit ef90e5702b
3 changed files with 59 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Layout.hs
-1
View File
@@ -109,7 +109,6 @@ doIndividualPlacements gw =
in gw' & genRooms .~ rms
doRoomPlacements :: GenWorld -> Room -> (GenWorld, Room)
--doRoomPlacements w rm = foldl' (\wr -> fst . placeSpot wr) (w, rm) $ _rmPmnts rm
doRoomPlacements w rm = foldl' (\wr -> fst . placeSpot wr) (w, rm & rmPmnts .~ mempty)
$ _rmPmnts rm