mirror of
https://github.com/commercialhaskell/stackage.git
synced 2026-01-12 23:38:29 +01:00
22 lines
1.0 KiB
Diff
22 lines
1.0 KiB
Diff
diff -ru orig/unit-tests/run-unit-tests.hs new/unit-tests/run-unit-tests.hs
|
|
--- orig/unit-tests/run-unit-tests.hs 2014-05-11 18:47:29.102698531 +0300
|
|
+++ new/unit-tests/run-unit-tests.hs 2014-05-11 18:47:28.000000000 +0300
|
|
@@ -191,7 +191,7 @@
|
|
test_catch :: TestCase
|
|
test_catch = TestCase "catch" [] $ do
|
|
setImports ["Prelude"]
|
|
- succeeds (action `catch` handler) @@? "catch failed"
|
|
+ succeeds (action `MC.catch` handler) @@? "catch failed"
|
|
where handler DivideByZero = return "catched"
|
|
handler e = throwM e
|
|
action = do s <- eval "1 `div` 0 :: Int"
|
|
@@ -203,7 +203,7 @@
|
|
liftIO $ do
|
|
r <- newEmptyMVar
|
|
let concurrent = runInterpreter (liftIO $ putMVar r False)
|
|
- `catch` \MultipleInstancesNotAllowed ->
|
|
+ `MC.catch` \MultipleInstancesNotAllowed ->
|
|
do liftIO $ putMVar r True
|
|
return $ Right ()
|
|
_ <- forkIO $ concurrent >> return ()
|