summaryrefslogtreecommitdiff
path: root/testsuite/tests/concurrent
diff options
context:
space:
mode:
authorSebastian Graf <sgraf1337@gmail.com>2019-10-01 18:55:23 +0000
committerMarge Bot <ben+marge-bot@smart-cactus.org>2019-10-11 22:10:12 -0400
commit30f5ac07a4843b42ed479462661e9d79f038cf09 (patch)
tree506d6ab13ff03a8c095c11a71b03b9ae4222203b /testsuite/tests/concurrent
parentd584e3f08cfee6e28b70bf53c573d86e44f326f8 (diff)
downloadhaskell-30f5ac07a4843b42ed479462661e9d79f038cf09.tar.gz
Much simpler language for PmCheck
Simon realised that the simple language composed of let bindings, bang patterns and flat constructor patterns is enough to capture the semantics of the source pattern language that are important for pattern-match checking. Well, given that the Oracle is smart enough to connect the dots in this less informationally dense form, which it is now. So we transform `translatePat` to return a list of `PmGrd`s relative to an incoming match variable. `pmCheck` then trivially translates each of the `PmGrd`s into constraints that the oracle understands. Since we pass in the match variable, we incidentally fix #15884 (coverage checks for view patterns) through an interaction with !1746.
Diffstat (limited to 'testsuite/tests/concurrent')
-rw-r--r--testsuite/tests/concurrent/T13615/all.T2
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/concurrent/T13615/all.T b/testsuite/tests/concurrent/T13615/all.T
index 419fe9b77e..a6541d2a23 100644
--- a/testsuite/tests/concurrent/T13615/all.T
+++ b/testsuite/tests/concurrent/T13615/all.T
@@ -9,5 +9,5 @@ test('T13615',
# reproduction probability is around 75% on my dual-core hyperthreaded
# laptop.
extra_run_opts('+RTS -N15 -ki4k')],
- multimod_compile_and_run,
+ [fragile_for(17269, 'threaded1'), multimod_compile_and_run],
['T13615','-rtsopts'])