Fix benchmark build broken by tapRate hiding
commit90ce1596e391b3b35e9f029cd57817ccb015e444
authorHarendra Kumar <harendra.kumar@gmail.com>
dateSat 28 Dec 2019, 00:42 (7 years ago)
parentc55d939
benchmark/Streamly/Benchmark/Prelude.hs+1−1
@@ -409,7 +409,7 @@ tap n = composeN n $ S.tap FL.sum
409409tapRate :: Int -> Stream IO Int -> IO ()
410410tapRate n str = do
411411 cref <- newIORef 0
412− composeN n (S.tapRate 1 (\c -> modifyIORef' cref (c +))) str
412+ composeN n (Internal.tapRate 1 (\c -> modifyIORef' cref (c +))) str
413413
414414{-# INLINE tapAsyncS #-}
415415tapAsyncS :: S.MonadAsync m => Int -> Stream m Int -> m ()