barrucadu/dejafu
1
1
Fork 0
mirror of https://github.com/barrucadu/dejafu.git synced 2024-12-19 19:41:31 +03:00
Code Issues Projects Releases Wiki Activity

Fix a => typo (why did that ever compile and run!?)

Browse Source
This commit is contained in:
Michael Walker 2015-02-16 02:50:20 +00:00
parent 392a8c54c6
commit ad98bb6d90
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Control/Monad/Conc/Class.hs
View File

@ -131,7 +131,7 @@ class ( Monad m, MonadCatch m, MonadThrow m, MonadMask m
-- | Throw an exception to the target thread. This blocks until the -- | Throw an exception to the target thread. This blocks until the
-- exception is delivered, and it is just as if the target thread -- exception is delivered, and it is just as if the target thread
-- had raised it with 'throw'. This can interrupt a blocked action. -- had raised it with 'throw'. This can interrupt a blocked action.
throwTo :: Exception e => ThreadId m => e -> m () throwTo :: Exception e => ThreadId m -> e -> m ()
-- | Executes a computation with asynchronous exceptions -- | Executes a computation with asynchronous exceptions
-- /masked/. That is, any thread which attempts to raise an -- /masked/. That is, any thread which attempts to raise an
@ -223,5 +223,5 @@ forkFinally action and_then =
-- | Raise the 'ThreadKilled' exception in the target thread. Note -- | Raise the 'ThreadKilled' exception in the target thread. Note
-- that if the thread is prepared to catch this exception, it won't -- that if the thread is prepared to catch this exception, it won't
-- actually kill it. -- actually kill it.
killThread :: MonadConc m => ThreadId m => m () killThread :: MonadConc m => ThreadId m -> m ()
killThread tid = throwTo tid ThreadKilled killThread tid = throwTo tid ThreadKilled

2
Test/DejaFu/Deterministic.hs
View File

@ -174,7 +174,7 @@ throwTo tid e = C $ cont $ \c -> AThrowTo tid (SomeException e) $ c ()
-- | Raise the 'ThreadKilled' exception in the target thread. Note -- | Raise the 'ThreadKilled' exception in the target thread. Note
-- that if the thread is prepared to catch this exception, it won't -- that if the thread is prepared to catch this exception, it won't
-- actually kill it. -- actually kill it.
killThread :: ThreadId => Conc t () killThread :: ThreadId -> Conc t ()
killThread = C.killThread killThread = C.killThread
-- | Catch an exception raised by 'throw'. This __cannot__ catch -- | Catch an exception raised by 'throw'. This __cannot__ catch

2
Test/DejaFu/Deterministic/IO.hs
View File

@ -179,7 +179,7 @@ throwTo tid e = C $ cont $ \c -> AThrowTo tid (SomeException e) $ c ()
-- | Raise the 'ThreadKilled' exception in the target thread. Note -- | Raise the 'ThreadKilled' exception in the target thread. Note
-- that if the thread is prepared to catch this exception, it won't -- that if the thread is prepared to catch this exception, it won't
-- actually kill it. -- actually kill it.
killThread :: ThreadId => ConcIO t () killThread :: ThreadId -> ConcIO t ()
killThread = C.killThread killThread = C.killThread
-- | Catch an exception raised by 'throw'. This __cannot__ catch -- | Catch an exception raised by 'throw'. This __cannot__ catch