Commit 36565a9b authored by Ömer Sinan Ağacan's avatar Ömer Sinan Ağacan

ForeignCall.hs: Remove DrIFT directives

parent 20789091
......@@ -37,7 +37,6 @@ import Data.Data
newtype ForeignCall = CCall CCallSpec
deriving Eq
{-! derive: Binary !-}
isSafeForeignCall :: ForeignCall -> Bool
isSafeForeignCall (CCall (CCallSpec _ _ safe)) = playSafe safe
......@@ -64,7 +63,6 @@ data Safety
-- without interacting with the runtime system at all
deriving ( Eq, Show, Data )
-- Show used just for Show Lex.Token, I think
{-! derive: Binary !-}
instance Outputable Safety where
ppr PlaySafe = text "safe"
......@@ -95,14 +93,12 @@ data CExportSpec
CLabelString -- C Name of exported function
CCallConv
deriving Data
{-! derive: Binary !-}
data CCallSpec
= CCallSpec CCallTarget -- What to call
CCallConv -- Calling convention to use.
Safety
deriving( Eq )
{-! derive: Binary !-}
-- The call target:
......@@ -130,7 +126,6 @@ data CCallTarget
| DynamicTarget
deriving( Eq, Data )
{-! derive: Binary !-}
isDynamicTarget :: CCallTarget -> Bool
isDynamicTarget DynamicTarget = True
......@@ -151,7 +146,6 @@ 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)
{-! derive: Binary !-}
instance Outputable CCallConv where
ppr StdCallConv = text "stdcall"
......@@ -255,7 +249,6 @@ instance Outputable CType where
************************************************************************
-}
{-* Generated by DrIFT-v1.0 : Look, but Don't Touch. *-}
instance Binary ForeignCall where
put_ bh (CCall aa) = put_ bh aa
get bh = do aa <- get bh; return (CCall aa)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment