From: Ian Lynagh <igloo@earth.li>
Date: Fri, 10 Jul 2009 15:14:38 +0000 (+0000)
Subject: Minor SampleVar refactoring
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8c689077e1b645cc41fc24b8929b75d8653acca1;p=ghc-base.git

Minor SampleVar refactoring
---

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.