Add default values to the CLI

This commit is contained in:
1Computer1 2019-09-05 10:17:20 -04:00
parent c31b52ce5e
commit 66b125bc80

View file

@ -20,12 +20,16 @@ parseArgs = execParser $ info (helper <*> args) (fullDesc <> progDesc "Run the M
, short 'c' , short 'c'
, help "Set the Dhall configuration" , help "Set the Dhall configuration"
, metavar "DHALL" , metavar "DHALL"
, value "./config.dhall"
, showDefault
]) ])
<*> option str (mconcat <*> option str (mconcat
[ long "languages" [ long "languages"
, short 'l' , short 'l'
, help "Set the languages directory" , help "Set the languages directory"
, metavar "DIR" , metavar "DIR"
, value "./languages/"
, showDefault
]) ])
main :: IO () main :: IO ()