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