X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnBinds.lhs;h=7b2cf88e7cc8c26e7c6d4a5d1512e30bee2bd6de;hb=e7b69c553c58133ddbdc756bec03a43d35b0be5e;hp=32e37cd8e1e959d4319b738c711830303a757081;hpb=55d04fc7a6fbd58358f284bd84648dad09046f60;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnBinds.lhs b/ghc/compiler/rename/RnBinds.lhs
index 32e37cd..7b2cf88 100644
--- a/ghc/compiler/rename/RnBinds.lhs
+++ b/ghc/compiler/rename/RnBinds.lhs
@@ -167,16 +167,16 @@ rnTopMonoBinds mbinds sigs
 	bndr_name_set = mkNameSet binder_names
     in
     renameSigsFVs (okBindSig bndr_name_set) sigs 	`thenRn` \ (siglist, sig_fvs) ->
-    doptRn Opt_WarnMissingSigs				`thenRn` \ warnMissing ->
-    let
-	type_sig_vars	= [n | Sig n _ _ <- siglist]
-	un_sigd_binders | warnMissing = nameSetToList (delListFromNameSet 
-                                                          bndr_name_set type_sig_vars)
-			| otherwise   = []
-    in
-    mapRn_ missingSigWarn un_sigd_binders	`thenRn_`
 
-    rn_mono_binds siglist mbinds		   `thenRn` \ (final_binds, bind_fvs) ->
+    ifOptRn Opt_WarnMissingSigs (
+	let
+	    type_sig_vars   = [n | Sig n _ _ <- siglist]
+	    un_sigd_binders = nameSetToList (delListFromNameSet bndr_name_set type_sig_vars)
+	in
+        mapRn_ missingSigWarn un_sigd_binders
+    )						`thenRn_`
+
+    rn_mono_binds siglist mbinds		`thenRn` \ (final_binds, bind_fvs) ->
     returnRn (final_binds, bind_fvs `plusFV` sig_fvs)
   where
     binder_rdr_names = collectMonoBinders mbinds