ghc/compiler/tests/deSugar/ds034.hs

   1 --!!! mutually-recursive methods in an instance declaration
   2 --
   3 module Test where
   4
   5 class Foo a where
   6     op1 :: a -> a
   7     op2 :: a -> a
   8
   9 instance Foo Int where
  10     op1 x = op2 x
  11     op2 y = op1 y