filipg/geval
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

add short options, improve help

Browse Source
This commit is contained in:
Filip Gralinski 2018-01-25 11:16:40 +01:00 committed by Filip Gralinski
parent b51944b930
commit 5ae8036efc
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/GEval/OptionsParser.hs
View File

@ -33,14 +33,16 @@ optionsParser = GEvalOptions
<|> <|>
(flag' LineByLine (flag' LineByLine
( long "line-by-line" ( long "line-by-line"
<> short 'l'
<> help "Give scores for each line rather than the whole test set" ))) <> help "Give scores for each line rather than the whole test set" )))
<*> specParser <*> specParser
precisionArgParser :: Parser Int precisionArgParser :: Parser Int
precisionArgParser = option auto precisionArgParser = option auto
( long "precision" ( long "precision"
<> metavar "PRECISION" <> short 'p'
<> help "Precision with which the evaluation results should be shown" ) <> metavar "NUMBER-OF-FRACTIONAL-DIGITS"
<> help "Arithmetic precision, i.e. the number of fractional digits to be shown" )
specParser :: Parser GEvalSpecification specParser :: Parser GEvalSpecification
specParser = GEvalSpecification specParser = GEvalSpecification
@ -56,24 +58,28 @@ specParser = GEvalSpecification
<> help "Directory with expected test results (the same as OUT-DIRECTORY, if not given)" )) <> help "Directory with expected test results (the same as OUT-DIRECTORY, if not given)" ))
<*> strOption <*> strOption
( long "test-name" ( long "test-name"
<> short 't'
<> value defaultTestName <> value defaultTestName
<> showDefault <> showDefault
<> metavar "NAME" <> metavar "NAME"
<> help "Test name (i.e. subdirectory with results or expected results)" ) <> help "Test name (i.e. subdirectory with results or expected results)" )
<*> strOption <*> strOption
( long "out-file" ( long "out-file"
<> short 'o'
<> value defaultOutFile <> value defaultOutFile
<> showDefault <> showDefault
<> metavar "OUT" <> metavar "OUT"
<> help "The name of the file to be evaluated" ) <> help "The name of the file to be evaluated" )
<*> strOption <*> strOption
( long "expected-file" ( long "expected-file"
<> short 'e'
<> value defaultExpectedFile <> value defaultExpectedFile
<> showDefault <> showDefault
<> metavar "EXPECTED" <> metavar "EXPECTED"
<> help "The name of the file with expected results" ) <> help "The name of the file with expected results" )
<*> strOption <*> strOption
( long "input-file" ( long "input-file"
<> short 'i'
<> value defaultInputFile <> value defaultInputFile
<> showDefault <> showDefault
<> metavar "INPUT" <> metavar "INPUT"
@ -84,6 +90,7 @@ specParser = GEvalSpecification
metricReader :: Parser Metric metricReader :: Parser Metric
metricReader = option auto metricReader = option auto
( long "metric" ( long "metric"
<> short 'm'
<> value defaultMetric <> value defaultMetric
<> showDefault <> showDefault
<> metavar "METRIC" <> metavar "METRIC"