X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Control%2FConcurrent%2FQSem.hs;h=8e8a3016db1663739e1f3c9ce6903b2262854246;hb=a0f41d471ceda7da65d775cfd9eaca3262ec8291;hp=59ffbc7887d14445719adbdbda243a27d058002c;hpb=3310565c512605a71d52f44c4fe645c7ae92786d;p=ghc-base.git

diff --git a/Control/Concurrent/QSem.hs b/Control/Concurrent/QSem.hs
index 59ffbc7..8e8a301 100644
--- a/Control/Concurrent/QSem.hs
+++ b/Control/Concurrent/QSem.hs
@@ -36,7 +36,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")