X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FSet.hs;h=f321abf31fe07f55f16c11d3ed0d74d6437dc22d;hb=6cd8e25a9ad88133e04f424b6daf0c6a7db2bba8;hp=4b1e3a93ab406746f000f721c2b2c1ca1d788bbf;hpb=0e8f3500b1e40f2b0291f4d5a9f29052c13fca77;p=ghc-base.git

diff --git a/Data/Set.hs b/Data/Set.hs
index 4b1e3a9..f321abf 100644
--- a/Data/Set.hs
+++ b/Data/Set.hs
@@ -112,7 +112,6 @@ module Data.Set  (
             ) where
 
 import Prelude hiding (filter,foldr,null,map)
-import Data.Monoid
 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) 
 
 {--------------------------------------------------------------------
-  Monoid 
---------------------------------------------------------------------}
-
-instance Ord a => Monoid (Set a) where
-    mempty = empty
-    mappend = union
-    mconcat = unions
-
-{--------------------------------------------------------------------
   Show
 --------------------------------------------------------------------}
 instance Show a => Show (Set a) where