nmattia/niv
1
1
Fork 0
mirror of https://github.com/nmattia/niv.git synced 2024-12-01 15:56:03 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #135 from nmattia/nm-help-no-args

Browse Source 
Show help when no arguments are given
This commit is contained in:
Nicolas Mattia 2019-10-30 16:46:46 +01:00 committed by GitHub
commit 88d6f20882
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/Niv/Cli.hs
View File

@ -23,6 +23,7 @@ import Niv.Update
import System.Exit (ExitCode(ExitSuccess)) import System.Exit (ExitCode(ExitSuccess))
import System.FilePath ((</>), takeDirectory) import System.FilePath ((</>), takeDirectory)
import System.Process (readProcessWithExitCode) import System.Process (readProcessWithExitCode)
import System.Environment (getArgs)
import UnliftIO import UnliftIO
import Data.Version (showVersion) import Data.Version (showVersion)
import qualified Data.Aeson as Aeson import qualified Data.Aeson as Aeson
@ -41,9 +42,14 @@ import qualified System.Directory as Dir
import Paths_niv (version) import Paths_niv (version)
cli :: IO () cli :: IO ()
cli = join $ Opts.execParser opts cli = join $
execParserPure' Opts.defaultPrefs opts <$> getArgs
>>= Opts.handleParseResult
where where
opts = Opts.info (parseCommand <**> Opts.helper) $ mconcat desc execParserPure' pprefs pinfo [] = Opts.Failure $
Opts.parserFailure pprefs pinfo Opts.ShowHelpText mempty
execParserPure' pprefs pinfo args = Opts.execParserPure pprefs pinfo args
opts = Opts.info (parseCommand <**> Opts.helper ) $ mconcat desc
desc = desc =
[ Opts.fullDesc [ Opts.fullDesc
, Opts.headerDoc $ Just $ , Opts.headerDoc $ Just $