Remove fusePairs, replaces with snapToGrid

2025-10-13 11:33:59 +01:00
parent 6b5090e697
commit c3a0cb0527
2 changed files with 6 additions and 10 deletions
@@ -50,7 +50,7 @@ generateLevelFromRoomList gr' w =
  where
    (_, path) = pairsToGraph pairPath'
    pairPath = foldMap _rmPath rs
-    pairPath' = fusePairs pairPath
+    pairPath' = snapToGrid pairPath
    rs = map doRoomShift $ IM.elems rs'
    rs' = mapM shuffleRoomPos gr' & evalState $ _randGen w