ghc/compiler/tests/deSugar/ds026.hs

   1 --!!! ds026 -- classes -- incl. polymorphic method
   2
   3 class Foo a where
   4   op :: a -> a
   5
   6 class Foo a => Boo a where
   7   op1 :: a -> a
   8
   9 class Boo a => Noo a where
  10   op2 :: (Eq b) => a -> b -> a
  11
  12 f x y = op (op2 x y)