From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 28 Feb 2008 11:30:35 +0000 (+0000)
Subject: export MVar, TVar, and STM non-abstractly
X-Git-Tag: 2008-05-28~58
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=83959f85423c73a5f0be806978791edff265c2e5;p=ghc-base.git

export MVar, TVar, and STM non-abstractly
As requested by Sterling Clover on ghc-users
---

diff --git a/GHC/Conc.lhs b/GHC/Conc.lhs
index aa2eff1..6ec6c76 100644
--- a/GHC/Conc.lhs
+++ b/GHC/Conc.lhs
@@ -46,7 +46,7 @@ module GHC.Conc
 	, threadWaitWrite	-- :: Int -> IO ()
 
 	-- * MVars
-	, MVar		-- abstract
+	, MVar(..)
 	, newMVar 	-- :: a -> IO (MVar a)
 	, newEmptyMVar  -- :: IO (MVar a)
 	, takeMVar 	-- :: MVar a -> IO a
@@ -57,14 +57,14 @@ module GHC.Conc
 	, addMVarFinalizer -- :: MVar a -> IO () -> IO ()
 
    	-- * TVars
-	, STM           -- abstract
+	, STM(..)
 	, atomically    -- :: STM a -> IO a
 	, retry         -- :: STM a
 	, orElse        -- :: STM a -> STM a -> STM a
         , catchSTM      -- :: STM a -> (Exception -> STM a) -> STM a
 	, alwaysSucceeds -- :: STM a -> STM ()
 	, always        -- :: STM Bool -> STM ()
-	, TVar          -- abstract
+	, TVar(..)
 	, newTVar 	-- :: a -> STM (TVar a)
 	, newTVarIO 	-- :: a -> STM (TVar a)
 	, readTVar	-- :: TVar a -> STM a