[project @ 1996-12-19 18:35:23 by simonpj]

[ghc-hetmet.git] / ghc / lib / concurrent / SampleVar.lhs

diff --git a/ghc/lib/concurrent/SampleVar.hs b/ghc/lib/concurrent/SampleVar.lhs
similarity index 97%
rename from ghc/lib/concurrent/SampleVar.hs
rename to ghc/lib/concurrent/SampleVar.lhs
index e0f38c9..2897567 100644 (file)
--- a/ghc/lib/concurrent/SampleVar.hs
+++ b/ghc/lib/concurrent/SampleVar.lhs
@@ -1,4 +1,3 @@
-{-
 %
 % (c) The GRASP/AQUA Project, Glasgow University, 1995
 %
@@ -16,8 +15,8 @@ potentially, wakes up a blocked reader  (same as for @putMVar@ on empty @MVar@).
 \item Writing to a filled @SampleVar@ overwrites the current value.
  (different from @putMVar@ on full @MVar@.)
 \end{itemize}
--}
 
+\begin{code}
 module SampleVar
        (
          SampleVar,        --:: type _ =
@@ -29,7 +28,8 @@ module SampleVar
 
        ) where
 
-import GHCbase
+import ConcBase
+
 
 type SampleVar a
  = MVar (Int,          -- 1  == full
@@ -76,3 +76,4 @@ writeSample svar v
      _ -> 
        putMVar val v >> 
        putMVar svar (min 1 (readers+1), val)
+\end{code}