From ba19f070fdd38e0746ceb779670a35d1f393f1cd Mon Sep 17 00:00:00 2001
From: ross <unknown>
Date: Tue, 25 Oct 2005 09:29:47 +0000
Subject: [PATCH] [project @ 2005-10-25 09:29:47 by ross] add Monoid instance

---
 Data/Sequence.hs |    5 +++++
 1 file changed, 5 insertions(+)

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")
 
-- 
1.7.10.4