1 files changed, 2 insertions, 0 deletions
diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs
index 5d2ab2f..0e1150f 100644
--- a/Data/OpenPGP.hs
+++ b/Data/OpenPGP.hs
@@ -932,6 +932,8 @@ instance BINARY_CLASS Message where
        put (Message xs) = mapM_ put xs
        get = fmap Message listUntilEnd
+instance Semigroup Message where
+    (<>) = mappend
 instance Monoid Message where
        mempty = Message []
        mappend (Message a) (Message b) = Message (a ++ b)

diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs index 5d2ab2f..0e1150f 100644 --- a/Data/OpenPGP.hs +++ b/Data/OpenPGP.hs
@@ -932,6 +932,8 @@ instance BINARY_CLASS Message where
932	put (Message xs) = mapM_ put xs	932	put (Message xs) = mapM_ put xs
933	get = fmap Message listUntilEnd	933	get = fmap Message listUntilEnd
934		934
		935	instance Semigroup Message where
		936	(<>) = mappend
935	instance Monoid Message where	937	instance Monoid Message where
936	mempty = Message []	938	mempty = Message []
937	mappend (Message a) (Message b) = Message (a ++ b)	939	mappend (Message a) (Message b) = Message (a ++ b)