X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftests%2FdeSugar%2Fds026.hs;fp=ghc%2Fcompiler%2Ftests%2FdeSugar%2Fds026.hs;h=2f9faa730343cd7771e445297a330d2ec71e2758;hb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;hp=0000000000000000000000000000000000000000;hpb=e48474bff05e6cfb506660420f025f694c870d38;p=ghc-hetmet.git

diff --git a/ghc/compiler/tests/deSugar/ds026.hs b/ghc/compiler/tests/deSugar/ds026.hs
new file mode 100644
index 0000000..2f9faa7
--- /dev/null
+++ b/ghc/compiler/tests/deSugar/ds026.hs
@@ -0,0 +1,12 @@
+--!!! ds026 -- classes -- incl. polymorphic method
+
+class Foo a where
+  op :: a -> a
+
+class Foo a => Boo a where
+  op1 :: a -> a
+
+class Boo a => Noo a where
+  op2 :: (Eq b) => a -> b -> a
+
+f x y = op (op2 x y)