From: Ross Paterson <ross@soi.city.ac.uk>
Date: Mon, 6 Feb 2006 09:50:48 +0000 (+0000)
Subject: simplify fmap
X-Git-Tag: 2007-09-13~419
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bc4bde04f1800fcc26cc68bb16bcbd3cb5ebe17b;p=ghc-base.git

simplify fmap
---

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