X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Control%2FConcurrent%2FQSemN.hs;h=7e43908094d0888e82ab13cba20b8c308fdd6f13;hb=a0f41d471ceda7da65d775cfd9eaca3262ec8291;hp=30c6785d31c22d83177d9aae80d1326598d0f50c;hpb=3310565c512605a71d52f44c4fe645c7ae92786d;p=ghc-base.git

diff --git a/Control/Concurrent/QSemN.hs b/Control/Concurrent/QSemN.hs
index 30c6785..7e43908 100644
--- a/Control/Concurrent/QSemN.hs
+++ b/Control/Concurrent/QSemN.hs
@@ -31,7 +31,7 @@ import Data.Typeable
 
 -- |A 'QSemN' is a quantity semaphore, in which the available
 -- \"quantity\" may be signalled or waited for in arbitrary amounts.
-newtype QSemN = QSemN (MVar (Int,[(Int,MVar ())]))
+newtype QSemN = QSemN (MVar (Int,[(Int,MVar ())])) deriving Eq
 
 INSTANCE_TYPEABLE0(QSemN,qSemNTc,"QSemN")