Interval report: Add the sample rate to the end time
authorJoachim Breitner <mail@joachim-breitner.de>
Mon, 21 Sep 2015 18:26:10 +0000 (18:26 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Mon, 21 Sep 2015 18:26:10 +0000 (18:26 +0000)
so that it matches up nicely witht the begin time of the next line.

src/Stats.hs

index 38adac5..52d337d 100644 (file)
@@ -336,7 +336,7 @@ processIntervalReport opts title extr = runOnIntervals  go1 go2
             Just str -> Just
                 ( str
                 , showUtcTime (tlTime fe)
-                , showUtcTime (tlTime le)
+                , showUtcTime ((fromIntegral (tlRate le) / 1000) `addUTCTime` tlTime le)
                 , showTimeDiff opts $
                     tlTime le `diffUTCTime` tlTime fe + fromIntegral (tlRate fe)/1000
                 )