Improve logging

src/Dodge/Room/Containing.hs

@@ -14,6 +14,7 @@ import Geometry
 
 import System.Random
 import Control.Monad.State
+import Data.List
 
 roomsContaining :: RandomGen g => [Creature] -> [Item] -> State g (LabSubCompTree Room)
 roomsContaining crs its = do
@@ -22,7 +23,8 @@ roomsContaining crs its = do
         , tanksRoom crs its
         ]
     return (treeFromPost [] $ UseAll endroom
-        ,TreeSubLabelling "roomsContaining" Nothing)
+        ,TreeSubLabelling ("roomsContaining-creatures:" ++ intercalate "," (map _crName crs) 
+            ++ "-items:" ++ intercalate "," (map _itName its)) Nothing)
 
 pedestalRoom :: RandomGen g => Item -> State g Room
 pedestalRoom it = do