@@ -21,6 +21,7 @@ import qualified Streamly.Memory.ArrayStream as AS
2121import qualified Streamly.Prelude as S
2222import qualified Streamly.Fold as FL
2323import qualified Streamly.String as SS
24+import qualified Streamly.Internal as Internal
2425
2526#ifdef DEVBUILD
2627import Data.Char (ord, chr)
@@ -139,6 +140,9 @@ main = do
139140 , mkBench "cat" href $ do
140141 Handles inh _ <- readIORef href
141142 S.runFold (FH.write devNull) $ FH.read inh
143+ , mkBench "catStream" href $ do
144+ Handles inh _ <- readIORef href
145+ Internal.writeS devNull $ FH.read inh
142146 ]
143147 , bgroup "copyArray"
144148 [ mkBench "copy" href $ do