slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

imp: lib: registerWidthsFromOpts: fix ugly parse error message

Browse Source
This commit is contained in:
Simon Michael 2023-01-10 17:07:54 -10:00
parent 5c289ac92e
commit 1ea2c41bf7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger/Hledger/Cli/CliOptions.hs
View File

@ -662,7 +662,7 @@ registerWidthsFromOpts :: CliOpts -> (Int, Maybe Int)
registerWidthsFromOpts CliOpts{width_=Nothing, available_width_=w} = (w, Nothing) registerWidthsFromOpts CliOpts{width_=Nothing, available_width_=w} = (w, Nothing)
registerWidthsFromOpts CliOpts{width_=Just s} = registerWidthsFromOpts CliOpts{width_=Just s} =
case runParser registerwidthp "(unknown)" s of case runParser registerwidthp "(unknown)" s of
Left e -> usageError $ "could not parse width option: "++show e Left e -> usageError $ "could not parse width option: "++errorBundlePretty e
Right ws -> ws Right ws -> ws
where where
registerwidthp :: (Stream s, Char ~ Token s) => ParsecT Void s m (Int, Maybe Int) registerwidthp :: (Stream s, Char ~ Token s) => ParsecT Void s m (Int, Maybe Int)