From 1aeeeaf808e13a81bc79e3e0e26cbe11ff2196bd Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Tue, 23 Sep 2003 15:10:43 +0000
Subject: [PATCH] [project @ 2003-09-23 15:10:43 by simonpj] Add more
 informative assertion

---
 ghc/compiler/stgSyn/CoreToStg.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
1.7.10.4