diff options
Diffstat (limited to 'gnu/packages/patches/ghc-monad-par-fix-tests.patch')
-rw-r--r-- | gnu/packages/patches/ghc-monad-par-fix-tests.patch | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/gnu/packages/patches/ghc-monad-par-fix-tests.patch b/gnu/packages/patches/ghc-monad-par-fix-tests.patch deleted file mode 100644 index d21a1e485c..0000000000 --- a/gnu/packages/patches/ghc-monad-par-fix-tests.patch +++ /dev/null @@ -1,45 +0,0 @@ -This patch is taken from upstream. It fixes a test to work with GHC 8.6. -The paths have been slightly altered to work with the release tarball. - -See <https://github.com/simonmar/monad-par/issues/66>. - -From e20f81c8060208e4fb038e8f0e0668b41d72a6fb Mon Sep 17 00:00:00 2001 -From: Clint Adams <clint@debian.org> -Date: Sat, 31 Aug 2019 14:12:34 -0400 -Subject: [PATCH] Use a case statement instead of pattern-matching in - case_test_diamond - -This avoids the need for a MonadFail instance. Closes #66 ---- - monad-par/tests/ParTests_shared.hs | 15 +++++++++------ - 1 file changed, 9 insertions(+), 6 deletions(-) - -diff --git a/tests/ParTests_shared.hs b/tests/ParTests_shared.hs -index 31f438d..b2de50c 100644 ---- a/tests/ParTests_shared.hs -+++ b/tests/ParTests_shared.hs -@@ -109,12 +109,15 @@ case_test_diamond :: Assertion - case_test_diamond = 9 @=? (m :: Int) - where - m = runPar $ do -- [a,b,c,d] <- sequence [new,new,new,new] -- fork $ do x <- get a; put b (x+1) -- fork $ do x <- get a; put c (x+2) -- fork $ do x <- get b; y <- get c; put d (x+y) -- fork $ do put a 3 -- get d -+ abcd <- sequence [new,new,new,new] -+ case abcd of -+ [a,b,c,d] -> do -+ fork $ do x <- get a; put b (x+1) -+ fork $ do x <- get a; put c (x+2) -+ fork $ do x <- get b; y <- get c; put d (x+y) -+ fork $ do put a 3 -+ get d -+ _ -> error "Oops" - - -- | Violate IVar single-assignment: - -- --- -2.23.0 - |