convert: fix recent breakage causing zero amounts

This commit is contained in:
Simon Michael 2011-05-31 22:09:05 +00:00
parent 8d62452260
commit 171c0e73ea

View File

@ -457,7 +457,7 @@ identify rules defacct desc | null matchingrules = (defacct,desc)
caseinsensitive = ("(?i)"++)
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
Nothing ->
case (c, d) of