re-export TQueue from Control.Concurrent.STM 2.4
authorSimon Marlow <marlowsd@gmail.com>
Wed, 4 Jul 2012 10:33:11 +0000 (11:33 +0100)
committerSimon Marlow <marlowsd@gmail.com>
Wed, 4 Jul 2012 10:33:11 +0000 (11:33 +0100)
Control/Concurrent/STM.hs
Control/Concurrent/STM/TBQueue.hs

index 9632c2c..29780e3 100644 (file)
@@ -31,6 +31,7 @@ module Control.Concurrent.STM (
        module Control.Concurrent.STM.TMVar,
         module Control.Concurrent.STM.TChan,
         module Control.Concurrent.STM.TQueue,
+        module Control.Concurrent.STM.TBQueue,
 #endif
        module Control.Concurrent.STM.TArray
   ) where
@@ -43,3 +44,4 @@ import Control.Concurrent.STM.TChan
 #endif
 import Control.Concurrent.STM.TArray
 import Control.Concurrent.STM.TQueue
+import Control.Concurrent.STM.TBQueue
index 01aa742..82b46b3 100644 (file)
@@ -40,8 +40,8 @@ module Control.Concurrent.STM.TBQueue (
         isEmptyTBQueue,
   ) where
 
-
-import Control.Concurrent.STM
+import Data.Typeable
+import GHC.Conc
 
 #define _UPK_(x) {-# UNPACK #-} !(x)
 
@@ -51,6 +51,7 @@ data TBQueue a
              _UPK_(TVar [a])  -- R:  elements waiting to be read
              _UPK_(TVar Int)  -- CW: write capacity
              _UPK_(TVar [a])  -- W:  elements written (head is most recent)
+  deriving Typeable
 
 instance Eq (TBQueue a) where
   TBQueue a _ _ _ == TBQueue b _ _ _ = a == b