53d5e9f · streamly · git.iko.soy

git.iko.soy/streamly

update for fold based IO

commit53d5e9f0e1213791e6e36d27707ad438cc6036bb authorHarendra Kumar <harendra.kumar@gmail.com> dateMon 12 Aug 2019, 05:07 (7 years ago) parent2f96dda

2 files changed+4−4

unifiedsplit

README.md+2−2

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

431431### cat

432432

433433``` haskell

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

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

435435main = withArg cat

436436```

437437

438438### cp

439439

440440``` haskell

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

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

442442main = withArg2 cp

443443```

444444

examples/HandleIO.hs+2−2

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

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

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

1616-- 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

1818

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

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

2121-- 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

2323

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

2525ord' = (fromIntegral . ord)