Use explicit language extensions & remove extension fields from base.cabal

[ghc-base.git] / Foreign / Marshal.hs

diff --git a/Foreign/Marshal.hs b/Foreign/Marshal.hs
index b815122..77a4ebf 100644 (file)
--- a/Foreign/Marshal.hs
+++ b/Foreign/Marshal.hs
@@ -1,4 +1,5 @@
-{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+{-# LANGUAGE CPP, NoImplicitPrelude #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Foreign.Marshal
@@ -32,7 +33,11 @@ import Foreign.Marshal.Error
 import Foreign.Marshal.Pool
 import Foreign.Marshal.Utils
 
+#ifdef __GLASGOW_HASKELL__
 import GHC.IO
+#else
+import System.IO.Unsafe
+#endif
 
 {- |
 Sometimes an external entity is a pure function, except that it passes