From 1d35c85679416a955a4aee8e8a6a1b71d4ac827e Mon Sep 17 00:00:00 2001
From: Richard Eisenberg <eir@cis.upenn.edu>
Date: Sun, 2 Nov 2014 13:44:27 -0500
Subject: [PATCH] Test #9066 in th/T9066

---
 testsuite/tests/th/T9066.hs | 10 ++++++++++
 testsuite/tests/th/all.T    |  2 ++
 2 files changed, 12 insertions(+)
 create mode 100644 testsuite/tests/th/T9066.hs

diff --git a/testsuite/tests/th/T9066.hs b/testsuite/tests/th/T9066.hs
new file mode 100644
index 0000000000..2e46fe5724
--- /dev/null
+++ b/testsuite/tests/th/T9066.hs
@@ -0,0 +1,10 @@
+{-# LANGUAGE TemplateHaskell #-}
+
+module T9066 where
+
+$([d| data Blargh = (:<=>) Int Int
+      infix 4 :<=>
+
+      type Foo a b = Either a b
+      infix 5 `Foo`
+        |])
diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T
index a35e1261d0..3d64060f01 100644
--- a/testsuite/tests/th/all.T
+++ b/testsuite/tests/th/all.T
@@ -336,3 +336,5 @@ test('T8953', normal, compile, ['-v0'])
 test('T9084', normal, compile_fail, ['-v0'])
 test('T9738', normal, compile, ['-v0'])
 test('T9081', normal, compile, ['-v0'])
+test('T9066', expect_broken(9066), compile, ['-v0'])
+
-- 
GitLab