[commit: template-haskell] master: Follow removal of 'threadsafe' FFI imports (921c1cf)

[Ian Lynagh]

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 <igloo at earth.li>
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