From: simonm <unknown>
Date: Thu, 12 Feb 1998 14:57:41 +0000 (+0000)
Subject: [project @ 1998-02-12 14:57:41 by simonm]
X-Git-Tag: Approx_2487_patches~960
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b099104f82cc6bf755d15a9b05d8b5186c5dfcbd;p=ghc-hetmet.git

[project @ 1998-02-12 14:57:41 by simonm]
combining undeclared infix operators (from a bug in Hugs).
---

diff --git a/ghc/tests/reader/should_compile/read009.hs b/ghc/tests/reader/should_compile/read009.hs
new file mode 100644
index 0000000..c35b81a
--- /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
+