From: sewardj <unknown>
Date: Thu, 18 Nov 1999 17:32:38 +0000 (+0000)
Subject: [project @ 1999-11-18 17:32:38 by sewardj]
X-Git-Tag: Approximately_9120_patches~5543
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=140df6036ba2b57f9869e3ac96b0b00c09e85b7a;p=ghc-hetmet.git

[project @ 1999-11-18 17:32:38 by sewardj]
Export Ref, newRef, readRef, writeRef from the Prelude.
---

diff --git a/ghc/interpreter/lib/Prelude.hs b/ghc/interpreter/lib/Prelude.hs
index e2261b0..940b1ad 100644
--- a/ghc/interpreter/lib/Prelude.hs
+++ b/ghc/interpreter/lib/Prelude.hs
@@ -106,6 +106,9 @@ module Prelude (
     , MVar, newEmptyMVar, newMVar, putMVar, takeMVar, readMVar, swapMVar
     , ThreadId, forkIO
     ,trace
+
+    , Ref, newRef, readRef, writeRef
+
     -- Arrrggghhh!!! Help! Help! Help!
     -- What?!  Prelude.hs doesn't even _define_ most of these things!
     ,primCompAux,PrimArray,primRunST,primNewArray,primWriteArray
@@ -1890,6 +1893,13 @@ data Ref                  s a -- mutable variables
 data PrimMutableArray     s a -- mutable arrays with Int indices
 data PrimMutableByteArray s
 
+newRef   :: a -> ST s (Ref s a)
+newRef    = primNewRef
+readRef  :: Ref s a -> ST s a
+readRef   = primReadRef
+writeRef :: Ref s a -> a -> ST s ()
+writeRef  = primWriteRef
+
 
 ------------------------------------------------------------------------------
 -- ThreadId, MVar, concurrency stuff -----------------------------------------
diff --git a/ghc/lib/hugs/Prelude.hs b/ghc/lib/hugs/Prelude.hs
index e2261b0..940b1ad 100644
--- a/ghc/lib/hugs/Prelude.hs
+++ b/ghc/lib/hugs/Prelude.hs
@@ -106,6 +106,9 @@ module Prelude (
     , MVar, newEmptyMVar, newMVar, putMVar, takeMVar, readMVar, swapMVar
     , ThreadId, forkIO
     ,trace
+
+    , Ref, newRef, readRef, writeRef
+
     -- Arrrggghhh!!! Help! Help! Help!
     -- What?!  Prelude.hs doesn't even _define_ most of these things!
     ,primCompAux,PrimArray,primRunST,primNewArray,primWriteArray
@@ -1890,6 +1893,13 @@ data Ref                  s a -- mutable variables
 data PrimMutableArray     s a -- mutable arrays with Int indices
 data PrimMutableByteArray s
 
+newRef   :: a -> ST s (Ref s a)
+newRef    = primNewRef
+readRef  :: Ref s a -> ST s a
+readRef   = primReadRef
+writeRef :: Ref s a -> a -> ST s ()
+writeRef  = primWriteRef
+
 
 ------------------------------------------------------------------------------
 -- ThreadId, MVar, concurrency stuff -----------------------------------------