simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-26 03:42:25 +03:00
Code Issues Projects Releases Wiki Activity

fix: stats: fix a regression in date display since 1.28 (#2012)

Browse Source
This commit is contained in:
Simon Michael 2023-03-16 14:52:37 -10:00
parent ee29893040
commit 70ef3e816c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
hledger/Hledger/Cli/Commands/Stats.hs
View File

@ -70,7 +70,7 @@ showLedgerStats l today spn =
(stts, tnum) = ([
("Main file", path) -- ++ " (from " ++ source ++ ")")
,("Included files", unlines $ drop 1 $ journalFilePaths j)
,("Transactions span", printf "%s to %s (%d days)" (start spn) (end spn) days)
,("Transactions span", printf "%s to %s (%d days)" (showstart spn) (showend spn) days)
,("Last transaction", maybe "none" show lastdate ++ showelapsed lastelapsed)
,("Transactions", printf "%d (%0.1f per day)" tnum txnrate)
,("Transactions last 30 days", printf "%d (%0.1f per day)" tnum30 txnrate30)
@ -100,10 +100,10 @@ showLedgerStats l today spn =
direction | dys >= 0 = "days ago" :: String
| otherwise = "days from now"
tnum1 = length ts -- Integer would be better
start (DateSpan (Just d) _) = show d
start _ = ""
end (DateSpan _ (Just d)) = show d
end _ = ""
showstart (DateSpan (Just efd) _) = show $ fromEFDay efd
showstart _ = ""
showend (DateSpan _ (Just efd)) = show $ fromEFDay efd
showend _ = ""
days = fromMaybe 0 $ daysInSpan spn
txnrate | days==0 = 0
| otherwise = fromIntegral tnum1 / fromIntegral days :: Double