1 files changed, 17 insertions, 0 deletions
diff --git a/testsuite/tests/rename/should_compile/T2205.hs b/testsuite/tests/rename/should_compile/T2205.hs
new file mode 100644
index 0000000000..580dea247a
--- /dev/null
+++ b/testsuite/tests/rename/should_compile/T2205.hs
@@ -0,0 +1,17 @@
+{-# OPTIONS_GHC -XTypeOperators #-}
+
+-- Test fixity of type operators
+-- Trac #2205
+
+module ShouldCompile where
+
+ infixr 0 :->
+ data a :-> b = P a b
+
+ fst3:: (a :-> (b :-> c)) -> a
+ fst3 (P a (P b c)) = a
+
+
+ fst3':: (a :-> b :-> c) -> a
+ fst3' (P a (P b c)) = a
+