From cee4108007b2a384f54b4a8943a612fdc3c9f260 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Sun, 10 May 2020 14:05:42 -0400
Subject: Parse v5 secret key packets (draft-ietf-openpgp-rfc4880bis-09).

---
 Data/OpenPGP/Util/Gen.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'Data/OpenPGP/Util')

diff --git a/Data/OpenPGP/Util/Gen.hs b/Data/OpenPGP/Util/Gen.hs
index 713e909..4e629cd 100644
--- a/Data/OpenPGP/Util/Gen.hs
+++ b/Data/OpenPGP/Util/Gen.hs
@@ -143,6 +143,7 @@ buildPacket alg stamp fields =
         key = fields                      :: [(Char,MPI)],
         s2k_useage = 0                    :: Word8,
         s2k = S2K 100 B.empty             :: S2K, -- Unencrypted so meaningless
+        aead_algorithm = Nothing          :: Maybe AEADAlgorithm,
         symmetric_algorithm = Unencrypted :: SymmetricAlgorithm,
         encrypted_data = B.empty          :: B.ByteString,
         is_subkey = True                  :: Bool
-- 
cgit v1.2.3