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 . From e20f81c8060208e4fb038e8f0e0668b41d72a6fb Mon Sep 17 00:00:00 2001 From: Clint Adams 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 16'>diff
path: root/gnu/packages/cpp.scm
AgeCommit message (Expand)Author
2018-01-30gnu: Add Dashel....Ludovic Courtès
2018-01-23gnu: rct: Add missing headers, enable RTTI....Fis Trivial
2018-01-13gnu: rct: Re-categorize some inputs....Leo Famulari
2018-01-13gnu: Add rct....Fis Trivial
2018-01-10gnu: libzen: Update to 0.4.37....Tobias Geerinckx-Rice
2017-09-04gnu: Put autoconf-related phases immediately after the 'unpack phase....Kei Kebreau
2017-05-31gnu: Add libzen....Ethan R. Jones