Add log when generating layout

src/Dodge/LockAndKey.hs

@@ -1,3 +1,4 @@
+{-# LANGUAGE TupleSections #-}
 module Dodge.LockAndKey where
 import Dodge.Data
 import Dodge.Tree
@@ -8,6 +9,7 @@ import Dodge.Creature
 import Dodge.Item.Craftable
 import Dodge.Item.Weapon.BulletGun.Rod
 import Dodge.Item
+import LensHelp
 --import Dodge.Item.Equipment
 
 import System.Random
@@ -18,7 +20,7 @@ bossKeyItems =
     [(return . UseAll <$> bossRoom autoCrit, takeOne [PISTOL])
     ]
 
-lockRoomKeyItems :: RandomGen g => [ (Int -> State g (SubCompTree Room) , State g CombineType ) ]
+lockRoomKeyItems :: RandomGen g => [ (Int -> State g (LabSubCompTree Room) , State g CombineType ) ]
 lockRoomKeyItems = 
     [(lasCenSensEdge, takeOne [LAUNCHER,LASGUN,SPARKGUN,FLATSHIELD] )
     ,(sensorRoomRunPast Electrical, takeOne [STATICMODULE,SPARKGUN] )
@@ -31,7 +33,7 @@ lockRoomKeyItems =
     ,(keyCardRoomRunPast 0, return (KEYCARD 0))
     ]
 
-itemRooms :: RandomGen g => [(CombineType, State g (SubCompTree Room))]
+itemRooms :: RandomGen g => [(CombineType, State g (LabSubCompTree Room))]
 itemRooms = 
     [ (LAUNCHER , join $ takeOne 
         [corridorBoss launcherCrit
@@ -95,9 +97,10 @@ someCrits = do
 --    return $ roomsContaining crits its
 
 
-corridorBoss :: RandomGen g => Creature -> State g (SubCompTree Room)
+corridorBoss :: RandomGen g => Creature -> State g (LabSubCompTree Room)
 corridorBoss cr = do
     endroom <- bossRoom cr
-    return $ treeFromPost (replicate 5 $ PassDown corridor) 
+    (return $ treeFromPost (replicate 5 $ PassDown corridor) 
                             (PassDown endroom)
+        ) <&> (,TreeSubLabelling "corridorBoss" Nothing)