From: Lemmih <lemmih@gmail.com>
Date: Sun, 12 Mar 2006 13:23:28 +0000 (+0000)
Subject: Cleanup after the OPTIONS parsing was moved.
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=3eacdc7faf0d0e87a7201253f9f12c1fb4db7249

Cleanup after the OPTIONS parsing was moved.
---

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index c70811b..ac98eff 100644
--- a/ghc/compiler/main/DriverPipeline.hs
+++ b/ghc/compiler/main/DriverPipeline.hs
@@ -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(..) )
diff --git a/ghc/compiler/main/GHC.hs b/ghc/compiler/main/GHC.hs
index cef3a72..b2c86df 100644
--- a/ghc/compiler/main/GHC.hs
+++ b/ghc/compiler/main/GHC.hs
@@ -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