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.LongRoom where
 import Dodge.RoomLink
 import Dodge.Tree
@@ -48,10 +49,10 @@ longRoom = do
                | crx <- [12.5,37.5,62.5] ] ++
        [sPS (V2 25 lampy ) 0 putLamp | lampy <- [20,h-10] ]

-longRoomRunPast :: RandomGen g => State g (SubCompTree Room)
+longRoomRunPast :: RandomGen g => State g (LabSubCompTree Room)
 longRoomRunPast = do
    r <- longRoom
-    return $ treeFromTrunk [PassDown door]
+    (return $ treeFromTrunk [PassDown door]
        (Node (PassDown r)
            [ singleUseAll door
            --, return (UseLabel 0 $ door & rmConnectsTo .~ S.singleton InLink)
@@ -60,3 +61,4 @@ longRoomRunPast = do
                (UseLabel 0 door)
            ]
        )
+        ) <&> (,TreeSubLabelling "longRoomRunPast" Nothing)