oops, missed a build failure

This commit is contained in:
Simon Michael 2013-06-04 11:43:26 -07:00
parent 7d450d5030
commit e13ea5706d

View File

@ -462,7 +462,7 @@ filterTransactionsReportByCommodity c (label,items) =
| c `elem` cs = [item']
| otherwise = []
where
cs = map acommodity as
cs = map acommodity $ amounts a
item' = (t,t2,s,o,a',bal)
a' = filterMixedAmountByCommodity c a