diff options
author | joe <joe@jerkface.net> | 2016-09-05 16:27:35 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2016-09-05 16:27:35 -0400 |
commit | 0214686d1beaf10bd0b03b36105f59311111b3df (patch) | |
tree | 803a37bb1c91ab090119d52ac19ab8f14a6bb83b | |
parent | def3d7ad467fc86e2249e67054f66248e1cae07a (diff) |
Oops, confused haddock.
-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 |