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
3eacdc7f
Commit
3eacdc7f
authored
Mar 12, 2006
by
David Himmelstrup
Browse files
Cleanup after the OPTIONS parsing was moved.
parent
fa9c11a2
Changes
2
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/main/DriverPipeline.hs
View file @
3eacdc7f
...
...
@@ -45,15 +45,10 @@ import Util
import
StringBuffer
(
hGetStringBuffer
)
import
BasicTypes
(
SuccessFlag
(
..
)
)
import
Maybes
(
expectJust
)
import
Ctype
(
is_ident
)
import
StringBuffer
(
StringBuffer
(
..
),
lexemeToString
)
import
ParserCoreUtils
(
getCoreModuleName
)
import
SrcLoc
(
srcLocSpan
,
mkSrcLoc
,
unLoc
)
import
FastString
(
mkFastString
)
import
SrcLoc
(
unLoc
)
import
SrcLoc
(
Located
(
..
)
)
import
Distribution.Compiler
(
extensionsToGHCFlag
)
import
EXCEPTION
import
DATA_IOREF
(
readIORef
,
writeIORef
,
IORef
)
import
GLAEXTS
(
Int
(
..
)
)
...
...
ghc/compiler/main/GHC.hs
View file @
3eacdc7f
...
...
@@ -208,13 +208,12 @@ import InstEnv ( Instance, instanceDFunId, pprInstance, pprInstanceHdr )
import
SrcLoc
import
DriverPipeline
import
DriverPhases
(
Phase
(
..
),
isHaskellSrcFilename
,
startPhase
)
import
HeaderInfo
(
getImports
,
getOptions
,
optionsErrorMsgs
)
import
HeaderInfo
(
getImports
,
getOptions
)
import
Packages
(
isHomePackage
)
import
Finder
import
HscMain
(
newHscEnv
,
hscFileCheck
,
HscChecked
(
..
)
)
import
HscTypes
import
DynFlags
import
StaticFlags
import
SysTools
(
initSysTools
,
cleanTempFiles
)
import
Module
import
FiniteMap
...
...
@@ -244,7 +243,6 @@ import Control.Exception as Exception hiding (handle)
import
Data.IORef
import
System.IO
import
System.IO.Error
(
isDoesNotExistError
)
import
System.IO.Unsafe
(
unsafePerformIO
)
import
Prelude
hiding
(
init
)
#
if
__GLASGOW_HASKELL__
<
600
...
...
@@ -784,8 +782,6 @@ checkModule session@(Session ref) mod = do
renamedSource
=
renamed
,
typecheckedSource
=
Just
tc_binds
,
checkedModuleInfo
=
Just
minf
}))
_other
->
panic
"checkModule"
-- ---------------------------------------------------------------------------
-- Unloading
...
...
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