From: simonmar <unknown>
Date: Thu, 19 Sep 2002 10:47:21 +0000 (+0000)
Subject: [project @ 2002-09-19 10:47:21 by simonmar]
X-Git-Tag: nhc98-1-18-release~849
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c9ac8f728076f424a6b5e4460dae67df0ef780fa;p=haskell-directory.git

[project @ 2002-09-19 10:47:21 by simonmar]
re-export unsafePerformIO
---

diff --git a/Foreign.hs b/Foreign.hs
index c4d07cd..15e26db 100644
--- a/Foreign.hs
+++ b/Foreign.hs
@@ -25,6 +25,10 @@ module Foreign
 	, module Foreign.Marshal.Array
 	, module Foreign.Marshal.Error
 	, module Foreign.Marshal.Utils
+
+	-- For compatibility with the FFI addendum only.  The recommended
+	-- place to get this from is System.IO.Unsafe.
+	, unsafePerformIO
         ) where
 
 import Data.Int
@@ -37,3 +41,5 @@ import Foreign.Marshal.Alloc
 import Foreign.Marshal.Array
 import Foreign.Marshal.Error
 import Foreign.Marshal.Utils
+
+import System.IO.Unsafe (unsafePerformIO)