convert: fix recent breakage causing zero amounts
This commit is contained in:
parent
8d62452260
commit
171c0e73ea
@ -457,7 +457,7 @@ identify rules defacct desc | null matchingrules = (defacct,desc)
|
|||||||
caseinsensitive = ("(?i)"++)
|
caseinsensitive = ("(?i)"++)
|
||||||
|
|
||||||
getAmount :: CsvRules -> CsvRecord -> String
|
getAmount :: CsvRules -> CsvRecord -> String
|
||||||
getAmount rules fields = case (accountField rules) of
|
getAmount rules fields = case amountField rules of
|
||||||
Just f -> maybe "" (atDef "" fields) $ Just f
|
Just f -> maybe "" (atDef "" fields) $ Just f
|
||||||
Nothing ->
|
Nothing ->
|
||||||
case (c, d) of
|
case (c, d) of
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user