remove empty dir

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

diff --git a/ghc/compiler/main/DriverPipeline.hs b/ghc/compiler/main/DriverPipeline.hs
index c70811b..e20bc56 100644 (file)
--- 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(..) )
@@ -117,7 +112,8 @@ compile hsc_env mod_summary maybe_old_linkable old_iface mod_index nmods = do
               | Just l <- maybe_old_linkable, isObjectLinkable l = True
               | otherwise = False
 
-   showPass dflags0 ("Compiling " ++ showModMsg have_object mod_summary)
+   -- FIXME: We need to know whether or not we're recompiling the file. Move this to HscMain?
+   --showPass dflags0 ("Compiling " ++ showModMsg have_object mod_summary)
 
    let location          = ms_location mod_summary
    let input_fn   = expectJust "compile:hs" (ml_hs_file location)