[project @ 2002-02-12 15:17:13 by simonmar]

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

diff --git a/ghc/compiler/utils/StringBuffer.lhs b/ghc/compiler/utils/StringBuffer.lhs
index 291fee4..d5ea832 100644 (file)
--- a/ghc/compiler/utils/StringBuffer.lhs
+++ b/ghc/compiler/utils/StringBuffer.lhs
@@ -78,26 +78,34 @@ import Addr         ( Addr(..) )
 import Ptr             ( Ptr(..) )
 #endif
 
-#if __GLASGOW_HASKELL__ >= 501
+#if __GLASGOW_HASKELL__  < 501
+import Char            ( chr )
+#elif __GLASGOW_HASKELL__ < 503
 import PrelIO          ( hGetcBuffered )
 #else
-import Char            ( chr )
+import GHC.IO          ( hGetcBuffered )
 #endif
 
+import PrimPacked
+import FastString
+
 import GlaExts
 import Foreign
-
-import IO              ( openFile  )
+import IO              ( openFile, isEOFError )
 import IOExts          ( slurpFile )
-import PrelIOBase
-import PrelHandle
 import Addr
+import Exception       ( bracket )
 
-import PrelPack                ( unpackCStringBA )
+import CString         ( unpackCStringBA )
+
+#if __GLASGOW_HASKELL__ < 503
+import PrelIOBase
+import PrelHandle
+#else
+import GHC.IOBase
+import GHC.Handle
+#endif
 
-import Exception       ( bracket )
-import PrimPacked
-import FastString
 import Char            ( isDigit )
 \end{code}