fix haddock complaints
This commit is contained in:
		
							parent
							
								
									d1aa325fcb
								
							
						
					
					
						commit
						a03fd1d89f
					
				| @ -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. | ||||
|  | ||||
| @ -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 | ||||
|  | ||||
		Loading…
	
		Reference in New Issue
	
	Block a user