X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FsimplStg%2FLambdaLift.lhs;fp=ghc%2Fcompiler%2FsimplStg%2FLambdaLift.lhs;h=4ae2c835afa35365f7212dd824e11f6858e2979f;hb=8b653a82cdad2eef86395616256304ae4cb18b2b;hp=569447570247665a60a4cca05109fc5d699fa038;hpb=4631557d51ec5573faa28c2062a861e630ab4993;p=ghc-hetmet.git

diff --git a/ghc/compiler/simplStg/LambdaLift.lhs b/ghc/compiler/simplStg/LambdaLift.lhs
index 5694475..4ae2c83 100644
--- a/ghc/compiler/simplStg/LambdaLift.lhs
+++ b/ghc/compiler/simplStg/LambdaLift.lhs
@@ -161,15 +161,15 @@ liftExpr (StgCase scrut lv1 lv2 bndr srt alts)
     lift_alts alts	`thenLM` \ (alts', alts_info) ->
     returnLM (StgCase scrut' lv1 lv2 bndr srt alts', scrut_info `unionLiftInfo` alts_info)
   where
-    lift_alts (StgAlgAlts ty alg_alts deflt)
+    lift_alts (StgAlgAlts tycon alg_alts deflt)
 	= mapAndUnzipLM lift_alg_alt alg_alts	`thenLM` \ (alg_alts', alt_infos) ->
 	  lift_deflt deflt			`thenLM` \ (deflt', deflt_info) ->
-	  returnLM (StgAlgAlts ty alg_alts' deflt', foldr unionLiftInfo deflt_info alt_infos)
+	  returnLM (StgAlgAlts tycon alg_alts' deflt', foldr unionLiftInfo deflt_info alt_infos)
 
-    lift_alts (StgPrimAlts ty prim_alts deflt)
+    lift_alts (StgPrimAlts tycon prim_alts deflt)
 	= mapAndUnzipLM lift_prim_alt prim_alts	`thenLM` \ (prim_alts', alt_infos) ->
 	  lift_deflt deflt			`thenLM` \ (deflt', deflt_info) ->
-	  returnLM (StgPrimAlts ty prim_alts' deflt', foldr unionLiftInfo deflt_info alt_infos)
+	  returnLM (StgPrimAlts tycon prim_alts' deflt', foldr unionLiftInfo deflt_info alt_infos)
 
     lift_alg_alt (con, args, use_mask, rhs)
 	= liftExpr rhs		`thenLM` \ (rhs', rhs_info) ->