Rework annotations

2022-06-12 13:38:23 +01:00
parent 8b4b6de0c0
commit 2ccb26b289
16 changed files with 161 additions and 154 deletions
@@ -15,7 +15,7 @@ import Geometry

 import Data.List

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