Commits

Bryan O'Sullivan committed 5e1df0f

Make sure we're getting the minimum start time.

Comments (0)

Files changed (1)

lib/Network/HTTP/LoadTest/Report.hs

       context n = mkGenericContext a n
       (latKdeTimes,latKdePDF) = kde 128 . G.convert . G.map summElapsed $ latValues
       lats = G.map (\s -> s { summStart = summStart s - t }) latValues
-          where t = summStart . G.head $ latValues
+          where t = G.minimum . G.map summStart $ latValues
   tpl <- R.loadTemplate [".",templateDir] template
   bs <- H.hastacheStr H.defaultConfig tpl context
   L.hPutStr h bs