hopenpgp-tools 0.19.2 → 0.19.3

raw patch · 5 files changed

+10/−9 lines, 5 files

Files

HOpenPGP/Tools/Common.hs +4/−3
hkt.hs +1/−1
hokey.hs +1/−1
hopenpgp-tools.cabal +2/−2
hot.hs +2/−2

HOpenPGP/Tools/Common.hs view

@@ -62,7 +62,7 @@ import Data.Monoid ((<>)) import Data.Text (Text) import qualified Data.Text as T-import Options.Applicative.Builder (auto, help, infoOption, long, short)+import Options.Applicative.Builder (auto, help, hidden, infoOption, long, short) import Options.Applicative.Types (Parser, ReadM(..)) import Text.PrettyPrint.ANSI.Leijen (Doc, (<+>), hardline, text) @@ -84,12 +84,13 @@      text "This is free software, and you are welcome to redistribute it" <+>      text "under certain conditions." -versioner :: Parser (a -> a)+versioner :: String -> Parser (a -> a) {-# INLINE versioner #-}-versioner = infoOption (showVersion version) $+versioner name = infoOption (name ++ " (hopenpgp-tools) " ++ showVersion version) $     long "version"    <> short 'V'    <> help "Show version information"+   <> hidden  prependAuto :: Read a => String -> ReadM a prependAuto s = ReadM (local (s++) (unReadM auto))

hkt.hs view

@@ -231,7 +231,7 @@ main = do     hSetBuffering stderr LineBuffering     homedir <- getHomeDirectory-    customExecParser (prefs showHelpOnError) (info (helper <*> versioner <*> cmd homedir) (headerDoc (Just (banner "hkt")) <> progDesc "hOpenPGP Keyring Tool" <> footerDoc (Just (warranty "hkt")))) >>= dispatch+    customExecParser (prefs showHelpOnError) (info (helper <*> versioner "hkt" <*> cmd homedir) (headerDoc (Just (banner "hkt")) <> progDesc "hOpenPGP Keyring Tool" <> footerDoc (Just (warranty "hkt")))) >>= dispatch  cmd :: String -> Parser Command cmd homedir = hsubparser

hokey.hs view

@@ -369,7 +369,7 @@ main :: IO () main = do     hSetBuffering stderr LineBuffering-    customExecParser (prefs showHelpOnError) (info (helper <*> versioner <*> cmd) (headerDoc (Just (banner "hokey")) <> progDesc "hOpenPGP Key utility" <> footerDoc (Just (warranty "hokey")))) >>= dispatch+    customExecParser (prefs showHelpOnError) (info (helper <*> versioner "hokey" <*> cmd) (headerDoc (Just (banner "hokey")) <> progDesc "hOpenPGP Key utility" <> footerDoc (Just (warranty "hokey")))) >>= dispatch  cmd :: Parser Command cmd = hsubparser

hopenpgp-tools.cabal view

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

hot.hs view

@@ -28,7 +28,7 @@ import Codec.Encryption.OpenPGP.Serialize () import Codec.Encryption.OpenPGP.Types #if !MIN_VERSION_base(4,8,0)-import Control.Applicative ((<$>), (<*>))+import Control.Applicative ((<$>), (<*>), pure) #endif import Control.Applicative (optional) import Control.Error.Util (note)@@ -157,7 +157,7 @@ main :: IO () main = do     hSetBuffering stderr LineBuffering-    customExecParser (prefs showHelpOnError) (info (helper <*> versioner <*> cmd) (headerDoc (Just (banner "hot")) <> progDesc "hOpenPGP OpenPGP-message Tool" <> footerDoc (Just (warranty "hot")))) >>= dispatch+    customExecParser (prefs showHelpOnError) (info (helper <*> versioner "hot" <*> cmd) (headerDoc (Just (banner "hot")) <> progDesc "hOpenPGP OpenPGP-message Tool" <> footerDoc (Just (warranty "hot")))) >>= dispatch  cmd :: Parser Command cmd = hsubparser