From: simonmar <unknown>
Date: Tue, 24 Jun 2003 09:43:23 +0000 (+0000)
Subject: [project @ 2003-06-24 09:43:23 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~745
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=fa2fe973ad0a42795b1b3c066c8c427f919da2aa;p=ghc-hetmet.git

[project @ 2003-06-24 09:43:23 by simonmar]
Fix up compilation with GHC 5.02
---

diff --git a/ghc/compiler/utils/Binary.hs b/ghc/compiler/utils/Binary.hs
index 7d5990b..690fb56 100644
--- a/ghc/compiler/utils/Binary.hs
+++ b/ghc/compiler/utils/Binary.hs
@@ -78,6 +78,7 @@ import PrelIOBase		( IOError(..), IOErrorType(..)
 				)
 import PrelReal			( Ratio(..) )
 import PrelIOBase	 	( IO(..) )
+import IOExts			( openFileEx, IOModeEx(..) )
 #else
 import Data.Array.IO
 import Data.Array
@@ -96,8 +97,6 @@ import GHC.Real			( Ratio(..) )
 import GHC.Exts
 import GHC.IOBase	 	( IO(..) )
 import GHC.Word			( Word8(..) )
-#endif
-
 #if __GLASGOW_HASKELL__ < 601
 -- openFileEx is available from the lang package, but we want to 
 -- be independent of hslibs libraries.
@@ -105,6 +104,7 @@ import GHC.Handle		( openFileEx, IOModeEx(..) )
 #else
 import System.IO		( openBinaryFile )
 #endif
+#endif
 
 #if __GLASGOW_HASKELL__ < 601
 openBinaryFile f mode = openFileEx f (BinaryMode mode)