the last line is for the current time
This commit is contained in:
parent
574514545c
commit
6203b8afba
1 changed files with 4 additions and 3 deletions
|
@ -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
|
||||||
|
|
Loading…
Add table
Reference in a new issue