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
@@ -53,7 +53,7 @@ roomThenCorridor theRoom = fmap
    (shuffleLinks corridor)

 {- | Create a random room tree structure from a list of annotations.  -}
-anoToRoomTree :: [Annotation] -> State StdGen (LabSubCompTree Room)
+anoToRoomTree :: [Annotation] -> State StdGen (Room -> Maybe ([String],Room), Tree Room)
 anoToRoomTree anos = case anos of
    [AnoApplyInt i f] -> f i
 --    [AnoApplyInt' i f str] -> f i <&> (,TreeSubLabelling str Nothing)