From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 6 Jan 2011 15:46:54 +0000 (+0000)
Subject: fix #4876
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1307901a3528834b706eb9336bd0a3ba88fe09f3;hp=e4680148143d38e6dd2d7a9372e9392f1f5e63f0;p=ghc-base.git

fix #4876
---

diff --git a/Control/Concurrent/SampleVar.hs b/Control/Concurrent/SampleVar.hs
index c66241e..68e4b30 100644
--- a/Control/Concurrent/SampleVar.hs
+++ b/Control/Concurrent/SampleVar.hs
@@ -120,5 +120,5 @@ writeSampleVar (SampleVar svar) v = mask_ $ do
 isEmptySampleVar :: SampleVar a -> IO Bool
 isEmptySampleVar (SampleVar svar) = do
    (readers, _) <- readMVar svar
-   return (readers == 0)
+   return (readers <= 0)