From 919a4af08e4fe8818cde6d2cfee15ba0303ce999 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Tue, 19 May 2020 22:58:05 -0400
Subject: Default signature version to match key version.

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

diff --git a/Data/OpenPGP/Util/Sign.hs b/Data/OpenPGP/Util/Sign.hs
index 1af6053..5fb926f 100644
--- a/Data/OpenPGP/Util/Sign.hs
+++ b/Data/OpenPGP/Util/Sign.hs
@@ -134,7 +134,7 @@ unsafeSign keys over hsh keyid timestamp g = (over {OpenPGP.signatures_over = [s
         (OpenPGP.hash_head s) -- FIXME: This is not right.
         (map OpenPGP.MPI final)
     findSigOrDefault Nothing  = OpenPGP.signaturePacket
-        4
+        (OpenPGP.version k)
         defaultStype
         (OpenPGP.key_algorithm k) -- force to algo of key
         hsh
-- 
cgit v1.2.3