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

CsvReader: print more information about amount-in/out errors

Browse Source
This commit is contained in:
Everett Hildenbrandt 2018-04-04 14:45:34 -05:00 committed by Simon Michael
parent 63d4c51dc4
commit c69fbff6d9
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
hledger-lib/Hledger/Read/CsvReader.hs
View File

@ -716,11 +716,17 @@ getAmountStr rules record =
case (render mamount, render mamountin, render mamountout) of case (render mamount, render mamountin, render mamountout) of
(Just "", Nothing, Nothing) -> Nothing (Just "", Nothing, Nothing) -> Nothing
(Just a, Nothing, Nothing) -> Just a (Just a, Nothing, Nothing) -> Just a
(Nothing, Just "", Just "") -> error' $ "neither amount-in or amount-out has a value\n"++showRecord record (Nothing, Just "", Just "") -> error' $ "neither amount-in or amount-out has a value\n"
++ " record: " ++ showRecord record
(Nothing, Just i, Just "") -> Just i (Nothing, Just i, Just "") -> Just i
(Nothing, Just "", Just o) -> Just $ negateStr o (Nothing, Just "", Just o) -> Just $ negateStr o
(Nothing, Just _, Just _) -> error' $ "both amount-in and amount-out have a value\n"++showRecord record (Nothing, Just i, Just o) -> error' $ "both amount-in and amount-out have a value\n"
_ -> error' $ "found values for amount and for amount-in/amount-out - please use either amount or amount-in/amount-out\n"++showRecord record ++ " amount-in: " ++ i ++ "\n"
++ " amount-out: " ++ o ++ "\n"
++ " record: " ++ showRecord record
_ -> error' $ "found values for amount and for amount-in/amount-out\n"
++ "please use either amount or amount-in/amount-out\n"
++ " record: " ++ showRecord record
type CsvAmountString = String type CsvAmountString = String