Add log when generating layout

src/Dodge/Room/LongDoor.hs

@@ -1,4 +1,4 @@
---{-# LANGUAGE TupleSections #-}
+{-# LANGUAGE TupleSections #-}
 {- | Rooms containing long doors, probably with a big reveal behind them.
  -}
 module Dodge.Room.LongDoor where
@@ -142,10 +142,10 @@ slowDoorRoom = do
     proom <- southPillarsRoom x y h
     addButtonSlowDoor x h (proom & rmPmnts %~ (++ (crits ++ barrels)))
 
-slowDoorRoomRunPast :: RandomGen g => State g (SubCompTree Room)
+slowDoorRoomRunPast :: RandomGen g => State g (LabSubCompTree Room)
 slowDoorRoomRunPast = do
     r <- slowDoorRoom
-    return $ treeFromTrunk [PassDown door] $ Node (PassDown r)
+    (return $ treeFromTrunk [PassDown door] $ Node (PassDown r)
         [ singleUseAll door
         , return (UseLabel 0 $ door & rmConnectsTo .~ S.member InLink)
-        ]
+        ] ) <&> (,TreeSubLabelling "slowDoorRoomRunPast" Nothing)