From 3ca10220c0816576331a1356b92f4f2081110c4e Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Sun, 29 Dec 2019 13:37:24 -0800 Subject: hledger-overview: fixup names --- hledger-overview.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/hledger-overview.hs b/hledger-overview.hs index d21d285..75a3127 100755 --- a/hledger-overview.hs +++ b/hledger-overview.hs @@ -30,11 +30,11 @@ main = do say = putStrLn . unwords getTotal :: Journal -> Day -> String -> Quantity -getTotal j d q = head $ map aquantity $ netWorth +getTotal j d q = head $ map aquantity $ total where - opts = defreportopts + opts = defreportopts { balancetype_ = CumulativeChange } (query, _) = parseQuery d $ pack q - (_, (Mixed netWorth)) = balanceReport opts query j + (_, (Mixed total)) = balanceReport opts query j getJournal :: IO Journal getJournal = do -- cgit v1.2.3