Commit before extending selection sections: overlapping elements

2023-05-19 13:38:21 +01:00
parent 2f0bb5115b
commit ac87621640
13 changed files with 131 additions and 115 deletions
@@ -19,7 +19,7 @@ import RandomHelp
 roomsContaining :: RandomGen g => [Creature] -> [Item] -> State g (MetaTree Room String)
 roomsContaining crs its = tToBTree str <$> roomsContaining' crs its
  where
-    str = "roomsContaining " ++ concatMap _crName crs ++ concatMap (head . itemDisplay) its
+    str = "roomsContaining " ++ concatMap _crName crs ++ concatMap (head . basicItemDisplay) its

 roomsContaining' :: RandomGen g => [Creature] -> [Item] -> State g (Tree Room)
 roomsContaining' crs its = do