Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Open sidebar
Alex D
GHC
Commits
3eacdc7f
Commit
3eacdc7f
authored
Mar 12, 2006
by
David Himmelstrup
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Cleanup after the OPTIONS parsing was moved.
parent
fa9c11a2
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
2 additions
and
11 deletions
+2
-11
ghc/compiler/main/DriverPipeline.hs
ghc/compiler/main/DriverPipeline.hs
+1
-6
ghc/compiler/main/GHC.hs
ghc/compiler/main/GHC.hs
+1
-5
No files found.
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