From b2b31d17c6599257a1bd3a3ba7a76d32ed2f28e5 Mon Sep 17 00:00:00 2001
From: "Malcolm.Wallace@me.com" <unknown>
Date: Thu, 22 Jul 2010 07:54:49 +0000
Subject: [PATCH] Remove egregious ghc-ish from Foreign.Marshal

---
 Foreign/Marshal.hs |    4 ++++
 1 file changed, 4 insertions(+)

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
-- 
1.7.10.4