Make item display universal

src/Dodge/Room/Containing.hs

@@ -1,6 +1,7 @@
 --{-# LANGUAGE TupleSections #-}
 module Dodge.Room.Containing where
 import Dodge.Data
+import Dodge.Item.Display
 import Dodge.Tree
 import Dodge.LevelGen.Data
 import Dodge.PlacementSpot
@@ -16,7 +17,9 @@ import Geometry
 --import Dodge.Item.Equipment
 
 roomsContaining :: RandomGen g => [Creature] -> [Item] -> State g (MetaTree Room String)
-roomsContaining crs its = tToBTree "roomsContaining" <$> roomsContaining' crs its
+roomsContaining crs its = tToBTree str <$> roomsContaining' crs its
+  where
+    str = "roomsContaining "++ concatMap _crName crs ++ concatMap (head . itemDisplay) its
 
 roomsContaining' :: RandomGen g => [Creature] -> [Item] -> State g (Tree Room)
 roomsContaining' crs its = do
@@ -24,6 +27,7 @@ roomsContaining' crs its = do
         [ roomPillarsSquare <&> rmPmnts .++~ crsItmsUnused crs its
         , randomFourCornerRoomCrsIts crs its 
         , tanksRoom crs its
+        , tanksPipesRoom <&> rmPmnts ++.~ crsItmsUnused crs its
         , roomPillarsContaining crs its
         , roomPillarsPassage <&> rmPmnts .++~ crsItmsUnused crs its
         ]