BROKEN partial redo of room tree composition

2022-06-09 19:17:27 +01:00
parent d8174c7ccc
commit 8fb80f9691
7 changed files with 68 additions and 65 deletions
@@ -100,5 +100,5 @@ initialAnoTree = padSucWithDoors $ treeFromPost
        <&> (,TreeSubLabelling "telRoomLev" Nothing)]

 {- | A test level tree. -}
-initialRoomTree :: State StdGen (Tree (LabSubCompTree Room))
+initialRoomTree :: State StdGen (Tree (Room -> Maybe (String,Room), Tree Room))
 initialRoomTree = mapM anoToRoomTree initialAnoTree