ForeignCall.hs: Remove DrIFT directives

1 files changed, 0 insertions, 7 deletions

diff --git a/compiler/prelude/ForeignCall.hs b/compiler/prelude/ForeignCall.hs
index f26298f174..8411f11e71 100644
--- a/compiler/prelude/ForeignCall.hs
+++ b/compiler/prelude/ForeignCall.hs
@@ -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)