fix the haddock for amounts (#382)

This commit is contained in:
Sam Doshi 2016-08-03 17:29:22 +01:00 committed by Simon Michael
parent 2bee53af96
commit 7bd5422c01

View File

@ -434,9 +434,9 @@ sumSimilarAmountsUsingFirstPrice :: [Amount] -> Amount
sumSimilarAmountsUsingFirstPrice [] = nullamt
sumSimilarAmountsUsingFirstPrice as = (sum as){aprice=aprice $ head as}
-- | Sum same-commodity amounts. If there were different prices, set
-- the price to a special marker indicating "various". Only used as a
-- rendering helper.
-- -- | Sum same-commodity amounts. If there were different prices, set
-- -- the price to a special marker indicating "various". Only used as a
-- -- rendering helper.
-- sumSimilarAmountsNotingPriceDifference :: [Amount] -> Amount
-- sumSimilarAmountsNotingPriceDifference [] = nullamt
-- sumSimilarAmountsNotingPriceDifference as = undefined