From b099104f82cc6bf755d15a9b05d8b5186c5dfcbd Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Thu, 12 Feb 1998 14:57:41 +0000
Subject: [PATCH] [project @ 1998-02-12 14:57:41 by simonm] combining
 undeclared infix operators (from a bug in Hugs).

---
 ghc/tests/reader/should_compile/read009.hs | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 ghc/tests/reader/should_compile/read009.hs

diff --git a/ghc/tests/reader/should_compile/read009.hs b/ghc/tests/reader/should_compile/read009.hs
new file mode 100644
index 000000000000..c35b81ac8ef8
--- /dev/null
+++ b/ghc/tests/reader/should_compile/read009.hs
@@ -0,0 +1,8 @@
+module ShouldSucceed where
+
+--!!! combining undeclared infix operators
+
+-- should default to 'infixl 9'
+
+test = let f x y = x+y in 1 `f` 2 `f` 3
+
-- 
GitLab