X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Control%2FConcurrent%2FQSem.hs;h=22f6c0c8f6be1eba665998fd90ef377536e7771f;hb=41e8fba828acbae1751628af50849f5352b27873;hp=59ffbc7887d14445719adbdbda243a27d058002c;hpb=4c29f6f110d23b890567b8696a964bb212eba52e;p=ghc-base.git

diff --git a/Control/Concurrent/QSem.hs b/Control/Concurrent/QSem.hs
index 59ffbc7..22f6c0c 100644
--- a/Control/Concurrent/QSem.hs
+++ b/Control/Concurrent/QSem.hs
@@ -1,3 +1,5 @@
+{-# LANGUAGE CPP #-}
+
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Control.Concurrent.QSem
@@ -36,7 +38,7 @@ import Data.Typeable
 
 -- |A 'QSem' is a simple quantity semaphore, in which the available
 -- \"quantity\" is always dealt with in units of one.
-newtype QSem = QSem (MVar (Int, [MVar ()]))
+newtype QSem = QSem (MVar (Int, [MVar ()])) deriving Eq
 
 INSTANCE_TYPEABLE0(QSem,qSemTc,"QSem")