Rename a constructor CmmForeignCall to CmmCallee, and tidy Cmm code

[ghc-hetmet.git] / compiler / nativeGen / AsmCodeGen.lhs

diff --git a/compiler/nativeGen/AsmCodeGen.lhs b/compiler/nativeGen/AsmCodeGen.lhs
index 3036a7a..672ff69 100644 (file)
--- 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