testsuite/tests/deSugar/should_compile/ds034.hs


1
2
3
4
5
6
7
8
9
10
11

-- !!! mutually-recursive methods in an instance declaration
--
module ShouldCompile where

class Foo a where
    op1 :: a -> a 
    op2 :: a -> a 

instance Foo Int where
    op1 x = op2 x
    op2 y = op1 y