From: ross <unknown>
Date: Tue, 25 Oct 2005 09:29:47 +0000 (+0000)
Subject: [project @ 2005-10-25 09:29:47 by ross]
X-Git-Tag: Initial_conversion_from_CVS_complete~32
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=ba19f070fdd38e0746ceb779670a35d1f393f1cd;p=haskell-directory.git

[project @ 2005-10-25 09:29:47 by ross]
add Monoid instance
---

diff --git a/Data/Sequence.hs b/Data/Sequence.hs
index 80c42d3..c68a6ad 100644
--- a/Data/Sequence.hs
+++ b/Data/Sequence.hs
@@ -81,6 +81,7 @@ import Prelude hiding (
 	reverse)
 import qualified Data.List (foldl')
 import Control.Monad (MonadPlus(..), liftM2)
+import Data.Monoid (Monoid(..))
 import Data.FunctorM
 import Data.Typeable
 
@@ -160,6 +161,10 @@ instance Read a => Read (Seq a) where
 		return (fromList xs,t)
 #endif
 
+instance Monoid (Seq a) where
+	mempty = empty
+	mappend = (><)
+
 #include "Typeable.h"
 INSTANCE_TYPEABLE1(Seq,seqTc,"Seq")