@@ -4,8 +4,7 @@ import qualified Streamly.Mem.Array as A
44import qualified Streamly.FileSystem.Handle as FH
55import qualified System.IO as FH
66-- import qualified Streamly.FileSystem.FD as FH
7−import qualified Streamly.String as SS
8−import Data.Word (Word8)
7+-- import qualified Streamly.String as SS
98
109import Data.Char (ord)
1110import System.Environment (getArgs)
@@ -13,21 +12,13 @@ import System.IO (IOMode(..), hSeek, SeekMode(..))
1312
1413cat :: FH.Handle -> IO ()
1514cat src = FH.writeArrays FH.stdout $ FH.readArraysOfUpto (256*1024) src
16−{-
1715-- byte stream version
18−cat src =
19− FH.writeByChunksOf (1024*1024) FH.stdout
20− $ FH.readByChunksUpto (16*1024) src
21−-}
16+-- cat src = FH.write FH.stdout $ FH.read src
2217
2318cp :: FH.Handle -> FH.Handle -> IO ()
2419cp src dst = FH.writeArrays dst $ FH.readArraysOfUpto (256*1024) src
25−{-
2620-- byte stream version
27−cp src dst =
28− FH.writeByChunksOf (1024*1024) dst
29− $ FH.readByChunksUpto (16*1024) src
30−-}
21+-- cp src dst = FH.write dst $ FH.read src
3122
3223ord' :: Num a => Char -> a
3324ord' = (fromIntegral . ord)