X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FHscMain.lhs;h=d25202fd3b0f8e0330c461be49902f75275c415a;hb=273be06fa7cb1297284dbb553ecc9be7d07df6af;hp=fdad85282d84d58c42874ac3bf2321604b527978;hpb=aaa34891cb9cd87b803aef8dfc5386545b7a0784;p=ghc-hetmet.git

diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs
index fdad852..d25202f 100644
--- a/compiler/main/HscMain.lhs
+++ b/compiler/main/HscMain.lhs
@@ -41,7 +41,7 @@ import PrelNames	( iNTERACTIVE )
 import Kind		( Kind )
 import CoreLint		( lintUnfolding )
 import DsMeta		( templateHaskellNames )
-import SrcLoc		( noSrcLoc )
+import SrcLoc		( noSrcLoc, getLoc )
 import VarEnv		( emptyTidyEnv )
 #endif
 
@@ -397,9 +397,9 @@ batchMsg mb_mod_index recomp
          liftIO $ do
          if recomp
             then showMsg "Compiling "
-            else showMsg "Skipping  "
-
-
+            else if verbosity (hsc_dflags hsc_env) >= 2
+                    then showMsg "Skipping  "
+                    else return ()
 
 --------------------------------------------------------------
 -- FrontEnds
@@ -901,7 +901,8 @@ compileExpr :: HscEnv
 
 compileExpr hsc_env this_mod rdr_env type_env tc_expr
   = do	{ let { dflags  = hsc_dflags hsc_env ;
-		lint_on = dopt Opt_DoCoreLinting dflags }
+		lint_on = dopt Opt_DoCoreLinting dflags ;
+		!srcspan = getLoc tc_expr }
 	      
 	 	-- Desugar it
 	; ds_expr <- deSugarExpr hsc_env this_mod rdr_env type_env tc_expr
@@ -931,7 +932,7 @@ compileExpr hsc_env this_mod rdr_env type_env tc_expr
 	; bcos <- coreExprToBCOs dflags prepd_expr
 
 		-- link it
-	; hval <- linkExpr hsc_env bcos
+	; hval <- linkExpr hsc_env srcspan bcos
 
 	; return hval
      }