Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
d78ab147
Commit
d78ab147
authored
Jun 20, 2008
by
Ian Lynagh
Browse files
Now that we require GHC >= 6.4.2, System.IO.Error is always available
parent
53ddf8f4
Changes
5
Hide whitespace changes
Inline
Side-by-side
compiler/HsVersions.h
View file @
d78ab147
...
...
@@ -22,12 +22,6 @@ you will screw up the layout where they are used in case expressions!
* settings for the target plat instead). */
#include "../includes/ghcautoconf.h"
#if !defined(__GLASGOW_HASKELL__) || __GLASGOW_HASKELL__ >= 602
#define SYSTEM_IO_ERROR System.IO.Error
#else
#define SYSTEM_IO_ERROR System.IO
#endif
/* Global variables may not work in other Haskell implementations,
* but we need them currently! so the conditional on GLASGOW won't do. */
#if defined(__GLASGOW_HASKELL__) || !defined(__GLASGOW_HASKELL__)
...
...
compiler/main/DriverMkDepend.hs
View file @
d78ab147
...
...
@@ -38,7 +38,7 @@ import System.Exit ( ExitCode(..), exitWith )
import
System.Directory
import
System.FilePath
import
System.IO
import
S
YSTEM_IO_ERROR
(
isEOFError
)
import
S
ystem.IO.Error
(
isEOFError
)
import
Control.Monad
(
when
)
import
Data.Maybe
(
isJust
)
...
...
compiler/main/DriverPipeline.hs
View file @
d78ab147
...
...
@@ -53,7 +53,7 @@ import GHC.Exts ( Int(..) )
import
System.Directory
import
System.FilePath
import
System.IO
import
S
YSTEM_IO_ERROR
as
IO
import
S
ystem.IO.Error
as
IO
import
Control.Monad
import
Data.List
(
isSuffixOf
)
import
Data.Maybe
...
...
compiler/main/SysTools.lhs
View file @
d78ab147
...
...
@@ -52,7 +52,7 @@ import System.Exit
import System.Environment
import System.FilePath
import System.IO
import S
YSTEM_IO_ERROR
as IO
import S
ystem.IO.Error
as IO
import System.Directory
import Data.Char
import Data.Maybe
...
...
compiler/utils/Util.lhs
View file @
d78ab147
...
...
@@ -94,7 +94,7 @@ import FastTypes
#endif
import Control.Monad ( unless )
import S
YSTEM_IO_ERROR
as IO ( catch, isDoesNotExistError )
import S
ystem.IO.Error
as IO ( catch, isDoesNotExistError )
import System.Directory ( doesDirectoryExist, createDirectory,
getModificationTime )
import System.FilePath hiding ( searchPathSeparator )
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment