git.iko.soy/streamly
on master help sign in
use RawIO.write because it works for windows as well
d0bf559Harendra Kumar
src/Streamly/FileSystem/FD.hs+4−3
compare with master
unifiedsplit
@@ -134,8 +134,8 @@ import System.IO (IOMode)
134import Prelude hiding (read)
134import Prelude hiding (read)
135
135
136import qualified GHC.IO.FD as FD
136import qualified GHC.IO.FD as FD
137−import qualified GHC.IO.Device as RawIO hiding (write)
137+import qualified GHC.IO.Device as RawIO
138−import qualified Streamly.FileSystem.FDIO as RawIO
138+import qualified Streamly.FileSystem.FDIO as RawIO hiding (write)
139
139
140import Streamly.Mem.Array.Types (Array(..))
140import Streamly.Mem.Array.Types (Array(..))
141import Streamly.Streams.Serial (SerialT)
141import Streamly.Streams.Serial (SerialT)
@@ -242,7 +242,8 @@ readArrayUpto size (Handle fd) = do
242writeArray :: Storable a => Handle -> Array a -> IO ()
242writeArray :: Storable a => Handle -> Array a -> IO ()
243writeArray _ arr | A.length arr == 0 = return ()
243writeArray _ arr | A.length arr == 0 = return ()
244writeArray (Handle fd) arr = withForeignPtr (aStart arr) $ \p -> do
244writeArray (Handle fd) arr = withForeignPtr (aStart arr) $ \p -> do
245− RawIO.writeAll fd (castPtr p) aLen
245+ -- RawIO.writeAll fd (castPtr p) aLen
246+ RawIO.write fd (castPtr p) aLen
246 {-
247 {-
247 -- Experiment to compare "writev" based IO with "write" based IO.
248 -- Experiment to compare "writev" based IO with "write" based IO.
248 iov <- A.newArray 1
249 iov <- A.newArray 1