1 files changed, 4 insertions, 0 deletions

diff --git a/src/Data/Primitive/Struct.hs b/src/Data/Primitive/Struct.hs
index 705e65d..92bd387 100644
--- a/src/Data/Primitive/Struct.hs
+++ b/src/Data/Primitive/Struct.hs
@@ -110,7 +110,11 @@ instance IsStruct IO Ptr where
 
 withPointer :: Struct IO base tag -> (Ptr tag -> IO x) -> IO x
 withPointer (Struct (Offset off) ary) f = do
+#if !MIN_VERSION_primitive(0,7,0)
     x <- f (ptr (mutableByteArrayContents ary) `plusPtr` off)
+#else
+    x <- f ((mutableByteArrayContents ary) `plusPtr` off)
+#endif
     seq ary $ return x
 
 data ForeignStruct tag = ForeignStruct