summaryrefslogtreecommitdiff
path: root/Data/OpenPGP/Util/Sign.hs
diff options
context:
space:
mode:
authorJoe Crayne <joe@jerkface.net>2019-07-15 18:49:22 -0400
committerJoe Crayne <joe@jerkface.net>2019-07-15 18:49:42 -0400
commitd6e03020851601668cf5419950ca0cc49e54c42f (patch)
tree92b92842fab5563496d2e0f65a28c3343de87050 /Data/OpenPGP/Util/Sign.hs
parentbeed56fec5bbef22f198fd99e05873080313bdae (diff)
Switched fingerprint to a wrapped ByteString.
Diffstat (limited to 'Data/OpenPGP/Util/Sign.hs')
-rw-r--r--Data/OpenPGP/Util/Sign.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Data/OpenPGP/Util/Sign.hs b/Data/OpenPGP/Util/Sign.hs
index 8663a0d..d96c3a7 100644
--- a/Data/OpenPGP/Util/Sign.hs
+++ b/Data/OpenPGP/Util/Sign.hs
@@ -115,7 +115,7 @@ unsafeSign keys over hsh keyid timestamp g = (over {OpenPGP.signatures_over = [s
115 ([ 115 ([
116 -- Do we really need to pass in timestamp just for the default? 116 -- Do we really need to pass in timestamp just for the default?
117 OpenPGP.SignatureCreationTimePacket $ fromIntegral timestamp, 117 OpenPGP.SignatureCreationTimePacket $ fromIntegral timestamp,
118 OpenPGP.IssuerPacket $ fingerprint k 118 OpenPGP.IssuerPacket $ show $ fingerprint k
119 ] ++ (case over of 119 ] ++ (case over of
120 OpenPGP.KeySignature {} -> [OpenPGP.KeyFlagsPacket { 120 OpenPGP.KeySignature {} -> [OpenPGP.KeyFlagsPacket {
121 OpenPGP.certify_keys = True, 121 OpenPGP.certify_keys = True,