projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2003-01-23 17:45:40 by ross]
[ghc-base.git]
/
Control
/
Concurrent
/
MVar.hs
diff --git
a/Control/Concurrent/MVar.hs
b/Control/Concurrent/MVar.hs
index
4dfac5a
..
ea037ba
100644
(file)
--- a/
Control/Concurrent/MVar.hs
+++ b/
Control/Concurrent/MVar.hs
@@
-37,7
+37,6
@@
module Control.Concurrent.MVar
import Hugs.ConcBase ( MVar, newEmptyMVar, newMVar, takeMVar, putMVar,
tryTakeMVar, tryPutMVar, isEmptyMVar,
)
import Hugs.ConcBase ( MVar, newEmptyMVar, newMVar, takeMVar, putMVar,
tryTakeMVar, tryPutMVar, isEmptyMVar,
)
-import Hugs.Exception ( throwIO )
#endif
#ifdef __GLASGOW_HASKELL__
#endif
#ifdef __GLASGOW_HASKELL__
@@
-49,12
+48,6
@@
import GHC.Conc ( MVar, newEmptyMVar, newMVar, takeMVar, putMVar,
import Prelude
import Control.Exception as Exception
import Prelude
import Control.Exception as Exception
-#ifdef __HUGS__
--- This is as close as Hugs gets to providing throw
-throw :: Exception -> IO a
-throw = throwIO
-#endif
-
{-|
This is a combination of 'takeMVar' and 'putMVar'; ie. it takes the value
from the 'MVar', puts it back, and also returns it.
{-|
This is a combination of 'takeMVar' and 'putMVar'; ie. it takes the value
from the 'MVar', puts it back, and also returns it.