diff options
| author | simonpj@microsoft.com <unknown> | 2009-01-13 16:41:33 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2009-01-13 16:41:33 +0000 |
| commit | b01702b5d417de416cd9cff2f730112e08ce00d9 (patch) | |
| tree | a8dae62ca70fe6e28a744e08311d9736c6aefa1f /compiler/codeGen | |
| parent | 205d489c9254c0e5e2b229982b8b374bd8a7062d (diff) | |
| download | haskell-b01702b5d417de416cd9cff2f730112e08ce00d9.tar.gz | |
Make the ASSERT more informative
Diffstat (limited to 'compiler/codeGen')
| -rw-r--r-- | compiler/codeGen/ClosureInfo.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/codeGen/ClosureInfo.lhs b/compiler/codeGen/ClosureInfo.lhs index bc7dfec1b0..9598233d40 100644 --- a/compiler/codeGen/ClosureInfo.lhs +++ b/compiler/codeGen/ClosureInfo.lhs @@ -260,7 +260,7 @@ mkLFReEntrant top fvs args arg_descr mkLFThunk :: Type -> TopLevelFlag -> [Var] -> UpdateFlag -> LambdaFormInfo mkLFThunk thunk_ty top fvs upd_flag - = ASSERT( not (isUpdatable upd_flag) || not (isUnLiftedType thunk_ty) ) + = ASSERT2( not (isUpdatable upd_flag) || not (isUnLiftedType thunk_ty), ppr thunk_ty $$ ppr fvs ) LFThunk top (null fvs) (isUpdatable upd_flag) NonStandardThunk |