From: Manuel M T Chakravarty <chak@cse.unsw.edu.au>
Date: Tue, 19 Sep 2006 01:25:28 +0000 (+0000)
Subject: Adapt SimplUtils.getContArgs to conditional SubstEnv
X-Git-Tag: After_FC_branch_merge~99
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a43af120cd6317d6b8269ff7811c60ed23ac10c2

Adapt SimplUtils.getContArgs to conditional SubstEnv
---

diff --git a/compiler/simplCore/SimplUtils.lhs b/compiler/simplCore/SimplUtils.lhs
index 4b6c4a3..4a61341 100644
--- a/compiler/simplCore/SimplUtils.lhs
+++ b/compiler/simplCore/SimplUtils.lhs
@@ -246,7 +246,9 @@ getContArgs chkr fun orig_cont
 	where
 	  args = reverse acc
 	  hole_ty = applyTypeToArgs (Var fun) (idType fun)
-				    [substExpr se arg | (arg,se,_) <- args]
+				    [substExpr_mb se arg | (arg,se,_) <- args]
+          substExpr_mb Nothing   arg = arg
+	  substExpr_mb (Just se) arg = substExpr se arg
     
     ----------------------------
     vanilla_stricts, computed_stricts :: [Bool]