projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2005-02-26 12:14:54 by panne]
[ghc-base.git]
/
Data
/
Set.hs
diff --git
a/Data/Set.hs
b/Data/Set.hs
index
4b1e3a9
..
f321abf
100644
(file)
--- a/
Data/Set.hs
+++ b/
Data/Set.hs
@@
-112,7
+112,6
@@
module Data.Set (
) where
import Prelude hiding (filter,foldr,null,map)
) where
import Prelude hiding (filter,foldr,null,map)
-import Data.Monoid
import qualified Data.List as List
import Data.Typeable
import qualified Data.List as List
import Data.Typeable
@@
-506,15
+505,6
@@
instance Ord a => Ord (Set a) where
compare s1 s2 = compare (toAscList s1) (toAscList s2)
{--------------------------------------------------------------------
compare s1 s2 = compare (toAscList s1) (toAscList s2)
{--------------------------------------------------------------------
- Monoid
---------------------------------------------------------------------}
-
-instance Ord a => Monoid (Set a) where
- mempty = empty
- mappend = union
- mconcat = unions
-
-{--------------------------------------------------------------------
Show
--------------------------------------------------------------------}
instance Show a => Show (Set a) where
Show
--------------------------------------------------------------------}
instance Show a => Show (Set a) where