Add log when generating layout

2022-05-20 21:15:44 +01:00
parent 20d041fc59
commit da302aad0c
16 changed files with 155 additions and 94 deletions
@@ -1,3 +1,4 @@
+{-# LANGUAGE TupleSections #-}
 module Dodge.Room.Containing where
 import Dodge.Data
 import Dodge.Tree
@@ -14,13 +15,13 @@ import Geometry
 import System.Random
 import Control.Monad.State

-roomsContaining :: RandomGen g => [Creature] -> [Item] -> State g (SubCompTree Room)
+roomsContaining :: RandomGen g => [Creature] -> [Item] -> State g (LabSubCompTree Room)
 roomsContaining crs its = do
    endroom <- join $ takeOne
        [ randomFourCornerRoomCrsIts crs its 
        , tanksRoom crs its
        ]
-    return $ treeFromPost [] $ UseAll endroom
+    (return $ treeFromPost [] $ UseAll endroom) <&> (,TreeSubLabelling "roomsContaining" Nothing)

 pedestalRoom :: RandomGen g => Item -> State g Room
 pedestalRoom it = do