diff options
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!" ] |