Cleanup combining code, flatten modules

2024-10-01 10:01:21 +01:00
parent f69d150e00
commit 87cbaf911f
17 changed files with 143 additions and 173 deletions
@@ -51,8 +51,8 @@ instance Functor (LabelDoubleTree b) where

 instance Bifunctor LabelDoubleTree where
    second = fmap
-    first f (LDT x l r) = LDT x (map (first f . second (first f)) l)
-        (map (first f . second (first f)) r)
+    first f (LDT x l r) = LDT x (map (bimap f (first f)) l)
+        (map (bimap f (first f)) r)

 makeLenses ''DoubleTree
 makeLenses ''LabelDoubleTree