Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Filter out zero-valued clock differences

--HG--
extra : amend_source : 63f2ab63ed918284285bfafe2e97108ad7203711
  • Loading branch information...
commit 2f023c9ea66cdbf676dd1d8d29c8cf0cdebd4ab6 1 parent 53574bf
@bos authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  Criterion/Environment.hs
View
2  Criterion/Environment.hs
@@ -52,7 +52,7 @@ measureEnvironment = do
where
resolution k = do
times <- U.replicateM (k+1) getTime
- return (U.tail . U.filter (>=0) . U.zipWith (-) (U.tail times) $ times,
+ return (U.tail . U.filter (>0) . U.zipWith (-) (U.tail times) $ times,
U.length times)
cost timeLimit = liftIO $ do
let timeClock k = time_ (replicateM_ k getTime)
Please sign in to comment.
Something went wrong with that request. Please try again.