From 3f1f775bd7304d30760eab114674de56aa2ab5b0 Mon Sep 17 00:00:00 2001 From: Pepe Iborra Date: Sat, 1 Dec 2018 10:14:11 +0000 Subject: [PATCH] Fix warnings --- dejafu-tests/lib/Examples/ParMonad/Direct.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/dejafu-tests/lib/Examples/ParMonad/Direct.hs b/dejafu-tests/lib/Examples/ParMonad/Direct.hs index 4a54420..a0319d9 100644 --- a/dejafu-tests/lib/Examples/ParMonad/Direct.hs +++ b/dejafu-tests/lib/Examples/ParMonad/Direct.hs @@ -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: