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

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]