unbreak stdcall handling (caused by recent change to Outputable instance for CCallConv)
import ForeignCall ( ForeignCall(..), CCallSpec(..),
Safety(..), playSafe,
CExportSpec(..),
- CCallConv(..), ccallConvToInt
+ CCallConv(..), ccallConvToInt,
+ ccallConvAttribute
)
import CStrings ( CLabelString )
import TysWiredIn ( addrTy, unitTy, stablePtrTyCon )
pprCconv = case cc of
CCallConv -> empty
- StdCallConv -> ppr cc
+ StdCallConv -> text (ccallConvAttribute cc)
declareResult = text "HaskellObj ret;"