Continue work on generation annotations

2022-06-12 14:37:56 +01:00
parent 2ccb26b289
commit eeec9248bb
4 changed files with 25 additions and 12 deletions
@@ -14,7 +14,8 @@ data Annotation
 --    | AirlockAno
    PadWith Room Annotation
    | OnwardList [Annotation]
-    | IntAnno Int (Int -> Annotation)
+--    | IntAnno Int (Int -> Annotation)
+    | IntAnno' (Int -> Annotation)
 --    | OrAno [[Annotation]]
    | SpecificRoom (State StdGen (MetaTree Room))
    | AnoApplyInt Int (Int -> State StdGen (LabTree Room))