projects
/
haskell-directory.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added notMember to Data.IntSet and Data.IntMap
[haskell-directory.git]
/
Data
/
Tree.hs
diff --git
a/Data/Tree.hs
b/Data/Tree.hs
index
fec5856
..
bc103b8
100644
(file)
--- 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
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
instance Traversable Tree where
traverse f (Node x ts) = Node <$> f x <*> traverse (traverse f) ts