Extend Template Haskell support for interruptible calls.
authorEdward Z. Yang <ezyang@mit.edu>
Wed, 8 Sep 2010 17:47:58 +0000 (17:47 +0000)
committerEdward Z. Yang <ezyang@mit.edu>
Wed, 8 Sep 2010 17:47:58 +0000 (17:47 +0000)
Language/Haskell/TH/Lib.hs
Language/Haskell/TH/Syntax.hs

index 761d807..5eec055 100644 (file)
@@ -481,10 +481,11 @@ stdCall = StdCall
 -------------------------------------------------------------------------------
 -- *   Safety
 
-unsafe, safe, threadsafe :: Safety
+unsafe, safe, threadsafe, interruptible :: Safety
 unsafe = Unsafe
 safe = Safe
 threadsafe = Threadsafe
+interruptible = Interruptible
 
 -------------------------------------------------------------------------------
 -- *   InlineSpec
index c2b339d..4a6fe8f 100644 (file)
@@ -819,7 +819,7 @@ data Foreign = ImportF Callconv Safety String Name Type
 data Callconv = CCall | StdCall
           deriving( Show, Eq, Data, Typeable )
 
-data Safety = Unsafe | Safe | Threadsafe
+data Safety = Unsafe | Safe | Threadsafe | Interruptible
         deriving( Show, Eq, Data, Typeable )
 
 data Pragma = InlineP     Name InlineSpec