Polymorphise meta tree labels

2022-06-13 15:22:15 +01:00
parent 31e7f4290e
commit 7a07fc97c2
19 changed files with 67 additions and 97 deletions
@@ -15,7 +15,7 @@ import Geometry

 import Data.List

-roomsContaining :: RandomGen g => [Creature] -> [Item] -> State g (MetaTree Room)
+roomsContaining :: RandomGen g => [Creature] -> [Item] -> State g (MetaTree Room String)
 roomsContaining crs its = do
    endroom <- join $ takeOne
        [ randomFourCornerRoomCrsIts crs its