Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
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
Markdown
is supported
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