git.iko.soy/streamly
on master help sign in
INLINE the main benchmark function
42e5c6bHarendra Kumar
benchmark/Linear.hs+1
compare with master
unifiedsplit
@@ -18,6 +18,7 @@ import Gauge
18benchIO :: (IsStream t, NFData b) => String -> (t IO Int -> IO b) -> Benchmark
18benchIO :: (IsStream t, NFData b) => String -> (t IO Int -> IO b) -> Benchmark
19benchIO name f = bench name $ nfIO $ randomRIO (1,1000) >>= f . Ops.source
19benchIO name f = bench name $ nfIO $ randomRIO (1,1000) >>= f . Ops.source
20
20
21+{-# INLINE benchSrcIO #-}
21benchSrcIO
22benchSrcIO
22 :: (t IO Int -> SerialT IO Int)
23 :: (t IO Int -> SerialT IO Int)
23 -> String
24 -> String