the last line is for the current time

This commit is contained in:
Joey Hess 2023-11-10 17:37:55 -04:00
parent 574514545c
commit 6203b8afba
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -380,7 +380,7 @@ sizeHistoryInfo mu o = do
epoch = toEnum 0 epoch = toEnum 0
displaysizes (zone, displayedyet, prevt, prevoutput) uuidmap sizemap t displaysizes (zone, displayedyet, prevt, prevoutput) uuidmap sizemap t
| t - prevt > dt | t - prevt >= dt
&& (displayedyet || any (/= 0) sizes) && (displayedyet || any (/= 0) sizes)
&& (prevoutput /= Just output) = do && (prevoutput /= Just output) = do
displayts zone t output displayts zone t output
@ -400,8 +400,9 @@ sizeHistoryInfo mu o = do
then rawTimeStamp t then rawTimeStamp t
else showTimeStamp zone "%Y-%m-%dT%H:%M:%S" t else showTimeStamp zone "%Y-%m-%dT%H:%M:%S" t
displayendsizes (zone , _, t, Just output) = displayendsizes (zone , _, _, Just output) = do
displayts zone t output now <- getPOSIXTime
displayts zone now output
displayendsizes _ = return () displayendsizes _ = return ()
showsize n showsize n