From: simonpj@microsoft.com <unknown>
Date: Tue, 15 Aug 2006 07:02:46 +0000 (+0000)
Subject: Typo in patch that dealt with duplicating continuations in Simplify
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=273d4e210f6cddaab00295ecb7e5bc6f22ffdd68

Typo in patch that dealt with duplicating continuations in Simplify
---

diff --git a/compiler/simplCore/Simplify.lhs b/compiler/simplCore/Simplify.lhs
index fa5798f..5915dd2 100644
--- a/compiler/simplCore/Simplify.lhs
+++ b/compiler/simplCore/Simplify.lhs
@@ -1826,10 +1826,10 @@ mkDupableCont env (ApplyTo _ arg mb_se cont)
 	; (floats2, arg2) <- mkDupableArg env arg1
 	; return (floats2, (ApplyTo OkToDup arg2 Nothing dup_cont, nondup_cont)) }}
 
-mkDupableCont env cont@(Select _ case_bndr [_] _ _)
+mkDupableCont env cont@(Select _ case_bndr [_] se _)
   = returnSmpl (emptyFloats env, (mkBoringStop scrut_ty, cont))
   where
-    scrut_ty = substTy env (idType case_bndr)
+    scrut_ty = substTy se (idType case_bndr)
 	-- This case is just like the previous one.  Here's an example:
 	--	data T a = MkT !a
 	--	...(MkT (abs x))...