projects
/
ghc-base.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2b23972
)
Provide blockedOnDeadMVar, blockedIndefinitely for the RTS
author
Ian Lynagh
<igloo@earth.li>
Thu, 21 Aug 2008 11:07:23 +0000
(11:07 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Thu, 21 Aug 2008 11:07:23 +0000
(11:07 +0000)
GHC/IOBase.lhs
patch
|
blob
|
history
diff --git
a/GHC/IOBase.lhs
b/GHC/IOBase.lhs
index
d55be42
..
c15d6c7
100644
(file)
--- a/
GHC/IOBase.lhs
+++ b/
GHC/IOBase.lhs
@@
-47,7
+47,8
@@
module GHC.IOBase(
throwIO, block, unblock, blocked, catchAny, catchException,
evaluate,
ErrorCall(..), AssertionFailed(..), assertError, untangle,
throwIO, block, unblock, blocked, catchAny, catchException,
evaluate,
ErrorCall(..), AssertionFailed(..), assertError, untangle,
- BlockedOnDeadMVar(..), BlockedIndefinitely(..), Deadlock(..)
+ BlockedOnDeadMVar(..), BlockedIndefinitely(..), Deadlock(..),
+ blockedOnDeadMVar, blockedIndefinitely
) where
import GHC.ST
) where
import GHC.ST
@@
-641,6
+642,9
@@
instance Exception BlockedOnDeadMVar
instance Show BlockedOnDeadMVar where
showsPrec _ BlockedOnDeadMVar = showString "thread blocked indefinitely"
instance Show BlockedOnDeadMVar where
showsPrec _ BlockedOnDeadMVar = showString "thread blocked indefinitely"
+blockedOnDeadMVar :: SomeException -- for the RTS
+blockedOnDeadMVar = toException BlockedOnDeadMVar
+
-----
data BlockedIndefinitely = BlockedIndefinitely
-----
data BlockedIndefinitely = BlockedIndefinitely
@@
-651,6
+655,9
@@
instance Exception BlockedIndefinitely
instance Show BlockedIndefinitely where
showsPrec _ BlockedIndefinitely = showString "thread blocked indefinitely"
instance Show BlockedIndefinitely where
showsPrec _ BlockedIndefinitely = showString "thread blocked indefinitely"
+blockedIndefinitely :: SomeException -- for the RTS
+blockedIndefinitely = toException BlockedIndefinitely
+
-----
data Deadlock = Deadlock
-----
data Deadlock = Deadlock