ForeignCall.hs: Remove DrIFT directives
authorÖmer Sinan Ağacan <omeragacan@gmail.com>
Tue, 2 Aug 2016 13:03:32 +0000 (13:03 +0000)
committerÖmer Sinan Ağacan <omeragacan@gmail.com>
Tue, 2 Aug 2016 13:03:39 +0000 (13:03 +0000)
compiler/prelude/ForeignCall.hs

index f26298f..8411f11 100644 (file)
@@ -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)