From 9a2ce698b974878fe42f1d7ecff1abd7a60932e4 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Wed, 19 Mar 2014 13:49:59 +0200 Subject: [PATCH] Patch for http://hub.darcs.net/jcpetruzza/hint/issue/1 --- patching/patches/hint-0.4.0.0.patch | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 patching/patches/hint-0.4.0.0.patch diff --git a/patching/patches/hint-0.4.0.0.patch b/patching/patches/hint-0.4.0.0.patch new file mode 100644 index 00000000..606779cf --- /dev/null +++ b/patching/patches/hint-0.4.0.0.patch @@ -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 ()