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 ...@@ -37,7 +37,6 @@ import Data.Data
newtype ForeignCall = CCall CCallSpec newtype ForeignCall = CCall CCallSpec
deriving Eq deriving Eq
{-! derive: Binary !-}
isSafeForeignCall :: ForeignCall -> Bool isSafeForeignCall :: ForeignCall -> Bool
isSafeForeignCall (CCall (CCallSpec _ _ safe)) = playSafe safe isSafeForeignCall (CCall (CCallSpec _ _ safe)) = playSafe safe
...@@ -64,7 +63,6 @@ data Safety ...@@ -64,7 +63,6 @@ data Safety
-- without interacting with the runtime system at all -- without interacting with the runtime system at all
deriving ( Eq, Show, Data ) deriving ( Eq, Show, Data )
-- Show used just for Show Lex.Token, I think -- Show used just for Show Lex.Token, I think
{-! derive: Binary !-}
instance Outputable Safety where instance Outputable Safety where
ppr PlaySafe = text "safe" ppr PlaySafe = text "safe"
...@@ -95,14 +93,12 @@ data CExportSpec ...@@ -95,14 +93,12 @@ data CExportSpec
CLabelString -- C Name of exported function CLabelString -- C Name of exported function
CCallConv CCallConv
deriving Data deriving Data
{-! derive: Binary !-}
data CCallSpec data CCallSpec
= CCallSpec CCallTarget -- What to call = CCallSpec CCallTarget -- What to call
CCallConv -- Calling convention to use. CCallConv -- Calling convention to use.
Safety Safety
deriving( Eq ) deriving( Eq )
{-! derive: Binary !-}
-- The call target: -- The call target:
...@@ -130,7 +126,6 @@ data CCallTarget ...@@ -130,7 +126,6 @@ data CCallTarget
| DynamicTarget | DynamicTarget
deriving( Eq, Data ) deriving( Eq, Data )
{-! derive: Binary !-}
isDynamicTarget :: CCallTarget -> Bool isDynamicTarget :: CCallTarget -> Bool
isDynamicTarget DynamicTarget = True isDynamicTarget DynamicTarget = True
...@@ -151,7 +146,6 @@ See: http://www.programmersheaven.com/2/Calling-conventions ...@@ -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 -- any changes here should be replicated in the CallConv type in template haskell
data CCallConv = CCallConv | CApiConv | StdCallConv | PrimCallConv | JavaScriptCallConv data CCallConv = CCallConv | CApiConv | StdCallConv | PrimCallConv | JavaScriptCallConv
deriving (Eq, Data) deriving (Eq, Data)
{-! derive: Binary !-}
instance Outputable CCallConv where instance Outputable CCallConv where
ppr StdCallConv = text "stdcall" ppr StdCallConv = text "stdcall"
...@@ -255,7 +249,6 @@ instance Outputable CType where ...@@ -255,7 +249,6 @@ instance Outputable CType where
************************************************************************ ************************************************************************
-} -}
{-* Generated by DrIFT-v1.0 : Look, but Don't Touch. *-}
instance Binary ForeignCall where instance Binary ForeignCall where
put_ bh (CCall aa) = put_ bh aa put_ bh (CCall aa) = put_ bh aa
get bh = do aa <- get bh; return (CCall 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