diff options
author | Ben Sima <ben@bsima.me> | 2021-05-22 06:01:28 -0400 |
---|---|---|
committer | Ben Sima <ben@bsima.me> | 2021-05-22 06:01:28 -0400 |
commit | 1772486872f8ec03ec858061a3f671682da690da (patch) | |
tree | cdbe18b7261d067851ec1aa566c766f11321110b | |
parent | d66bc223ea10b697c481d4558ee90aff1ed685f1 (diff) |
add ramen nut
-rwxr-xr-x | hledger-overview.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/hledger-overview.hs b/hledger-overview.hs index 4676958..d943223 100755 --- a/hledger-overview.hs +++ b/hledger-overview.hs @@ -74,8 +74,8 @@ main = do row " trivial" (pr $ roundTo 2 $ trivial * netWorth) Nothing let (_, _, runwayMo) = runway j t reportopts row " runway" (Target 36 runwayMo) $ Just "want: 36 months" - let (_, _, ramenMo) = ramen j t reportopts - row " ramen" (Target 3 ramenMo) $ Just "want: 3 months" + let (ramenNut, _, ramenMo) = ramen j t reportopts + row " ramen" (Target 3 ramenMo) $ Just $ "want: 3 months" <> gap <> "nut: " <> display ramenNut let (thisyear, _, _) = toGregorian t let age = (fromInteger thisyear) - 1992 let n = whenFreedom j t reportopts |