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

Polymorphise meta tree labels

Browse Source
This commit is contained in:
justin
2022-06-13 15:22:15 +01:00
parent 31e7f4290e
commit 7a07fc97c2
19 changed files with 67 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Annotation/Data.hs
+7 -4
View File
@@ -9,14 +9,17 @@ import Dodge.Tree.Compose.Data
import Control.Monad.State
import Control.Lens
import System.Random
type MTRS = MetaTree Room String
data Annotation
= ModifyTree (MetaTree Room -> MetaTree Room) Annotation
= ModifyTree (MetaTree Room String -> MetaTree Room String) Annotation
| OnwardList [Annotation]
| IntAnno (Int -> Annotation)
| SpecificRoom (State StdGen (MetaTree Room))
| SpecificRoom (State StdGen (MetaTree Room String))
| PassthroughLockKeyLists
[(Int -> State StdGen (MetaTree Room), State StdGen ItemBaseType)]
[(ItemBaseType, State StdGen (MetaTree Room))]
[(Int -> State StdGen (MetaTree Room String), State StdGen ItemBaseType)]
[(ItemBaseType, State StdGen (MetaTree Room String))]
Int
makeLenses ''Annotation