From: sof <unknown>
Date: Sat, 29 Nov 1997 20:31:55 +0000 (+0000)
Subject: [project @ 1997-11-29 20:31:55 by sof]
X-Git-Tag: Approx_2487_patches~1222
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=91588680a7b7396d3298385301c583a9ebe1cea7;p=ghc-hetmet.git

[project @ 1997-11-29 20:31:55 by sof]
Renamed {read,write}Sample to {read,write}SampleVar
---

diff --git a/ghc/lib/concurrent/SampleVar.lhs b/ghc/lib/concurrent/SampleVar.lhs
index 0854a29..7f1061b 100644
--- a/ghc/lib/concurrent/SampleVar.lhs
+++ b/ghc/lib/concurrent/SampleVar.lhs
@@ -19,13 +19,13 @@ potentially, wakes up a blocked reader  (same as for @putMVar@ on empty @MVar@).
 \begin{code}
 module SampleVar
        (
-         SampleVar,        --:: type _ =
+         SampleVar,         --:: type _ =
  
 	 newEmptySampleVar, --:: IO (SampleVar a)
          newSampleVar,      --:: a -> IO (SampleVar a)
 	 emptySampleVar,    --:: SampleVar a -> IO ()
-	 readSample,  	    --:: SampleVar a -> IO a
-	 writeSample  	    --:: SampleVar a -> a -> IO ()
+	 readSampleVar,	    --:: SampleVar a -> IO a
+	 writeSampleVar	    --:: SampleVar a -> a -> IO ()
 
        ) where
 
@@ -63,8 +63,8 @@ emptySampleVar v = do
 -- filled => make empty and grab sample
 -- not filled => try to grab value, empty when read val.
 --
-readSample :: SampleVar a -> IO a
-readSample svar = do
+readSampleVar :: SampleVar a -> IO a
+readSampleVar svar = do
    (readers,val) <- takeMVar svar
    putMVar svar (readers-1,val)
    takeMVar val
@@ -73,8 +73,8 @@ readSample svar = do
 -- filled => overwrite
 -- not filled => fill, write val
 --
-writeSample :: SampleVar a -> a -> IO ()
-writeSample svar v = do
+writeSampleVar :: SampleVar a -> a -> IO ()
+writeSampleVar svar v = do
    (readers,val) <- takeMVar svar
    case readers of
      1 ->