From 1084e251403a4e2e756c2ce5235e3731f61f9df6 Mon Sep 17 00:00:00 2001 From: sof Date: Wed, 6 Feb 2002 20:52:51 +0000 Subject: [PATCH] [project @ 2002-02-06 20:52:51 by sof] unbreak stdcall handling (caused by recent change to Outputable instance for CCallConv) --- ghc/compiler/deSugar/DsForeign.lhs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/ghc/compiler/deSugar/DsForeign.lhs b/ghc/compiler/deSugar/DsForeign.lhs index dadd503..30f1089 100644 --- a/ghc/compiler/deSugar/DsForeign.lhs +++ b/ghc/compiler/deSugar/DsForeign.lhs @@ -39,7 +39,8 @@ import TcType ( Type, mkFunTys, mkForAllTys, mkTyConApp, import ForeignCall ( ForeignCall(..), CCallSpec(..), Safety(..), playSafe, CExportSpec(..), - CCallConv(..), ccallConvToInt + CCallConv(..), ccallConvToInt, + ccallConvAttribute ) import CStrings ( CLabelString ) import TysWiredIn ( addrTy, unitTy, stablePtrTyCon ) @@ -496,7 +497,7 @@ fexportEntry mod_nm c_nm helper args res_ty cc isDyn = (header_bits, c_bits) pprCconv = case cc of CCallConv -> empty - StdCallConv -> ppr cc + StdCallConv -> text (ccallConvAttribute cc) declareResult = text "HaskellObj ret;" -- 1.7.10.4