HaRe-0.8.0.0: test/testdata/Renaming/ClassIn1.hs.expected

module ClassIn1  where

--Any class/instance name declared in this module can be renamed

--Rename class name "Reversable" to "MyReversable" 

class MyReversable a where
  myreverse :: a -> a
  myreverse _ = undefined

instance MyReversable [a] where
  myreverse = reverse

data Foo = Boo | Moo

instance Eq Foo where
   Boo == Boo = True
   Moo == Moo = True
   _   == _   = False

main = myreverse [1,2,3]