Repository : ssh://darcs.haskell.org//srv/darcs/packages/template-haskell On branch : master
http://hackage.haskell.org/trac/ghc/changeset/921c1cfea3f44af58ed68fad41377b9ff5369605 >--------------------------------------------------------------- commit 921c1cfea3f44af58ed68fad41377b9ff5369605 Author: Ian Lynagh <[email protected]> Date: Wed Jul 13 00:56:48 2011 +0100 Follow removal of 'threadsafe' FFI imports >--------------------------------------------------------------- Language/Haskell/TH.hs | 2 +- Language/Haskell/TH/Lib.hs | 3 +-- Language/Haskell/TH/Syntax.hs | 2 +- 3 files changed, 3 insertions(+), 4 deletions(-) diff --git a/Language/Haskell/TH.hs b/Language/Haskell/TH.hs index 2d25dfe..c2bc267 100644 --- a/Language/Haskell/TH.hs +++ b/Language/Haskell/TH.hs @@ -84,7 +84,7 @@ module Language.Haskell.TH( newtypeInstD, tySynInstD, typeFam, dataFam, -- **** Foreign Function Interface (FFI) - cCall, stdCall, unsafe, safe, threadsafe, forImpD, + cCall, stdCall, unsafe, safe, forImpD, -- **** Pragmas -- | Just inline supported so far inlineSpecNoPhase, inlineSpecPhase, diff --git a/Language/Haskell/TH/Lib.hs b/Language/Haskell/TH/Lib.hs index fc8ab76..894bb33 100644 --- a/Language/Haskell/TH/Lib.hs +++ b/Language/Haskell/TH/Lib.hs @@ -493,10 +493,9 @@ stdCall = StdCall ------------------------------------------------------------------------------- -- * Safety -unsafe, safe, threadsafe, interruptible :: Safety +unsafe, safe, interruptible :: Safety unsafe = Unsafe safe = Safe -threadsafe = Threadsafe interruptible = Interruptible ------------------------------------------------------------------------------- diff --git a/Language/Haskell/TH/Syntax.hs b/Language/Haskell/TH/Syntax.hs index b763aba..2360f55 100644 --- a/Language/Haskell/TH/Syntax.hs +++ b/Language/Haskell/TH/Syntax.hs @@ -843,7 +843,7 @@ data Foreign = ImportF Callconv Safety String Name Type data Callconv = CCall | StdCall deriving( Show, Eq, Data, Typeable ) -data Safety = Unsafe | Safe | Threadsafe | Interruptible +data Safety = Unsafe | Safe | Interruptible deriving( Show, Eq, Data, Typeable ) data Pragma = InlineP Name InlineSpec _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
