git.iko.soy/streamly
on master help sign in
Expose IOVec for windows case as well
82e681eHarendra Kumar
src/Streamly/FileSystem/IOVec.hsc+4−4
compare with master
unifiedsplit
@@ -32,15 +32,15 @@ import System.Posix.Types (CSsize(..))
32-- IOVec
32-- IOVec
33-------------------------------------------------------------------------------
33-------------------------------------------------------------------------------
34
34
35−#if !defined(mingw32_HOST_OS)
36−
37−#include <sys/uio.h>
38−
39data IOVec = IOVec
35data IOVec = IOVec
40 { iovBase :: {-# UNPACK #-} !(Ptr Word8)
36 { iovBase :: {-# UNPACK #-} !(Ptr Word8)
41 , iovLen :: {-# UNPACK #-} !Word64
37 , iovLen :: {-# UNPACK #-} !Word64
42 } deriving (Eq, Show)
38 } deriving (Eq, Show)
43
39
40+#if !defined(mingw32_HOST_OS)
41+
42+#include <sys/uio.h>
43+
44#if __GLASGOW_HASKELL__ < 800
44#if __GLASGOW_HASKELL__ < 800
45#let alignment t = "%lu", (unsigned long)offsetof(struct {char x__; t (y__); }, y__)
45#let alignment t = "%lu", (unsigned long)offsetof(struct {char x__; t (y__); }, y__)
46#endif
46#endif