barrucadu/dejafu
1
1
Fork 0
mirror of https://github.com/barrucadu/dejafu.git synced 2024-11-22 12:15:39 +03:00
Code Issues Projects Releases Wiki Activity

Fix warnings

Browse Source
This commit is contained in:
Pepe Iborra 2018-12-01 10:14:11 +00:00
parent f2b7bf0db4
commit 3f1f775bd7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
dejafu-tests/lib/Examples/ParMonad/Direct.hs
View File

@ -295,7 +295,7 @@ runParIO userComp = do
takeMVar mfin -- Final value.
other -> error "sessions"
_ -> error "sessions"
----------------------------------------
@ -458,7 +458,7 @@ rescheduleR cnt kont = do
lift $ steal mysched
lift yield
rescheduleR (cnt+1) kont
sessions -> error "sessions"
_ -> error "sessions"
Just task -> do
let C.ContT fn = unPar task
-- Run the stolen task with a continuation that returns to the scheduler if the task exits normally: