hls-rename-plugin-1.0.0.2: test/testdata/Typeclass.hs

module Typeclass () where

class Equality a where
    equals :: a -> a -> Bool

instance Equality Int where
  equals = (==)

allEqual :: Equality a => [a] -> Bool
allEqual = all =<< equals . head