Remove Control.Parallel*, now in package parallel

[haskell-directory.git] / Control / Concurrent / QSem.hs

diff --git a/Control/Concurrent/QSem.hs b/Control/Concurrent/QSem.hs
index 2ef6dff..5a512d8 100644 (file)
--- a/Control/Concurrent/QSem.hs
+++ b/Control/Concurrent/QSem.hs
@@ -22,6 +22,9 @@ module Control.Concurrent.QSem
 
 import Prelude
 import Control.Concurrent.MVar
+import Data.Typeable
+
+#include "Typeable.h"
 
 -- General semaphores are also implemented readily in terms of shared
 -- @MVar@s, only have to catch the case when the semaphore is tried
@@ -34,6 +37,8 @@ import Control.Concurrent.MVar
 -- \"quantity\" is always dealt with in units of one.
 newtype QSem = QSem (MVar (Int, [MVar ()]))
 
+INSTANCE_TYPEABLE0(QSem,qSemTc,"QSem")
+
 -- |Build a new 'QSem'
 newQSem :: Int -> IO QSem
 newQSem init = do