@@ -24,7 +24,7 @@ data Tree a w = Leaf a
24 | WithWeight (Tree a w) w
24 | WithWeight (Tree a w) w
25 deriving (Show, Eq, Generic)
25 deriving (Show, Eq, Generic)
27−deriving instance Bifunctor (Tree a w)
27+deriving instance Bifunctor Tree
29mytree :: Tree Int Int
29mytree :: Tree Int Int
30mytree = Fork (WithWeight (Leaf 42) 1)
30mytree = Fork (WithWeight (Leaf 42) 1)