diff options
| author | Joe Crayne <joe@jerkface.net> | 2020-05-10 14:05:42 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2020-05-19 11:59:10 -0400 |
| commit | cee4108007b2a384f54b4a8943a612fdc3c9f260 (patch) | |
| tree | 3f2f476b6bd5af89da0014d97baa39ca67cea7b9 /Data/OpenPGP/Util/Gen.hs | |
| parent | 4bfc6b028527f43d9ae48d24dc2afb5f0db7ad1e (diff) | |
Parse v5 secret key packets (draft-ietf-openpgp-rfc4880bis-09).
Diffstat (limited to 'Data/OpenPGP/Util/Gen.hs')
| -rw-r--r-- | Data/OpenPGP/Util/Gen.hs | 1 |
1 files changed, 1 insertions, 0 deletions
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 = | |||
| 143 | key = fields :: [(Char,MPI)], | 143 | key = fields :: [(Char,MPI)], |
| 144 | s2k_useage = 0 :: Word8, | 144 | s2k_useage = 0 :: Word8, |
| 145 | s2k = S2K 100 B.empty :: S2K, -- Unencrypted so meaningless | 145 | s2k = S2K 100 B.empty :: S2K, -- Unencrypted so meaningless |
| 146 | aead_algorithm = Nothing :: Maybe AEADAlgorithm, | ||
| 146 | symmetric_algorithm = Unencrypted :: SymmetricAlgorithm, | 147 | symmetric_algorithm = Unencrypted :: SymmetricAlgorithm, |
| 147 | encrypted_data = B.empty :: B.ByteString, | 148 | encrypted_data = B.empty :: B.ByteString, |
| 148 | is_subkey = True :: Bool | 149 | is_subkey = True :: Bool |