From: sof <unknown>
Date: Wed, 6 Feb 2002 20:52:51 +0000 (+0000)
Subject: [project @ 2002-02-06 20:52:51 by sof]
X-Git-Tag: Approximately_9120_patches~132
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1084e251403a4e2e756c2ce5235e3731f61f9df6;p=ghc-hetmet.git

[project @ 2002-02-06 20:52:51 by sof]
unbreak stdcall handling (caused by recent change to Outputable instance for CCallConv)
---

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;"