From 8c689077e1b645cc41fc24b8929b75d8653acca1 Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Fri, 10 Jul 2009 15:14:38 +0000 Subject: [PATCH] Minor SampleVar refactoring --- Control/Concurrent/SampleVar.hs | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/Control/Concurrent/SampleVar.hs b/Control/Concurrent/SampleVar.hs index 69c29c2..bdf5eac 100644 --- a/Control/Concurrent/SampleVar.hs +++ b/Control/Concurrent/SampleVar.hs @@ -61,8 +61,7 @@ newEmptySampleVar = do -- |Build a 'SampleVar' with an initial value. newSampleVar :: a -> IO (SampleVar a) newSampleVar a = do - v <- newEmptyMVar - putMVar v a + v <- newMVar a newMVar (1,v) -- |If the SampleVar is full, leave it empty. Otherwise, do nothing. -- 1.7.10.4