[project @ 1996-01-08 20:28:12 by partain]

[ghc-hetmet.git] / ghc / compiler / tests / deSugar / ds034.hs

diff --git a/ghc/compiler/tests/deSugar/ds034.hs b/ghc/compiler/tests/deSugar/ds034.hs
new file mode 100644 (file)
index 0000000..d1f2786
--- /dev/null
+++ b/ghc/compiler/tests/deSugar/ds034.hs
@@ -0,0 +1,11 @@
+--!!! mutually-recursive methods in an instance declaration
+--
+module Test where
+
+class Foo a where
+    op1 :: a -> a 
+    op2 :: a -> a 
+
+instance Foo Int where
+    op1 x = op2 x
+    op2 y = op1 y