remove empty dir

[ghc-hetmet.git] / ghc / compiler / main / GHC.hs

diff --git a/ghc/compiler/main/GHC.hs b/ghc/compiler/main/GHC.hs
index cef3a72..3f91af6 100644 (file)
--- 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
@@ -2050,7 +2046,7 @@ showModule :: Session -> ModSummary -> IO String
 showModule s mod_summary = withSession s $ \hsc_env -> do
   case lookupModuleEnv (hsc_HPT hsc_env) (ms_mod mod_summary) of
        Nothing       -> panic "missing linkable"
-       Just mod_info -> return (showModMsg obj_linkable mod_summary)
+       Just mod_info -> return (showModMsg (hscTarget (hsc_dflags hsc_env)) (not obj_linkable) mod_summary)
                      where
                         obj_linkable = isObjectLinkable (expectJust "showModule" (hm_linkable mod_info))