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

close: generated unpriced balance assertion amounts (#824)

Browse Source
This commit is contained in:
Simon Michael 2019-01-25 11:55:09 -08:00
parent f320345699
commit 08c0d83593
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger/Hledger/Cli/Commands/Close.hs
View File

@ -43,10 +43,10 @@ close CliOpts{rawopts_=rawopts, reportopts_=ropts} j = do
-- amounts in opening/closing transactions should be too (#941) -- amounts in opening/closing transactions should be too (#941)
-- setprec = setFullPrecision -- setprec = setFullPrecision
setprec = setMinimalPrecision setprec = setMinimalPrecision
-- balance assertion amounts will be unpriced, cf #824
closingps = [posting{paccount=a closingps = [posting{paccount=a
,pamount=mixed [setprec $ negate b] ,pamount=mixed [setprec $ negate b]
,pbalanceassertion=Just assertion{baamount=setprec b{aquantity=0}} ,pbalanceassertion=Just assertion{baamount=setprec b{aquantity=0, aprice=NoPrice}}
} }
| (a,_,_,mb) <- acctbals | (a,_,_,mb) <- acctbals
, b <- amounts $ normaliseMixedAmountSquashPricesForDisplay mb , b <- amounts $ normaliseMixedAmountSquashPricesForDisplay mb
@ -55,7 +55,7 @@ close CliOpts{rawopts_=rawopts, reportopts_=ropts} j = do
openingps = [posting{paccount=a openingps = [posting{paccount=a
,pamount=mixed [setprec b] ,pamount=mixed [setprec b]
,pbalanceassertion=Just assertion{baamount=setprec b} ,pbalanceassertion=Just assertion{baamount=setprec b{aprice=NoPrice}}
} }
| (a,_,_,mb) <- acctbals | (a,_,_,mb) <- acctbals
, b <- amounts $ normaliseMixedAmountSquashPricesForDisplay mb , b <- amounts $ normaliseMixedAmountSquashPricesForDisplay mb