summaryrefslogtreecommitdiff
path: root/lib/Transforms.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Transforms.hs')
-rw-r--r--lib/Transforms.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Transforms.hs b/lib/Transforms.hs
index ba85b18..990a5b4 100644
--- a/lib/Transforms.hs
+++ b/lib/Transforms.hs
@@ -515,7 +515,7 @@ showPacket p | isKey p = (if is_subkey p
515 ++ " "++show (key_algorithm p) 515 ++ " "++show (key_algorithm p)
516 ++ case key_nbits p of { 0 -> ""; n -> "("++show n++")" } 516 ++ case key_nbits p of { 0 -> ""; n -> "("++show n++")" }
517 | isUserID p = showPacket0 p ++ " " ++ show (uidkey p) 517 | isUserID p = showPacket0 p ++ " " ++ show (uidkey p)
518 -- | isSignaturePacket p = showPacket0 p ++ maybe "" ((++) (" ^ signed"++sigusage p++": ")) (signature_issuer p) 518 -- isSignaturePacket p = showPacket0 p ++ maybe "" ((++) (" ^ signed"++sigusage p++": ")) (signature_issuer p)
519 | isSignaturePacket p = showPacket0 p ++ maybe "" (" ^ signed: "++) (signature_issuer p) ++ sigusage p 519 | isSignaturePacket p = showPacket0 p ++ maybe "" (" ^ signed: "++) (signature_issuer p) ++ sigusage p
520 | otherwise = showPacket0 p 520 | otherwise = showPacket0 p
521 where 521 where