Defunction-ify item modules, requires more cleanup

src/Dodge/Room/Containing.hs

@@ -24,7 +24,7 @@ roomsContaining crs its = do
         ]
     return (treeFromPost [] $ UseAll endroom
         ,TreeSubLabelling ("roomsContaining-creatures:" ++ intercalate "," (map _crName crs) 
-            ++ "-items:" ++ intercalate "," (map _itName its)) Nothing)
+            ++ "-items:" ++ intercalate "," (map (show . _iyBase . _itType) its)) Nothing)
 
 pedestalRoom :: RandomGen g => Item -> State g Room
 pedestalRoom it = do