Fix deprecation of Foreign.Safe in base 4.8 master
authorDavid Terei <code@davidterei.com>
Fri, 21 Nov 2014 19:34:37 +0000 (11:34 -0800)
committerDavid Terei <code@davidterei.com>
Fri, 21 Nov 2014 19:34:37 +0000 (11:34 -0800)
Foreign/Marshal/Array.hs

index 4f8d181..7f45c46 100644 (file)
@@ -66,7 +66,7 @@ module Foreign.Marshal.Array (
   ) where
 import qualified "base" Foreign.Marshal.Array as Base
 import "base" Foreign.Marshal.Array hiding (peekArray)
-#if __GLASGOW_HASKELL__ >= 701
+#if __GLASGOW_HASKELL__ >= 701 && __GLASGOW_HASKELL__ < 709
 import "base" Foreign.Safe hiding (peekArray)
 #else
 import "base" Foreign hiding (peekArray)