Fixed the program name in help/usage/version text.
parent
53e70d6ead
commit
86a3cc0448
|
@ -11,6 +11,7 @@ import qualified Distribution.Text as DText
|
|||
|
||||
import Data.List (intercalate)
|
||||
import Options.Applicative
|
||||
import System.Environment (getProgName)
|
||||
|
||||
import Ringo.Types
|
||||
|
||||
|
@ -100,19 +101,18 @@ progArgsParser =
|
|||
<> action "directory"
|
||||
<> help "Output directory")
|
||||
|
||||
progName :: String
|
||||
progName = $(P.getField (DText.display . P.pkgName . P.package))
|
||||
|
||||
versionParser :: Parser (a -> a)
|
||||
versionParser = infoOption (progName ++ " " ++ version)
|
||||
versionParser :: String -> Parser (a -> a)
|
||||
versionParser progName = infoOption (progName ++ " " ++ version)
|
||||
(long "version"
|
||||
<> help "Print version information")
|
||||
where
|
||||
version = $(P.getField (DText.display . P.pkgVersion . P.package))
|
||||
|
||||
parseArgs :: IO ProgArgs
|
||||
parseArgs = execParser $
|
||||
info (helper <*> versionParser <*> progArgsParser)
|
||||
parseArgs = do
|
||||
progName <- getProgName
|
||||
execParser $
|
||||
info (helper <*> versionParser progName <*> progArgsParser)
|
||||
(fullDesc
|
||||
<> progDesc $(P.getField P.description)
|
||||
<> header (progName ++ " - " ++ $(P.getField P.synopsis))
|
||||
|
|
Loading…
Reference in New Issue