From 83959f85423c73a5f0be806978791edff265c2e5 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 28 Feb 2008 11:30:35 +0000 Subject: [PATCH] export MVar, TVar, and STM non-abstractly As requested by Sterling Clover on ghc-users --- GHC/Conc.lhs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 1.7.10.4