From: simonpj <unknown>
Date: Tue, 23 Sep 2003 15:10:43 +0000 (+0000)
Subject: [project @ 2003-09-23 15:10:43 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~426
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1aeeeaf808e13a81bc79e3e0e26cbe11ff2196bd;p=ghc-hetmet.git

[project @ 2003-09-23 15:10:43 by simonpj]
Add more informative assertion
---

diff --git a/ghc/compiler/stgSyn/CoreToStg.lhs b/ghc/compiler/stgSyn/CoreToStg.lhs
index 603d2dd..8fdc003 100644
--- a/ghc/compiler/stgSyn/CoreToStg.lhs
+++ b/ghc/compiler/stgSyn/CoreToStg.lhs
@@ -257,7 +257,7 @@ mkTopStgRhs is_static rhs_fvs srt binder_info (StgConApp con args)
   = StgRhsCon noCCS con args
 
 mkTopStgRhs is_static rhs_fvs srt binder_info rhs
-  = ASSERT( not is_static )
+  = ASSERT2( not is_static, ppr rhs )
     StgRhsClosure noCCS binder_info
 		  (getFVs rhs_fvs)		 
 	          Updatable