diff options
Diffstat (limited to 'lib/Transforms.hs')
-rw-r--r-- | lib/Transforms.hs | 2 |
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 |