Remove egregious ghc-ish from Foreign.Marshal

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

diff --git a/Foreign/Marshal.hs b/Foreign/Marshal.hs
index b815122..2c16c01 100644 (file)
--- a/Foreign/Marshal.hs
+++ b/Foreign/Marshal.hs
@@ -32,7 +32,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