X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Frename%2FRnEnv.lhs;fp=compiler%2Frename%2FRnEnv.lhs;h=feea0c5e2a23b6b60e1b03dfc4328a687f513faf;hb=3fbb68876d8abbe66340789d09b4ce60bf68bac1;hp=ad7709a9367b9e9a2c1a6bcf76e174087f37b7eb;hpb=db604b9dd4cb26b317048d1c143693bbf8fa9727;p=ghc-hetmet.git

diff --git a/compiler/rename/RnEnv.lhs b/compiler/rename/RnEnv.lhs
index ad7709a..feea0c5 100644
--- a/compiler/rename/RnEnv.lhs
+++ b/compiler/rename/RnEnv.lhs
@@ -28,7 +28,7 @@ module RnEnv (
 	checkDupRdrNames, checkDupAndShadowedRdrNames,
         checkDupNames, checkDupAndShadowedNames, 
 	addFvRn, mapFvRn, mapMaybeFvRn, mapFvRnCPS,
-	warnUnusedMatches, warnUnusedModules, warnUnusedImports, 
+	warnUnusedMatches,
 	warnUnusedTopBinds, warnUnusedLocalBinds,
 	dataTcOccs, unknownNameErr, kindSigErr, perhapsForallMsg
     ) where
@@ -51,7 +51,6 @@ import NameEnv
 import UniqFM
 import DataCon		( dataConFieldLabels )
 import OccName
-import Module		( ModuleName )
 import PrelNames	( mkUnboundName, rOOT_MAIN, iNTERACTIVE, 
 			  consDataConKey, forall_tv_RDR )
 import Unique
@@ -1028,21 +1027,7 @@ mapFvRnCPS f (x:xs) cont = f x 		   $ \ x' ->
 %************************************************************************
 
 \begin{code}
-warnUnusedModules :: [(ModuleName,SrcSpan)] -> RnM ()
-warnUnusedModules mods
-  = ifOptM Opt_WarnUnusedImports (mapM_ bleat mods)
-  where
-    bleat (mod,loc) = addWarnAt loc (mk_warn mod)
-    mk_warn m = vcat [ptext (sLit "Module") <+> quotes (ppr m)
-			<+> text "is imported, but nothing from it is used,",
-		      nest 2 (ptext (sLit "except perhaps instances visible in") 
-			<+> quotes (ppr m)),
-		      ptext (sLit "To suppress this warning, use:") 
-			<+> ptext (sLit "import") <+> ppr m <> parens empty ]
-
-
-warnUnusedImports, warnUnusedTopBinds :: [GlobalRdrElt] -> RnM ()
-warnUnusedImports gres  = ifOptM Opt_WarnUnusedImports (warnUnusedGREs gres)
+warnUnusedTopBinds :: [GlobalRdrElt] -> RnM ()
 warnUnusedTopBinds gres
     = ifOptM Opt_WarnUnusedBinds
     $ do isBoot <- tcIsHsBoot