Use mapM_ for Message put

1 files changed, 1 insertions, 4 deletions

diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs
index 818c125..06aa930 100644
--- a/Data/OpenPGP.hs
+++ b/Data/OpenPGP.hs
@@ -554,10 +554,7 @@ instance Binary CompressionAlgorithm where
 -- A message is encoded as a list that takes the entire file
 newtype Message = Message [Packet] deriving (Show, Read, Eq)
 instance Binary Message where
-        put (Message []) = return ()
-        put (Message (x:xs)) = do
-                put x
-                put (Message xs)
+        put (Message xs) = mapM_ put xs
         get = fmap Message listUntilEnd
 
 -- | Extract all signature and data packets from a 'Message'