From 3162fa91c48071b4c2f5cfa39738c11048f1ebeb Mon Sep 17 00:00:00 2001
From: Simon Marlow <simonmar@microsoft.com>
Date: Tue, 24 Jan 2006 14:21:56 +0000
Subject: [PATCH] add a test I had lying around
---
examples/Bug8.hs | 8 ++++++++
1 file changed, 8 insertions(+)
create mode 100644 examples/Bug8.hs
diff --git a/examples/Bug8.hs b/examples/Bug8.hs
new file mode 100644
index 0000000000..6481ca3f3f
--- /dev/null
+++ b/examples/Bug8.hs
@@ -0,0 +1,8 @@
+infix -->
+infix --->
+
+data Typ = Type (String,[Typ])
+ | TFree (String, [String])
+
+x --> y = Type("fun",[s,t])
+(--->) = flip $ foldr (-->)
--
GitLab