Commit 7da0b20f authored by sof's avatar sof
Browse files

[project @ 1998-08-18 13:45:20 by sof]

Some more 3.03 ForeignObj adjustments
parent b013eb35
...@@ -48,7 +48,7 @@ module FastString ...@@ -48,7 +48,7 @@ module FastString
#define COMPILING_FAST_STRING #define COMPILING_FAST_STRING
#include "HsVersions.h" #include "HsVersions.h"
#if __GLASGOW_HASKELL__ < 301 #if 0 && __GLASGOW_HASKELL__ < 301
import PackBase import PackBase
import STBase ( StateAndPtr#(..) ) import STBase ( StateAndPtr#(..) )
import IOHandle ( filePtr, readHandle, writeHandle ) import IOHandle ( filePtr, readHandle, writeHandle )
...@@ -78,7 +78,14 @@ import PrimPacked ...@@ -78,7 +78,14 @@ import PrimPacked
import GlaExts import GlaExts
import Addr ( Addr(..) ) import Addr ( Addr(..) )
import MutableArray ( MutableArray(..) ) import MutableArray ( MutableArray(..) )
-- ForeignObj is now exported abstractly.
#if __GLASGOW_HASKELL__ >= 303
import qualified PrelForeign as Foreign ( ForeignObj(..) )
#else
import Foreign ( ForeignObj(..) ) import Foreign ( ForeignObj(..) )
#endif
import IOExts ( IORef, newIORef, readIORef, writeIORef ) import IOExts ( IORef, newIORef, readIORef, writeIORef )
import IO import IO
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment