1 files changed, 3 insertions, 0 deletions

diff --git a/Data/OpenPGP/Util/Fingerprint.hs b/Data/OpenPGP/Util/Fingerprint.hs
index c1d8fef..d88661b 100644
--- a/Data/OpenPGP/Util/Fingerprint.hs
+++ b/Data/OpenPGP/Util/Fingerprint.hs
@@ -41,15 +41,18 @@ hex (Fingerprint bs) = hexify bs
 -- <http://tools.ietf.org/html/rfc4880#section-12.2>
 fingerprint :: OpenPGP.Packet -> Fingerprint
 fingerprint p
+    | OpenPGP.version p == 5 = Fingerprint $ sha256 material
     | OpenPGP.version p == 4 = Fingerprint $ sha1 material
     | OpenPGP.version p `elem` [2, 3] = Fingerprint $ md5 material
     | otherwise = error "Unsupported Packet version or type in fingerprint"
     where
 
 #if defined(VERSION_cryptonite)
+    sha256 x = Bytes.convert (hashlazy x :: Digest SHA256)
     sha1 x = Bytes.convert (hashlazy x :: Digest SHA1)
     md5 x = Bytes.convert (hashlazy x :: Digest MD5)
 #else
+    -- TODO: SHA256 (or drop support for non-cryptonite)
     sha1 = SHA1.hashlazy
     md5 = MD5.hashlazy
 #endif