diff options
| -rwxr-xr-x | hledger-overview.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/hledger-overview.hs b/hledger-overview.hs index 6a8a722..d21d285 100755 --- a/hledger-overview.hs +++ b/hledger-overview.hs @@ -3,12 +3,13 @@ module Main where import Hledger import Data.Either (fromRight) -import Data.Time.Calendar (Day, fromGregorian) +import Data.Time.Calendar (Day) +import Data.Time.Clock (UTCTime(utctDay), getCurrentTime) import Data.Text (pack) main = do j <- getJournal - let today = fromGregorian 2019 12 17 + today <- getCurrentTime >>= return . utctDay let bal = getTotal j today say ["simple", show $ bal "^as:me:cash:simple status:! status:*"] say ["wallet", show $ bal "^as:me:cash:wallet"] |