From a0f41d471ceda7da65d775cfd9eaca3262ec8291 Mon Sep 17 00:00:00 2001 From: Bas van Dijk Date: Wed, 1 Dec 2010 08:03:07 +0000 Subject: [PATCH] Derived Eq instance for QSem and QSemN --- Control/Concurrent/QSem.hs | 2 +- Control/Concurrent/QSemN.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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") 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") -- 1.7.10.4