diff options
| author | Ross Paterson <ross@soi.city.ac.uk> | 2006-02-06 09:50:48 +0000 |
|---|---|---|
| committer | Ross Paterson <ross@soi.city.ac.uk> | 2006-02-06 09:50:48 +0000 |
| commit | 0aaf0b91b945ae0f4830f65f45d7712c88ae4435 (patch) | |
| tree | 32ce4e2110ca11a307df0633614c5e70780901c6 /libraries | |
| parent | 92e69c58a178a90a5122796f03a582f03deeca02 (diff) | |
| download | haskell-0aaf0b91b945ae0f4830f65f45d7712c88ae4435.tar.gz | |
simplify fmap
Diffstat (limited to 'libraries')
| -rw-r--r-- | libraries/base/Data/Tree.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/libraries/base/Data/Tree.hs b/libraries/base/Data/Tree.hs index fec58569b2..bc103b88f5 100644 --- a/libraries/base/Data/Tree.hs +++ b/libraries/base/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 |