git.iko.soy/streamly
on master help sign in
simplified byte stream versions, remove warnings
cf2d810Harendra Kumar
examples/HandleIO.hs+3−12
compare with master
unifiedsplit
@@ -4,8 +4,7 @@ import qualified Streamly.Mem.Array as A
4import qualified Streamly.FileSystem.Handle as FH
4import qualified Streamly.FileSystem.Handle as FH
5import qualified System.IO as FH
5import qualified System.IO as FH
6-- import qualified Streamly.FileSystem.FD as FH
6-- import qualified Streamly.FileSystem.FD as FH
7−import qualified Streamly.String as SS
7+-- import qualified Streamly.String as SS
8−import Data.Word (Word8)
9
8
10import Data.Char (ord)
9import Data.Char (ord)
11import System.Environment (getArgs)
10import System.Environment (getArgs)
@@ -13,21 +12,13 @@ import System.IO (IOMode(..), hSeek, SeekMode(..))
13
12
14cat :: FH.Handle -> IO ()
13cat :: FH.Handle -> IO ()
15cat src = FH.writeArrays FH.stdout $ FH.readArraysOfUpto (256*1024) src
14cat src = FH.writeArrays FH.stdout $ FH.readArraysOfUpto (256*1024) src
16−{-
17-- byte stream version
15-- byte stream version
18−cat src =
16+-- cat src = FH.write FH.stdout $ FH.read src
19− FH.writeByChunksOf (1024*1024) FH.stdout
20− $ FH.readByChunksUpto (16*1024) src
21−-}
22
17
23cp :: FH.Handle -> FH.Handle -> IO ()
18cp :: FH.Handle -> FH.Handle -> IO ()
24cp src dst = FH.writeArrays dst $ FH.readArraysOfUpto (256*1024) src
19cp src dst = FH.writeArrays dst $ FH.readArraysOfUpto (256*1024) src
25−{-
26-- byte stream version
20-- byte stream version
27−cp src dst =
21+-- cp src dst = FH.write dst $ FH.read src
28− FH.writeByChunksOf (1024*1024) dst
29− $ FH.readByChunksUpto (16*1024) src
30−-}
31
22
32ord' :: Num a => Char -> a
23ord' :: Num a => Char -> a
33ord' = (fromIntegral . ord)
24ord' = (fromIntegral . ord)