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.GlassLesson where
 import Dodge.RoomLink
 import Dodge.Creature
@@ -54,7 +55,7 @@ glassLesson = do
            , mntLS vShape (V2 180 200) (V3 160 180 50)
            ]
        ]
-glassLessonRunPast :: RandomGen g => State g (SubCompTree Room)
-glassLessonRunPast = f <$> glassLesson
+glassLessonRunPast :: RandomGen g => State g (LabSubCompTree Room)
+glassLessonRunPast = (f <$> glassLesson) <&> (,TreeSubLabelling "glassLessonRunPast" Nothing)
  where
    f (Node r rs) = Node r $ return (UseLabel 0 $ door & rmConnectsTo .~ S.member (OnEdge West)) : rs