X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fiface%2FTcIface.lhs;h=b50ff7fb66bb766fa799a0e9d8d9f63796becaca;hb=da6ece6b866451c684dd96867e32c3fcba53c248;hp=adde9fb080b721ea8dea849372022d3c989281cb;hpb=318c22aad1837e471cbf59c6fddd6987a36c2c9b;p=ghc-hetmet.git

diff --git a/compiler/iface/TcIface.lhs b/compiler/iface/TcIface.lhs
index adde9fb..b50ff7f 100644
--- a/compiler/iface/TcIface.lhs
+++ b/compiler/iface/TcIface.lhs
@@ -814,10 +814,8 @@ tcIfaceAlt _ _ (IfaceLitAlt lit, names, rhs)
 -- work them out.  True enough, but its not that easy!
 tcIfaceAlt scrut (tycon, inst_tys) (IfaceDataAlt data_occ, arg_strs, rhs)
   = do	{ con <- tcIfaceDataCon data_occ
-#ifdef DEBUG
-	; when (not (con `elem` tyConDataCons tycon))
+	; when (debugIsOn && not (con `elem` tyConDataCons tycon))
 	       (failIfM (ppr scrut $$ ppr con $$ ppr tycon $$ ppr (tyConDataCons tycon)))
-#endif
 	; tcIfaceDataAlt con inst_tys arg_strs rhs }
 		  
 tcIfaceAlt _ (tycon, inst_tys) (IfaceTupleAlt boxity, arg_occs, rhs)