convert: fix recent breakage causing zero amounts

2011-05-31 22:09:05 +00:00 · 2011-05-31 22:09:05 +00:00 · 171c0e73ea
commit 171c0e73ea
parent 8d62452260
1 changed files with 1 additions and 1 deletions
--- a/hledger/Hledger/Cli/Convert.hs
+++ b/hledger/Hledger/Cli/Convert.hs
@ -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