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(..)
)
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)
......
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