summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--testsuite/tests/rebindable/T11216.hs6
-rw-r--r--testsuite/tests/rebindable/all.T1
2 files changed, 7 insertions, 0 deletions
diff --git a/testsuite/tests/rebindable/T11216.hs b/testsuite/tests/rebindable/T11216.hs
new file mode 100644
index 0000000000..e05feb9e85
--- /dev/null
+++ b/testsuite/tests/rebindable/T11216.hs
@@ -0,0 +1,6 @@
+{-# LANGUAGE RebindableSyntax #-}
+
+module Bug where
+
+foo :: (a, b) -> ()
+foo x | (_,_) <- x = ()
diff --git a/testsuite/tests/rebindable/all.T b/testsuite/tests/rebindable/all.T
index b00e721ffe..3ca873e284 100644
--- a/testsuite/tests/rebindable/all.T
+++ b/testsuite/tests/rebindable/all.T
@@ -31,3 +31,4 @@ test('T4851', normal, compile, [''])
test('T5908', normal, compile, [''])
test('T10112', normal, compile, [''])
+test('T11216', [expect_broken(11216)], compile, ['']) \ No newline at end of file