[project @ 1998-08-19 07:47:46 by sof]

[ghc-hetmet.git] / ghc / compiler / utils / FastString.lhs

diff --git a/ghc/compiler/utils/FastString.lhs b/ghc/compiler/utils/FastString.lhs
index 55723bc..d5d4997 100644 (file)
--- a/ghc/compiler/utils/FastString.lhs
+++ b/ghc/compiler/utils/FastString.lhs
@@ -61,7 +61,7 @@ import PrelPack
 import PrelST          ( StateAndPtr#(..) )
 import PrelHandle      ( readHandle, 
 #if __GLASGOW_HASKELL__ < 303
-                         filePtr, flushBuf,
+                         filePtr,
 #endif
                          writeHandle
                        )
@@ -78,7 +78,14 @@ import PrimPacked
 import GlaExts
 import Addr            ( Addr(..) )
 import MutableArray    ( MutableArray(..) )
+
+-- ForeignObj is now exported abstractly.
+#if __GLASGOW_HASKELL__ >= 303
+import qualified PrelForeign as Foreign  ( ForeignObj(..) )
+#else
 import Foreign         ( ForeignObj(..) )
+#endif
+
 import IOExts          ( IORef, newIORef, readIORef, writeIORef )
 import IO