diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2017-05-22 13:13:06 +0100 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-05-22 13:13:06 +0100 |
| commit | 4190149cd01da73eac211230bdfe81dd104c42aa (patch) | |
| tree | 5b725c97ad9c0d8bdeaad94f063730982dd54c44 /Gpg/Wot.hs | |
| parent | 8b450615d0d33cca4d14c6abf59f893d13a1393a (diff) | |
| parent | d27100f7d71a8cf9312e9bb7628c791e0d246917 (diff) | |
| download | debug-me-4190149cd01da73eac211230bdfe81dd104c42aa.tar.gz | |
Merge tag '1.20170520'
tagging package debug-me version 1.20170520
# gpg: Signature made Sat 20 May 2017 22:31:39 BST
# gpg: using RSA key 28A500C35207EAB72F6C0F25DB12DB0FF05F8F38
# gpg: Good signature from "Joey Hess <joeyh@joeyh.name>" [full]
# Primary key fingerprint: E85A 5F63 B31D 24C1 EBF0 D81C C910 D922 2512 E3C7
# Subkey fingerprint: 28A5 00C3 5207 EAB7 2F6C 0F25 DB12 DB0F F05F 8F38
Diffstat (limited to 'Gpg/Wot.hs')
| -rw-r--r-- | Gpg/Wot.hs | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -107,7 +107,7 @@ describeWot (Just ws) (StrongSetAnalysis ss) , theirname ++ " is probably a real person." ] where - theirname = stripEmail (uid (key ws)) + theirname = wotStatName ws sigs = cross_sigs ws ++ other_sigs ws bestconnectedsigs = sortOn rank sigs describeWot Nothing _ = @@ -115,5 +115,8 @@ describeWot Nothing _ = , "Their identity cannot be verified!" ] +wotStatName :: WotStats -> String +wotStatName ws = stripEmail (uid (key ws)) + stripEmail :: String -> String stripEmail = unwords . takeWhile (not . ("<" `isPrefixOf`)) . words |