From a9e3593f6f45638447de0238a48f15883324321d Mon Sep 17 00:00:00 2001
From: Stephen Paul Weber <singpolyma@singpolyma.net>
Date: Wed, 2 Jan 2013 11:41:06 -0500
Subject: [PATCH] Monoid instance for Message

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

diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs
index 9a50fa0..0df2e98 100644
--- a/Data/OpenPGP.hs
+++ b/Data/OpenPGP.hs
@@ -67,6 +67,7 @@ import Numeric
 import Control.Monad
 import Control.Arrow
 import Control.Applicative
+import Data.Monoid
 import Data.Bits
 import Data.Word
 import Data.Char
@@ -883,6 +884,10 @@ instance BINARY_CLASS Message where
 	put (Message xs) = mapM_ put xs
 	get = fmap Message listUntilEnd
 
+instance Monoid Message where
+	mempty = Message []
+	mappend (Message a) (Message b) = Message (a ++ b)
+
 -- | Extract all signature and data packets from a 'Message'
 signatures_and_data :: Message -> ([Packet], [Packet])
 signatures_and_data (Message ((CompressedDataPacket {message = m}):_)) =