Add newtype wrapper for lists for the purpose of avoiding the cereal instance.

1 files changed, 3 insertions, 2 deletions

diff --git a/Codec/Encryption/OpenPGP/ASCIIArmor/Encode.hs b/Codec/Encryption/OpenPGP/ASCIIArmor/Encode.hs
index d08c3c1..c9c9641 100644
--- a/Codec/Encryption/OpenPGP/ASCIIArmor/Encode.hs
+++ b/Codec/Encryption/OpenPGP/ASCIIArmor/Encode.hs
@@ -7,13 +7,14 @@ module Codec.Encryption.OpenPGP.ASCIIArmor.Encode (
    armor
 ) where
 
-import Codec.Encryption.OpenPGP.Serialize (putPackets)
+import Codec.Encryption.OpenPGP.Serialize ()
 import Codec.Encryption.OpenPGP.Types
 import Data.ByteString (ByteString)
 import qualified Data.ByteString as B
 import qualified Data.ByteString.Char8 as BC8
 import qualified Data.ByteString.Base64 as Base64
 import Data.Digest.CRC24 (crc24)
+import Data.Serialize (put)
 import Data.Serialize.Put (runPut, putWord32be)
 import Data.String (IsString, fromString)
 
@@ -44,7 +45,7 @@ armorHeaders ahs = BC8.unlines . map armorHeader $ ahs
         armorHeader (k, v) = k `B.append` BC8.pack ": " `B.append` v
 
 opgpStream :: [Packet] -> ByteString
-opgpStream = runPut . putPackets
+opgpStream = runPut . put . Block
 
 armorData :: ByteString -> ByteString
 armorData = BC8.unlines . wrap76 . Base64.encode