Pass room id rather than room during placement

src/Dodge/Room/Tutorial.hs

@@ -66,7 +66,7 @@ setRoomInt x = do
     i <- nextLayoutInt
     return (i,x & rmPmnts .:~ sps0 (PutWorldUpdate (f i)))
   where
-    f i rm _ = genInts . at i ?~ (rm ^?! rmMID . _Just)
+    f i rid _ gw = gw & genInts . at i ?~ (gw ^?! genRooms . ix rid . rmMID . _Just)
 
 setTreeInts :: Tree Room -> State LayoutVars ([Int],Tree Room)
 setTreeInts x = do