diff options
| author | Ian Lynagh <igloo@earth.li> | 2008-03-29 17:03:41 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2008-03-29 17:03:41 +0000 |
| commit | da6ece6b866451c684dd96867e32c3fcba53c248 (patch) | |
| tree | 121b0cbc6901de6d16e143f29d1d80ff19a58e23 /compiler | |
| parent | 318c22aad1837e471cbf59c6fddd6987a36c2c9b (diff) | |
| download | haskell-da6ece6b866451c684dd96867e32c3fcba53c248.tar.gz | |
DEBUG removal
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/iface/TcIface.lhs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/iface/TcIface.lhs b/compiler/iface/TcIface.lhs index adde9fb080..b50ff7fb66 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) |