diff options
| author | simonpj@microsoft.com <unknown> | 2010-09-14 11:39:00 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-09-14 11:39:00 +0000 |
| commit | 83a8fc9f6e04436784693a2188a58eac9c3e9664 (patch) | |
| tree | 32e6fc0aaa54e3ee014495691175d40031106925 /compiler | |
| parent | 13adf25f23091c8ef1a14cfb11ed9379ffbaed90 (diff) | |
| download | haskell-83a8fc9f6e04436784693a2188a58eac9c3e9664.tar.gz | |
Improve ASSERT
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/iface/TcIface.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/iface/TcIface.lhs b/compiler/iface/TcIface.lhs index 83a24584f0..fde31465ab 100644 --- a/compiler/iface/TcIface.lhs +++ b/compiler/iface/TcIface.lhs @@ -919,7 +919,7 @@ tcIfaceAlt scrut (tycon, inst_tys) (IfaceDataAlt data_occ, arg_strs, rhs) ; tcIfaceDataAlt con inst_tys arg_strs rhs } tcIfaceAlt _ (tycon, inst_tys) (IfaceTupleAlt _boxity, arg_occs, rhs) - = ASSERT( isTupleTyCon tycon ) + = ASSERT2( isTupleTyCon tycon, ppr tycon ) do { let [data_con] = tyConDataCons tycon ; tcIfaceDataAlt data_con inst_tys arg_occs rhs } |