simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-12 19:08:34 +03:00
Code Issues Projects Releases Wiki Activity

convert: fix amount-field/in-field/out-field validation

Browse Source
This commit is contained in:
Simon Michael 2011-06-02 21:23:53 +00:00
parent 3617bc1a79
commit c562412964
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger/Hledger/Cli/Convert.hs
View File

@ -165,10 +165,10 @@ initialRulesFileContent =
validateRules :: CsvRules -> Maybe String validateRules :: CsvRules -> Maybe String
validateRules rules = let validateRules rules = let
hasAccount = isJust $ accountField rules hasAmount = isJust $ amountField rules
hasIn = isJust $ inField rules hasIn = isJust $ inField rules
hasOut = isJust $ outField rules hasOut = isJust $ outField rules
in case (hasAccount, hasIn, hasOut) of in case (hasAmount, hasIn, hasOut) of
(True, True, _) -> Just "Don't specify in-field when specifying amount-field" (True, True, _) -> Just "Don't specify in-field when specifying amount-field"
(True, _, True) -> Just "Don't specify out-field when specifying amount-field" (True, _, True) -> Just "Don't specify out-field when specifying amount-field"
(_, False, True) -> Just "Please specify in-field when specifying out-field" (_, False, True) -> Just "Please specify in-field when specifying out-field"