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