From bc4bde04f1800fcc26cc68bb16bcbd3cb5ebe17b Mon Sep 17 00:00:00 2001 From: Ross Paterson Date: Mon, 6 Feb 2006 09:50:48 +0000 Subject: [PATCH] simplify fmap --- Data/Tree.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/Data/Tree.hs b/Data/Tree.hs index fec5856..bc103b8 100644 --- a/Data/Tree.hs +++ b/Data/Tree.hs @@ -64,10 +64,7 @@ type Forest a = [Tree a] INSTANCE_TYPEABLE1(Tree,treeTc,"Tree") instance Functor Tree where - fmap = mapTree - -mapTree :: (a -> b) -> (Tree a -> Tree b) -mapTree f (Node x ts) = Node (f x) (map (mapTree f) ts) + fmap f (Node x ts) = Node (f x) (map (fmap f) ts) instance Traversable Tree where traverse f (Node x ts) = Node <$> f x <*> traverse (traverse f) ts -- 1.7.10.4