Add log when generating layout

src/Dodge/Room/Corridor.hs

@@ -59,6 +59,7 @@ corridorN = defaultRoom
     , _rmPath  = pth
     , _rmPmnts    = []
     , _rmBound = [ rectNSWE 50 30 0 40 ]
+    , _rmName = "corridorN"
     }
     where lnks = [uncurry outLink (V2 20 70  ,0)
                  ,uncurry inLink (V2 20 10  ,pi)
@@ -88,6 +89,7 @@ tEast = defaultRoom
     , _rmPath  = concatMap (doublePair . (,) (V2 0 60) . fst) lnks
     , _rmPmnts    = []
     , _rmBound = [ rectNSWE 70 10 0 40 ]
+    , _rmName = "tEast"
     }
   where 
     lnks =
@@ -109,6 +111,7 @@ tWest = defaultRoom
     , _rmPath  = concatMap (doublePair . (V2 0 60 ,) . _rlPos) lnks
     , _rmPmnts    = []
     , _rmBound = [ rectNSWE 70 10 0 40 ]
+    , _rmName = "tWest"
     }
   where 
     lnks =