Improve logging

src/Dodge/LockAndKey.hs

@@ -9,7 +9,7 @@ import Dodge.Creature
 import Dodge.Item.Craftable
 import Dodge.Item.Weapon.BulletGun.Rod
 import Dodge.Item
-import LensHelp
+--import LensHelp
 --import Dodge.Item.Equipment
 
 import System.Random
@@ -102,5 +102,5 @@ corridorBoss cr = do
     endroom <- bossRoom cr
     return (treeFromPost (replicate 5 $ PassDown corridor) 
                             (PassDown endroom)
-        ,TreeSubLabelling "corridorBoss" Nothing)
+        ,TreeSubLabelling ("corridorBoss-"++_crName cr) Nothing)