From: Malcolm.Wallace@me.com <unknown>
Date: Thu, 22 Jul 2010 07:54:49 +0000 (+0000)
Subject: Remove egregious ghc-ish from Foreign.Marshal
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b2b31d17c6599257a1bd3a3ba7a76d32ed2f28e5;p=ghc-base.git

Remove egregious ghc-ish from Foreign.Marshal
---

diff --git a/Foreign/Marshal.hs b/Foreign/Marshal.hs
index b815122..2c16c01 100644
--- 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