haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-01-12 15:28:29 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Patch for http://hub.darcs.net/jcpetruzza/hint/issue/1

Browse Source
This commit is contained in:
Michael Snoyman 2014-03-19 13:49:59 +02:00
parent c7756eb416
commit 9a2ce698b9
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
patching/patches/hint-0.4.0.0.patch Normal file
View File

@ -0,0 +1,21 @@
diff -ru orig/unit-tests/run-unit-tests.hs new/unit-tests/run-unit-tests.hs
--- orig/unit-tests/run-unit-tests.hs 2014-03-19 13:49:32.661896632 +0200
+++ new/unit-tests/run-unit-tests.hs 2014-03-19 13:49:32.000000000 +0200
@@ -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 ()