Correct room link position numbering

src/Dodge/Room/Room.hs

@@ -181,7 +181,7 @@ rot90Around cen p = cen +.+ vNormal (p -.- cen)
 roomMiniIntro :: RandomGen g => State g (SubCompTree Room)
 roomMiniIntro = do
     midroom <- join $ takeOne [miniTree2,glassLesson]
-    return $ chainUses $ [return $ UseAll door, midroom,return $ UseAll corridor]
+    return $ chainUses [return $ UseAll door, midroom,return $ UseAll corridor]
 
 roomCenterPillar :: RandomGen g => State g Room
 roomCenterPillar = changeLinkTo ((\p -> dist p (V2 120 0) < 10) . fst) 
@@ -226,6 +226,7 @@ roomNgon n x = defaultRoom
     , _rmPmnts = []
     , _rmBound = [poly]
     , _rmFloor = [makeTileFromPoly poly 9]
+    , _rmName = show n ++ "gon"
     }
   where 
     rot = 2*pi / fromIntegral n