X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FAsmCodeGen.lhs;h=672ff6906efa2f935c94645b743a894bcbd385b9;hb=9ec880fcb29ff038bcc72d78bbe2fd6933566047;hp=3036a7ac6a38cba99f2422a7be2e28dd7cfc9fd4;hpb=81b2276ff9434d97aff683218c34c86479a8d868;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs
index 3036a7a..672ff69 100644
--- a/compiler/nativeGen/AsmCodeGen.lhs
+++ b/compiler/nativeGen/AsmCodeGen.lhs
@@ -519,9 +519,9 @@ cmmStmtConFold stmt
 
 	CmmCall target regs args srt
 	   -> do target' <- case target of
-			      CmmForeignCall e conv -> do
+			      CmmCallee e conv -> do
 			        e' <- cmmExprConFold CallReference e
-			        return $ CmmForeignCall e' conv
+			        return $ CmmCallee e' conv
 			      other -> return other
                  args' <- mapM (\(arg, hint) -> do
                                   arg' <- cmmExprConFold DataReference arg