justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Commit before improving logging of annotations

Browse Source
This commit is contained in:
justin
2022-06-12 17:56:28 +01:00
parent eeec9248bb
commit fa1e3ef2f5
6 changed files with 35 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Annotation/Data.hs
+5 -4
View File
@@ -15,12 +15,13 @@ data Annotation
PadWith Room Annotation
| OnwardList [Annotation]
-- | IntAnno Int (Int -> Annotation)
| IntAnno' (Int -> Annotation)
| IntAnno (Int -> Annotation)
-- | OrAno [[Annotation]]
| SpecificRoom (State StdGen (MetaTree Room))
| AnoApplyInt Int (Int -> State StdGen (LabTree Room))
| PassthroughLockKeyLists Int
[(Int -> State StdGen (LabTree Room), State StdGen ItemBaseType)]
[(ItemBaseType, State StdGen (LabTree Room))]
| PassthroughLockKeyLists
[(Int -> State StdGen (MetaTree Room), State StdGen ItemBaseType)]
[(ItemBaseType, State StdGen (MetaTree Room))]
Int
makeLenses ''Annotation