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

1 files changed, 4 insertions, 3 deletions

diff --git a/Codec/Encryption/OpenPGP/ASCIIArmor/Decode.hs b/Codec/Encryption/OpenPGP/ASCIIArmor/Decode.hs
index 2383ff3..64f7236 100644
--- a/Codec/Encryption/OpenPGP/ASCIIArmor/Decode.hs
+++ b/Codec/Encryption/OpenPGP/ASCIIArmor/Decode.hs
@@ -9,7 +9,7 @@ module Codec.Encryption.OpenPGP.ASCIIArmor.Decode (
  , decodeArmor
 ) where
 
-import Codec.Encryption.OpenPGP.Serialize (getPackets)
+import Codec.Encryption.OpenPGP.Serialize ()
 import Codec.Encryption.OpenPGP.Types
 import Control.Applicative (many, (<|>), (<$>))
 import Data.Attoparsec.ByteString (Parser, many1, string, inClass, notInClass, satisfy, word8, (<?>), parse, IResult(..))
@@ -20,6 +20,7 @@ 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 (get)
 import Data.Serialize.Get (Get, runGet, getWord8)
 import Data.Serialize.Put (runPut, putWord32be)
 import Data.String (IsString, fromString)
@@ -38,9 +39,9 @@ parseArmor = do
     blankishLine <?> "blank line"
     payload <- base64Data <?> "base64 data"
     endLine atype <?> "end line"
-    case runGet getPackets payload of
+    case runGet get payload of
         Left err -> fail err
-        Right packets -> return $ Armor atype headers packets
+        Right packets -> return $ Armor atype headers (unBlock packets)
 
 beginLine :: (Integral a, Read a, Show a) => Parser (ArmorType a)
 beginLine = do