projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2002-10-30 18:21:25 by ross]
[ghc-base.git]
/
Foreign.hs
diff --git
a/Foreign.hs
b/Foreign.hs
index
75639e4
..
15e26db
100644
(file)
--- a/
Foreign.hs
+++ b/
Foreign.hs
@@
-1,21
+1,16
@@
{-# OPTIONS -fno-implicit-prelude #-}
-----------------------------------------------------------------------------
{-# OPTIONS -fno-implicit-prelude #-}
-----------------------------------------------------------------------------
---
+-- |
-- Module : Foreign
-- Copyright : (c) The FFI task force 2001
-- Module : Foreign
-- Copyright : (c) The FFI task force 2001
--- License : BSD-style (see the file libraries/core/LICENSE)
+-- License : BSD-style (see the file libraries/base/LICENSE)
--
-- Maintainer : ffi@haskell.org
--
-- Maintainer : ffi@haskell.org
--- Stability : experimental
--- Portability : non-portable
---
--- $Id: Foreign.hs,v 1.1 2001/06/28 14:15:01 simonmar Exp $
+-- Stability : provisional
+-- Portability : portable
--
-- A collection of data types, classes, and functions for interfacing
--
-- A collection of data types, classes, and functions for interfacing
--- with another programming language. This is only a convenience module
--- in the future, but currently it has the additional task of hiding
--- those entities exported from other modules, which are not part of the
--- FFI proposal.
+-- with another programming language.
--
-----------------------------------------------------------------------------
--
-----------------------------------------------------------------------------
@@
-30,6
+25,10
@@
module Foreign
, module Foreign.Marshal.Array
, module Foreign.Marshal.Error
, module Foreign.Marshal.Utils
, 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
) where
import Data.Int
@@
-42,3
+41,5
@@
import Foreign.Marshal.Alloc
import Foreign.Marshal.Array
import Foreign.Marshal.Error
import Foreign.Marshal.Utils
import Foreign.Marshal.Array
import Foreign.Marshal.Error
import Foreign.Marshal.Utils
+
+import System.IO.Unsafe (unsafePerformIO)