fix haddock complaints

This commit is contained in:
Simon Michael 2012-05-27 18:20:18 +00:00
parent d1aa325fcb
commit a03fd1d89f
2 changed files with 3 additions and 9 deletions

View File

@ -148,13 +148,13 @@ isNegativeAmount Amount{quantity=q} = q < 0
-- | Does this amount appear to be zero when displayed with its given precision ?
isZeroAmount :: Amount -> Bool
isZeroAmount a -- | a==missingamt = False
isZeroAmount a -- a==missingamt = False
| otherwise = (null . filter (`elem` "123456789") . showAmountWithoutPriceOrCommodity) a
-- | Is this amount "really" zero, regardless of the display precision ?
-- Since we are using floating point, for now just test to some high precision.
isReallyZeroAmount :: Amount -> Bool
isReallyZeroAmount a -- | a==missingamt = False
isReallyZeroAmount a -- a==missingamt = False
| otherwise = (null . filter (`elem` "123456789") . printf ("%."++show zeroprecision++"f") . quantity) a
where zeroprecision = 8
@ -392,7 +392,7 @@ showMixedAmountWithPrecision p m =
showMixedAmountDebug :: MixedAmount -> String
showMixedAmountDebug m | m == missingmixedamt = "(missing)"
| otherwise = printf "Mixed [%s]" as
where as = intercalate "\n " $ map showAmountDebug $ amounts m -- $ normaliseMixedAmountPreservingFirstPrice m
where as = intercalate "\n " $ map showAmountDebug $ amounts m -- normaliseMixedAmountPreservingFirstPrice m
-- | Get the string representation of a mixed amount, but without
-- any \@ prices.

View File

@ -223,12 +223,6 @@ type EntriesReport = [EntriesReportItem]
type EntriesReportItem = Transaction
-- | Select transactions for an entries report.
-- "The print command selects transactions which
-- @
-- match any of the description patterns
-- and have any postings matching any of the positive account patterns
-- and have no postings matching any of the negative account patterns"
-- @
entriesReport :: ReportOpts -> Query -> Journal -> EntriesReport
entriesReport opts q j =
sortBy (comparing date) $ filter (q `matchesTransaction`) ts