diff options
| author | Ben Sima <ben@bsima.me> | 2022-09-02 09:57:48 -0400 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2022-09-02 09:57:48 -0400 |
| commit | 6d77c0c274a53f21da94aa4fc190c6c485c68f4c (patch) | |
| tree | 945280916d06ea2820064060d28ef817727730bb /hledger-overview.hs | |
| parent | 2822ad6b0a2cf4b243619f8968b76940c46671d6 (diff) | |
qualify allowances as USD
Diffstat (limited to 'hledger-overview.hs')
| -rwxr-xr-x | hledger-overview.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/hledger-overview.hs b/hledger-overview.hs index 431099f..bdb807b 100755 --- a/hledger-overview.hs +++ b/hledger-overview.hs @@ -63,7 +63,7 @@ main = do j <- getJournal t <- today let bal = getTotal j t reportopts - sec "cash balances" + sec "balances" row " cashapp" (cur $ bal "^as:me:cash:cashapp status:! status:*") Nothing row " wallet" (cur $ bal "^as:me:cash:wallet") Nothing row " cse" (cur $ bal "^as:me:cash:cse status:*") Nothing @@ -71,10 +71,10 @@ main = do row " citi" (cur $ bal "^li:me:cred:citi status:*") Nothing sec "allowances" - row " ben" (cur $ bal "^li:me:allowance:ben") Nothing - row " kate" (cur $ bal "^li:me:allowance:kate") Nothing - row " tithe" (cur $ bal "^li:me:church:tithe") Nothing - row "nick rent" (cur $ bal "^li:me:rent:nick") Nothing + row " ben" (cur $ bal "^li:me:allowance:ben cur:USD") Nothing + row " kate" (cur $ bal "^li:me:allowance:kate cur:USD") Nothing + row " tithe" (cur $ bal "^li:me:church:tithe cur:USD") Nothing + row "nick rent" (cur $ bal "^li:me:rent:nick cur:USD") Nothing let (year, month, _) = toGregorian t let expectedLevel = fromJust $ Map.lookup (roundTo 2 $ (fromIntegral year + fromIntegral month / 12) - (1992 + 7 / 12)) $ levelSchedule cur |