git.iko.soy/streamly
on master help sign in
Fix "Invalid byte" on file read
c436e3cHarendra Kumar
benchmark/Streamly/Benchmark/FileSystem/Handle/ReadWrite.hs+2−2
compare with master
unifiedsplit
@@ -24,7 +24,7 @@ module Handle.ReadWrite
24where
24where
25
25
26import Control.Exception (SomeException)
26import Control.Exception (SomeException)
27−import System.IO (Handle, hClose, hGetChar)
27+import System.IO (Handle, hClose, hPutChar)
28import Prelude hiding (last, length)
28import Prelude hiding (last, length)
29
29
30import qualified Streamly.Data.Fold as FL
30import qualified Streamly.Data.Fold as FL
@@ -407,7 +407,7 @@ readWriteBeforeAfterStream :: Handle -> Handle -> IO ()
407readWriteBeforeAfterStream inh devNull =
407readWriteBeforeAfterStream inh devNull =
408 let readEx =
408 let readEx =
409 IP.after (hClose inh)
409 IP.after (hClose inh)
410− $ IP.before (hGetChar inh) (S.unfold FH.read inh)
410+ $ IP.before (hPutChar devNull 'A') (S.unfold FH.read inh)
411 in S.fold (FH.write devNull) readEx
411 in S.fold (FH.write devNull) readEx
412
412
413readWriteAfterStream :: Handle -> Handle -> IO ()
413readWriteAfterStream :: Handle -> Handle -> IO ()