simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-20 10:47:29 +03:00
Code Issues Projects Releases Wiki Activity

bal: with -V, don't ignore market prices in the future #453

Browse Source
This commit is contained in:
Simon Michael 2016-12-30 11:21:05 -08:00
parent 7dcfcb05ec
commit a57c1bde08
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
hledger/Hledger/Cli/Balance.hs
View File

@ -246,7 +246,7 @@ module Hledger.Cli.Balance (
) where
import Data.List (intercalate)
import Data.Maybe (fromMaybe, isJust)
import Data.Maybe
import Data.Monoid
-- import Data.Text (Text)
import qualified Data.Text as T
@ -300,7 +300,7 @@ balance opts@CliOpts{reportopts_=ropts} j = do
let format = outputFormatFromOpts opts
interval = interval_ ropts
baltype = balancetype_ ropts
valuedate = fromMaybe d $ queryEndDate False $ queryFromOpts d ropts
mvaluedate <- reportEndDate j ropts
-- shenanigans: use single/multiBalanceReport when we must,
-- ie when there's a report interval, or --historical or -- cumulative.
-- Otherwise prefer the older balanceReport since it can elide boring parents.
@ -314,16 +314,16 @@ balance opts@CliOpts{reportopts_=ropts} j = do
| otherwise = ropts{accountlistmode_=ALTree}
in singleBalanceReport ropts' (queryFromOpts d ropts) j
| otherwise = balanceReport ropts (queryFromOpts d ropts) j
convert | value_ ropts = balanceReportValue j valuedate
| otherwise = id
convert | value_ ropts = maybe id (balanceReportValue j) mvaluedate
| otherwise = id
render = case format of
"csv" -> \ropts r -> (++ "\n") $ printCSV $ balanceReportAsCsv ropts r
_ -> balanceReportAsText
writeOutput opts $ render ropts $ convert report
_ -> do
let report = multiBalanceReport ropts (queryFromOpts d ropts) j
convert | value_ ropts = multiBalanceReportValue j valuedate
| otherwise = id
convert | value_ ropts = maybe id (multiBalanceReportValue j) mvaluedate
| otherwise = id
render = case format of
"csv" -> \ropts r -> (++ "\n") $ printCSV $ multiBalanceReportAsCsv ropts r
_ -> case baltype of