From: sof <unknown>
Date: Fri, 14 Aug 1998 17:40:00 +0000 (+0000)
Subject: [project @ 1998-08-14 17:40:00 by sof]
X-Git-Tag: Approx_2487_patches~338
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=225db1321a337b948a0ade821db81df6e79f1355;p=ghc-hetmet.git

[project @ 1998-08-14 17:40:00 by sof]
Clean up PrelIOBase import lists some more
---

diff --git a/ghc/compiler/utils/StringBuffer.lhs b/ghc/compiler/utils/StringBuffer.lhs
index d1fc13d..4eca5d8 100644
--- a/ghc/compiler/utils/StringBuffer.lhs
+++ b/ghc/compiler/utils/StringBuffer.lhs
@@ -63,22 +63,22 @@ import GlaExts
 import Addr 		( Addr(..) )
 import Foreign
 import ST
-import IO		( openFile, hFileSize, hClose, IOMode(..)
+
 #if __GLASGOW_HASKELL__ >= 303
-		        , slurpFile
+import IO		( slurpFile )
+#else
+import IO		( openFile, hFileSize, hClose, IOMode(..) )
 #endif
-		        )
+
 #if __GLASGOW_HASKELL__ < 301
 import IOBase		( IOError(..), IOErrorType(..) )
 import IOHandle		( readHandle, writeHandle, filePtr )
 import PackBase 	( unpackCStringBA )
 #else
-import PrelIOBase	( IOError(..), IOErrorType(..)
-#if __GLASGOW_HASKELL__ <= 302
-			, haFO__
-#endif
-			)
+# if __GLASGOW_HASKELL__ <= 302
+import PrelIOBase	( IOError(..), IOErrorType(..) )
 import PrelHandle	( readHandle, writeHandle )
+# endif
 import PrelPack		( unpackCStringBA )
 #endif