X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FsimplCore%2FSimplUtils.lhs;h=4a61341b5b95a8a150279a6df3a454f057f65d9c;hb=a43af120cd6317d6b8269ff7811c60ed23ac10c2;hp=196efb6915e0d84ab9ad488dea29d0ed612d61d6;hpb=bb394e57361d9910b05f1145cbc894d33759d2a6;p=ghc-hetmet.git

diff --git a/compiler/simplCore/SimplUtils.lhs b/compiler/simplCore/SimplUtils.lhs
index 196efb6..4a61341 100644
--- a/compiler/simplCore/SimplUtils.lhs
+++ b/compiler/simplCore/SimplUtils.lhs
@@ -5,7 +5,7 @@
 
 \begin{code}
 module SimplUtils (
-	mkLam, mkCase, mkDataConAlt,
+	mkLam, mkCase, 
 
 	-- Inlining,
 	preInlineUnconditionally, postInlineUnconditionally, activeInline, activeRule,
@@ -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]