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
|
||||
|
||||
displaysizes (zone, displayedyet, prevt, prevoutput) uuidmap sizemap t
|
||||
| t - prevt > dt
|
||||
| t - prevt >= dt
|
||||
&& (displayedyet || any (/= 0) sizes)
|
||||
&& (prevoutput /= Just output) = do
|
||||
displayts zone t output
|
||||
|
@ -400,8 +400,9 @@ sizeHistoryInfo mu o = do
|
|||
then rawTimeStamp t
|
||||
else showTimeStamp zone "%Y-%m-%dT%H:%M:%S" t
|
||||
|
||||
displayendsizes (zone , _, t, Just output) =
|
||||
displayts zone t output
|
||||
displayendsizes (zone , _, _, Just output) = do
|
||||
now <- getPOSIXTime
|
||||
displayts zone now output
|
||||
displayendsizes _ = return ()
|
||||
|
||||
showsize n
|
||||
|
|
Loading…
Add table
Reference in a new issue