diff options
| author | Joe Crayne <joe@jerkface.net> | 2019-07-01 07:59:21 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2019-07-01 09:19:56 -0400 |
| commit | 72cbb1771ee7a36726eda569ada2a98e00066b86 (patch) | |
| tree | dda0c09f6d74ca5099ab2e41279469b734cf3476 | |
| parent | 595e1bec3dda5f04d58a4c94d1f3c6da0e256061 (diff) | |
Added semigroup instance.
| -rw-r--r-- | Data/OpenPGP.hs | 2 |
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 | |||
| 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) |