RosettaCodeData/Task/Parametric-polymorphism/Haskell/parametric-polymorphism-2.hs

instance Functor Tree where
    fmap f Empty        = Empty
    fmap f (Node x l r) = Node (f x) (fmap f l) (fmap f r)