X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRename.lhs;h=de1e0be278f2135afeddd7fdf845a2bdfba83674;hb=e7b69c553c58133ddbdc756bec03a43d35b0be5e;hp=265a34f086339eb5220fe3c3b6dbc7682f1ea6a4;hpb=55d04fc7a6fbd58358f284bd84648dad09046f60;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/Rename.lhs b/ghc/compiler/rename/Rename.lhs
index 265a34f..de1e0be 100644
--- a/ghc/compiler/rename/Rename.lhs
+++ b/ghc/compiler/rename/Rename.lhs
@@ -688,8 +688,7 @@ printMinimalImports :: Module 	-- This module
 		    -> FiniteMap ModuleName AvailEnv	-- Minimal imports
 		    -> RnMG ()
 printMinimalImports this_mod unqual imps
-  = doptRn Opt_D_dump_minimal_imports		`thenRn` \ dump_minimal ->
-    if not dump_minimal then returnRn () else
+  = ifOptRn Opt_D_dump_minimal_imports 		$
 
     mapRn to_ies (fmToList imps)		`thenRn` \ mod_ies ->
     ioToRnM (do { h <- openFile filename WriteMode ;