diff options
| -rwxr-xr-x | hledger-overview.hs | 6 |
1 files 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 |