1 files changed, 10 insertions, 0 deletions

diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs
index 17a6927..3064dc5 100644
--- a/Data/OpenPGP.hs
+++ b/Data/OpenPGP.hs
@@ -845,6 +845,16 @@ parse_packet tag = fmap (UnsupportedPacket tag) getRemainingByteString
 
 -- | Helper method for fingerprints and such
 fingerprint_material :: Packet -> [B.ByteString]
+fingerprint_material p | version p == 5 =
+        [
+                B.singleton 0x9A,
+                encode (10 + fromIntegral (B.length material) :: Word32),
+                B.singleton 5, encode (timestamp p), encode (key_algorithm p),
+                encode (fromIntegral (B.length material) :: Word32),
+                material
+        ]
+        where
+        material = B.concat $ encode_public_key_material p
 fingerprint_material p | version p == 4 =
         [
                 B.singleton 0x99,