53d5e9f · streamly · git.iko.soy

git.iko.soy/streamly

on master help sign in

update for fold based IO

53d5e9fHarendra Kumar7 years ago

README.md+2−2

@@ -431,14 +431,14 @@ withArg2 f = do

431### cat

432

433``` haskell

434−cat = FH.writeArrays stdout . FH.readArrays

434+cat = S.runFold (FH.writeArrays stdout) . FH.readArrays

435main = withArg cat

436```

437

438### cp

439

440``` haskell

441−cp src dst = FH.writeArrays dst $ FH.readArrays src

441+cp src dst = S.runFold (FH.writeArrays dst) $ FH.readArrays src

442main = withArg2 cp

443```

444

examples/HandleIO.hs+2−2

@@ -14,12 +14,12 @@ import System.IO (IOMode(..), hSeek, SeekMode(..))

14cat :: FH.Handle -> IO ()

15cat src = S.runFold (FH.writeArrays FH.stdout) $ FH.readArraysOf (256*1024) src

16-- byte stream version

17−-- cat src = FH.write FH.stdout $ FH.read src

17+-- cat src = S.runFold (FH.write FH.stdout) $ FH.read src

19cp :: FH.Handle -> FH.Handle -> IO ()

20cp src dst = S.runFold (FH.writeArrays dst) $ FH.readArraysOf (256*1024) src

21-- byte stream version

22−-- cp src dst = FH.write dst $ FH.read src

22+-- cp src dst = S.runFold (FH.write dst) $ FH.read src

24ord' :: Num a => Char -> a

25ord' = (fromIntegral . ord)