diff options
| -rw-r--r-- | compiler/GHC/Types/ForeignCall.hs | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/compiler/GHC/Types/ForeignCall.hs b/compiler/GHC/Types/ForeignCall.hs index 1ad35af232..9ea0917fc5 100644 --- a/compiler/GHC/Types/ForeignCall.hs +++ b/compiler/GHC/Types/ForeignCall.hs @@ -71,7 +71,7 @@ data Safety -- * No blocking -- * No precise exceptions -- - deriving ( Eq, Show, Data ) + deriving ( Eq, Show, Data, Enum ) -- Show used just for Show Lex.Token, I think instance Outputable Safety where @@ -153,9 +153,14 @@ stdcall: Caller allocates parameters, callee deallocates. See: http://www.programmersheaven.com/2/Calling-conventions -} --- any changes here should be replicated in the CallConv type in template haskell -data CCallConv = CCallConv | CApiConv | StdCallConv | PrimCallConv | JavaScriptCallConv - deriving (Eq, Data) +-- any changes here should be replicated in the CallConv type in template haskell +data CCallConv + = CCallConv + | CApiConv + | StdCallConv + | PrimCallConv + | JavaScriptCallConv + deriving (Eq, Data, Enum) instance Outputable CCallConv where ppr StdCallConv = text "stdcall" |