Commit fa2fe973 authored by simonmar's avatar simonmar
Browse files

[project @ 2003-06-24 09:43:23 by simonmar]

Fix up compilation with GHC 5.02
parent 9d5c1a04
...@@ -78,6 +78,7 @@ import PrelIOBase ( IOError(..), IOErrorType(..) ...@@ -78,6 +78,7 @@ import PrelIOBase ( IOError(..), IOErrorType(..)
) )
import PrelReal ( Ratio(..) ) import PrelReal ( Ratio(..) )
import PrelIOBase ( IO(..) ) import PrelIOBase ( IO(..) )
import IOExts ( openFileEx, IOModeEx(..) )
#else #else
import Data.Array.IO import Data.Array.IO
import Data.Array import Data.Array
...@@ -96,8 +97,6 @@ import GHC.Real ( Ratio(..) ) ...@@ -96,8 +97,6 @@ import GHC.Real ( Ratio(..) )
import GHC.Exts import GHC.Exts
import GHC.IOBase ( IO(..) ) import GHC.IOBase ( IO(..) )
import GHC.Word ( Word8(..) ) import GHC.Word ( Word8(..) )
#endif
#if __GLASGOW_HASKELL__ < 601 #if __GLASGOW_HASKELL__ < 601
-- openFileEx is available from the lang package, but we want to -- openFileEx is available from the lang package, but we want to
-- be independent of hslibs libraries. -- be independent of hslibs libraries.
...@@ -105,6 +104,7 @@ import GHC.Handle ( openFileEx, IOModeEx(..) ) ...@@ -105,6 +104,7 @@ import GHC.Handle ( openFileEx, IOModeEx(..) )
#else #else
import System.IO ( openBinaryFile ) import System.IO ( openBinaryFile )
#endif #endif
#endif
#if __GLASGOW_HASKELL__ < 601 #if __GLASGOW_HASKELL__ < 601
openBinaryFile f mode = openFileEx f (BinaryMode mode) openBinaryFile f mode = openFileEx f (BinaryMode mode)
......
Supports Markdown
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