Correct in placement ordering (was using room id)

src/Dodge/Layout.hs

@@ -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)

src/Dodge/Room/Tutorial.hs

@@ -125,7 +125,7 @@ tutRooms is = do
                 [ treeFromPost [triggerDoorRoom i] r1
                 , treeFromPost [triggerDoorRoom j] r2
                 , bcor
-                , treeFromPost [triggerDoorRoom k] r2
+                , treeFromPost [triggerDoorRoom k & rmInPmnt . ix 0 . _1 .~ 1] r2
                 ]
   where
     ss =