Move towards working implementation of attachment tree ammo

2024-09-14 10:44:35 +01:00
parent 51e133ebc1
commit cde7bc9aef
13 changed files with 496 additions and 351 deletions
@@ -49,4 +49,6 @@ instance Functor (LabelDoubleTree b) where
    fmap f (LDT x l r) = LDT (f x) (fmap (second $ fmap f) l) (fmap (second $ fmap f) r)

 makeLenses ''DoubleTree
+makeLenses ''LabelDoubleTree
 deriveJSON defaultOptions ''DoubleTree
+deriveJSON defaultOptions ''LabelDoubleTree