slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix a haddock failure reported by hydra

Browse Source
This commit is contained in:
Simon Michael 2013-06-01 13:55:34 -07:00
parent 18c6ff2a04
commit 95f909543a
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger-lib/Hledger/Data/Journal.hs
View File

@ -391,8 +391,9 @@ checkBalanceAssertion :: ([String],MixedAmount) -> [Posting] -> ([String],MixedA
checkBalanceAssertion (errs,bal) ps checkBalanceAssertion (errs,bal) ps
| null ps = (errs,bal) | null ps = (errs,bal)
| isNothing assertion = (errs,bal) | isNothing assertion = (errs,bal)
-- | bal' /= assertedbal -- MixedAmount's Eq instance currently gets confused by different precisions |
| not $ isReallyZeroMixedAmount (bal' - assertedbal) -- bal' /= assertedbal -- MixedAmount's Eq instance currently gets confused by different precisions
not $ isReallyZeroMixedAmount (bal' - assertedbal)
= (errs++[err], bal') = (errs++[err], bal')
| otherwise = (errs,bal') | otherwise = (errs,bal')
where where