hopenpgp-tools 0.16 → 0.16.1

raw patch · 2 files changed

+5/−4 lines, 2 files

Files

• hkt.hs +3/−2
• hopenpgp-tools.cabal +2/−2

@@ -74,6 +74,7 @@  import System.IO (Handle, hFlush, stderr, hSetBuffering, BufferMode(..)) import Text.PrettyPrint.ANSI.Leijen ((<+>), (</>), hardline, hPutDoc, list, putDoc, text)+import Text.PrettyPrint.Free (pretty)  grabMatchingKeysConduit :: MonadResource m => FilePath -> Bool -> Text -> Source m TK grabMatchingKeysConduit fp filt srch = CB.sourceFile fp $= conduitGet get $= conduitToTKsDropping $= (if filt then conduitTKFilter ufp else CL.filter matchAny)@@ -117,7 +118,7 @@         mkey = Key <$> either (const Nothing) Just . pubkeySize . _pubkey                    <*> show . _pkalgo                    <*> pkalgoAbbrev . _pkalgo-                   <*> either (const "unknown") show . eightOctetKeyID+                   <*> either (const "unknown") (show . pretty) . eightOctetKeyID                    <*> show . fingerprint  showTKey :: TKey -> IO ()@@ -280,7 +281,7 @@         LossyPretty -> prettyPrint g         GraphViz -> TLIO.putStrLn . printDotGraph . graphToDot nonClusteredLabeledNodesParams $ g     where-        nonClusteredLabeledNodesParams = nonClusteredParams { fmtNode = \(_,l) -> [toLabel $ show l] }+        nonClusteredLabeledNodesParams = nonClusteredParams { fmtNode = \(_,l) -> [toLabel $ show (pretty l)] }  buildMaps :: [TK] -> (KeyMaps, Int) buildMaps ks = S.execState (mapM_ mapsInsertions ks) (KeyMaps HashMap.empty HashMap.empty HashMap.empty, 0)

@@ -1,5 +1,5 @@ name:                hopenpgp-tools-version:             0.16+version:             0.16.1 synopsis:            hOpenPGP-based command-line tools description:         command-line tools for performing some OpenPGP-related operations homepage:            http://floss.scru.org/hopenpgp-tools@@ -119,4 +119,4 @@ source-repository this   type:     git   location: git://git.debian.org/users/clint/hopenpgp-tools.git-  tag:      hopenpgp-tools/0.16+  tag:      hopenpgp-tools/0.16.1