From 72cbb1771ee7a36726eda569ada2a98e00066b86 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Mon, 1 Jul 2019 07:59:21 -0400 Subject: Added semigroup instance. --- Data/OpenPGP.hs | 2 ++ 1 file changed, 2 insertions(+) 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) -- cgit v1.2.3