@@ -21,6 +21,7 @@ import qualified Streamly.Memory.ArrayStream as AS
21import qualified Streamly.Prelude as S
21import qualified Streamly.Prelude as S
22import qualified Streamly.Fold as FL
22import qualified Streamly.Fold as FL
23import qualified Streamly.String as SS
23import qualified Streamly.String as SS
24+import qualified Streamly.Internal as Internal
25#ifdef DEVBUILD
26#ifdef DEVBUILD
26import Data.Char (ord, chr)
27import Data.Char (ord, chr)
@@ -139,6 +140,9 @@ main = do
139 , mkBench "cat" href $ do
140 , mkBench "cat" href $ do
140 Handles inh _ <- readIORef href
141 Handles inh _ <- readIORef href
141 S.runFold (FH.write devNull) $ FH.read inh
142 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
143 , bgroup "copyArray"
147 , bgroup "copyArray"
144 [ mkBench "copy" href $ do
148 [ mkBench "copy" href $ do