From 1307901a3528834b706eb9336bd0a3ba88fe09f3 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 6 Jan 2011 15:46:54 +0000 Subject: [PATCH] fix #4876 --- Control/Concurrent/SampleVar.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 1.7.10.4