diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-05-04 18:51:36 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-05-04 18:58:31 -0400 |
commit | 699687f503c63541a6e28501fa5f523b89c1915b (patch) | |
tree | f74fd9da7533b744d33bae9a714403d985047fad /Gpg/Wot.hs | |
parent | e8f408e6456ac445c53fe50594ee0effc136f86c (diff) | |
download | debug-me-699687f503c63541a6e28501fa5f523b89c1915b.tar.gz |
sanitize gpg output and chat messages
Just in case, only allow printable characters in this, not control
characters.
Diffstat (limited to 'Gpg/Wot.hs')
-rw-r--r-- | Gpg/Wot.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -95,10 +95,10 @@ isInStrongSet :: GpgKeyId -> IO StrongSetAnalysis isInStrongSet k = maybe (StrongSetAnalysis False) (const $ StrongSetAnalysis True) <$> downloadWotPath k knownKeyInStrongSet -describeWot :: Maybe WotStats -> StrongSetAnalysis -> String +describeWot :: Maybe WotStats -> StrongSetAnalysis -> [String] describeWot (Just ws) (StrongSetAnalysis ss) - | ss == False = theirname ++ "'s identity cannot be verified!" - | otherwise = unlines $ + | ss == False = [theirname ++ "'s identity cannot be verified!"] + | otherwise = [ theirname ++ "'s identity has been verified by as many as " ++ show (length sigs) ++ " people, including:" , intercalate ", " $ take 10 $ nub $ @@ -110,7 +110,7 @@ describeWot (Just ws) (StrongSetAnalysis ss) theirname = stripEmail (uid (key ws)) sigs = cross_sigs ws ++ other_sigs ws bestconnectedsigs = sortOn rank sigs -describeWot Nothing _ = unlines +describeWot Nothing _ = [ "" , "Their identity cannot be verified!" ] |