[commit: ghc] master: ForeignCall.hs: Remove DrIFT directives (36565a9)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/36565a9ba200d40e0be8407e57ada1b4a1c55814/ghc

>---------------------------------------------------------------

commit 36565a9ba200d40e0be8407e57ada1b4a1c55814
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Tue Aug 2 13:03:32 2016 +0000

    ForeignCall.hs: Remove DrIFT directives


>---------------------------------------------------------------

36565a9ba200d40e0be8407e57ada1b4a1c55814
 compiler/prelude/ForeignCall.hs | 7 -------
 1 file changed, 7 deletions(-)

diff --git a/compiler/prelude/ForeignCall.hs b/compiler/prelude/ForeignCall.hs
index f26298f..8411f11 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)