From 7bd5422c0116064ed92824830a93efa440bd7606 Mon Sep 17 00:00:00 2001 From: Sam Doshi Date: Wed, 3 Aug 2016 17:29:22 +0100 Subject: [PATCH] fix the haddock for amounts (#382) --- hledger-lib/Hledger/Data/Amount.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/hledger-lib/Hledger/Data/Amount.hs b/hledger-lib/Hledger/Data/Amount.hs index 73a812edd..4f6c3c3c1 100644 --- a/hledger-lib/Hledger/Data/Amount.hs +++ b/hledger-lib/Hledger/Data/Amount.hs @@ -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