the last line is for the current time

diff --git a/Command/Log.hs b/Command/Log.hs
index 7124019e3131358e4419156a89a5b91c34262007..21c2b4cdced154bf5881e59d147ac34ac8f6c53c 100644 (file)
--- a/Command/Log.hs
+++ b/Command/Log.hs
@@ -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