[project @ 1998-12-02 13:17:09 by simonm]

[ghc-hetmet.git] / ghc / interpreter / test / unused / infix.hs

diff --git a/ghc/interpreter/test/unused/infix.hs b/ghc/interpreter/test/unused/infix.hs
new file mode 100644 (file)
index 0000000..da80460
--- /dev/null
+++ b/ghc/interpreter/test/unused/infix.hs
@@ -0,0 +1,7 @@
+--!!! Testing the printing of infix constructors
+data Music = Note
+           | Music :+: Music
+           | Scale Music
+  deriving Show
+
+m = Scale (Note :+: Note)