Commit 3eacdc7f authored by David Himmelstrup's avatar David Himmelstrup

Cleanup after the OPTIONS parsing was moved.

parent fa9c11a2
...@@ -45,15 +45,10 @@ import Util ...@@ -45,15 +45,10 @@ import Util
import StringBuffer ( hGetStringBuffer ) import StringBuffer ( hGetStringBuffer )
import BasicTypes ( SuccessFlag(..) ) import BasicTypes ( SuccessFlag(..) )
import Maybes ( expectJust ) import Maybes ( expectJust )
import Ctype ( is_ident )
import StringBuffer ( StringBuffer(..), lexemeToString )
import ParserCoreUtils ( getCoreModuleName ) import ParserCoreUtils ( getCoreModuleName )
import SrcLoc ( srcLocSpan, mkSrcLoc, unLoc ) import SrcLoc ( unLoc )
import FastString ( mkFastString )
import SrcLoc ( Located(..) ) import SrcLoc ( Located(..) )
import Distribution.Compiler ( extensionsToGHCFlag )
import EXCEPTION import EXCEPTION
import DATA_IOREF ( readIORef, writeIORef, IORef ) import DATA_IOREF ( readIORef, writeIORef, IORef )
import GLAEXTS ( Int(..) ) import GLAEXTS ( Int(..) )
......
...@@ -208,13 +208,12 @@ import InstEnv ( Instance, instanceDFunId, pprInstance, pprInstanceHdr ) ...@@ -208,13 +208,12 @@ import InstEnv ( Instance, instanceDFunId, pprInstance, pprInstanceHdr )
import SrcLoc import SrcLoc
import DriverPipeline import DriverPipeline
import DriverPhases ( Phase(..), isHaskellSrcFilename, startPhase ) import DriverPhases ( Phase(..), isHaskellSrcFilename, startPhase )
import HeaderInfo ( getImports, getOptions, optionsErrorMsgs ) import HeaderInfo ( getImports, getOptions )
import Packages ( isHomePackage ) import Packages ( isHomePackage )
import Finder import Finder
import HscMain ( newHscEnv, hscFileCheck, HscChecked(..) ) import HscMain ( newHscEnv, hscFileCheck, HscChecked(..) )
import HscTypes import HscTypes
import DynFlags import DynFlags
import StaticFlags
import SysTools ( initSysTools, cleanTempFiles ) import SysTools ( initSysTools, cleanTempFiles )
import Module import Module
import FiniteMap import FiniteMap
...@@ -244,7 +243,6 @@ import Control.Exception as Exception hiding (handle) ...@@ -244,7 +243,6 @@ import Control.Exception as Exception hiding (handle)
import Data.IORef import Data.IORef
import System.IO import System.IO
import System.IO.Error ( isDoesNotExistError ) import System.IO.Error ( isDoesNotExistError )
import System.IO.Unsafe ( unsafePerformIO )
import Prelude hiding (init) import Prelude hiding (init)
#if __GLASGOW_HASKELL__ < 600 #if __GLASGOW_HASKELL__ < 600
...@@ -784,8 +782,6 @@ checkModule session@(Session ref) mod = do ...@@ -784,8 +782,6 @@ checkModule session@(Session ref) mod = do
renamedSource = renamed, renamedSource = renamed,
typecheckedSource = Just tc_binds, typecheckedSource = Just tc_binds,
checkedModuleInfo = Just minf })) checkedModuleInfo = Just minf }))
_other ->
panic "checkModule"
-- --------------------------------------------------------------------------- -- ---------------------------------------------------------------------------
-- Unloading -- Unloading
......
Markdown is supported
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