From c2e8f87214a5329a18ff41f0ef47c85bc469bc55 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 1 May 2001 11:37:18 +0000
Subject: [PATCH] [project @ 2001-05-01 11:37:18 by sewardj] Ignore tyvars on
 variables bound by case alts when generating unpack code.

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

diff --git a/ghc/compiler/ghci/ByteCodeGen.lhs b/ghc/compiler/ghci/ByteCodeGen.lhs
index d8f3032..4b1bed5 100644
--- a/ghc/compiler/ghci/ByteCodeGen.lhs
+++ b/ghc/compiler/ghci/ByteCodeGen.lhs
@@ -346,7 +346,7 @@ schemeE d s p (fvs, AnnCase scrut bndr alts)
         codeAlt alt@(discr, binds_f, rhs)
            | isAlgCase 
            = let (unpack_code, d_after_unpack, p_after_unpack)
-                    = mkUnpackCode binds_f d' p'
+                    = mkUnpackCode (filter (not.isTyVar) binds_f) d' p'
              in  schemeE d_after_unpack s p_after_unpack rhs
 					`thenBc` \ rhs_code -> 
                  returnBc (my_discr alt, unpack_code `appOL` rhs_code)
-- 
1.7.10.4