git.iko.soy/stackage
on ec9d13c help sign in
stackage/patching/patches/hint-0.4.2.0.patch
21 lines 1.0 kB history raw
1diff -ru orig/unit-tests/run-unit-tests.hs new/unit-tests/run-unit-tests.hs
2--- orig/unit-tests/run-unit-tests.hs 2014-05-11 18:47:29.102698531 +0300
3+++ new/unit-tests/run-unit-tests.hs 2014-05-11 18:47:28.000000000 +0300
4@@ -191,7 +191,7 @@
5 test_catch :: TestCase
6 test_catch = TestCase "catch" [] $ do
7 setImports ["Prelude"]
8- succeeds (action `catch` handler) @@? "catch failed"
9+ succeeds (action `MC.catch` handler) @@? "catch failed"
10 where handler DivideByZero = return "catched"
11 handler e = throwM e
12 action = do s <- eval "1 `div` 0 :: Int"
13@@ -203,7 +203,7 @@
14 liftIO $ do
15 r <- newEmptyMVar
16 let concurrent = runInterpreter (liftIO $ putMVar r False)
17- `catch` \MultipleInstancesNotAllowed ->
18+ `MC.catch` \MultipleInstancesNotAllowed ->
19 do liftIO $ putMVar r True
20 return $ Right ()
21 _ <- forkIO $ concurrent >> return ()