Correct in placement ordering (was using room id)

2025-09-24 23:09:28 +01:00
parent f51868c84c
commit 1f14f3d0c3
8 changed files with 23 additions and 24 deletions
@@ -81,7 +81,7 @@ shuffleRoomPos rm = do

 doInPlacements :: GenWorld -> GenWorld
 doInPlacements w = foldl' (\gw (i,(_,f)) -> placeSpot' i gw (f gw)) w
-    . sortOn fst
+    . sortOn (fst.snd)
    $ foldMap g $ w ^. genRooms
  where
    g rm = (rm^?! rmMID . _Just,) <$> (rm ^. rmInPmnt)