Skip to content

Commit

Permalink
Debug
Browse files Browse the repository at this point in the history
  • Loading branch information
fujimura committed Jan 30, 2024
1 parent 58d8364 commit 23b3cb0
Showing 1 changed file with 15 additions and 15 deletions.
30 changes: 15 additions & 15 deletions src/Cli.hs
Original file line number Diff line number Diff line change
Expand Up @@ -12,21 +12,21 @@ run xs = Cli.parseArgs xs >>= Lib.run
parseArgs :: [String] -> IO Options
parseArgs args = handleParseResult (execParserPure (prefs idm) opts args)
where
opts :: ParserInfo Options
opts =
info
(helper <*> (version <*> parseOptions))
( fullDesc
<> header "Generate a haskell project based on a template from github."
<> progDesc "git-gsub"
)
version =
infoOption
(showVersion Paths_hs_git_gsub.version)
( short 'v'
<> long "version"
<> help "Print version information"
)
opts :: ParserInfo Options
opts =
info
(helper <*> (version <*> parseOptions))
( fullDesc
<> header "Generate a haskell project based on a template from github."
<> progDesc "git-gsub"
)
version =
infoOption
(showVersion Paths_hs_git_gsub.version)
( short 'v'
<> long "version"
<> help "Print version information"
)

parseOptions :: Parser Options
parseOptions =
Expand Down

0 comments on commit 23b3cb0

Please sign in to comment.