@@ -41,6 +41,10 @@ data IOVec = IOVec
41 , iovLen :: {-# UNPACK #-} !Word64
41 , iovLen :: {-# UNPACK #-} !Word64
42 } deriving (Eq, Show)
42 } deriving (Eq, Show)
44+#if __GLASGOW_HASKELL__ < 800
45+#let alignment t = "%lu", (unsigned long)offsetof(struct {char x__; t (y__); }, y__)
44instance Storable IOVec where
48instance Storable IOVec where
45 sizeOf _ = #{size struct iovec}
49 sizeOf _ = #{size struct iovec}
46 alignment _ = #{alignment struct iovec}
50 alignment _ = #{alignment struct iovec}