@@ -38,6 +38,9 @@ import Control.Monad
38import Foreign.C
38import Foreign.C
39import Foreign.Ptr
39import Foreign.Ptr
40import Foreign.ForeignPtr
40import Foreign.ForeignPtr
41+#if MIN_VERSION_base(4,7,0)
42+import Foreign.ForeignPtr.Unsafe
41import Foreign.Marshal.Alloc
44import Foreign.Marshal.Alloc
42import Data.Data
45import Data.Data