{-# LANGUAGE InstanceSigs #-}
module InsertWithPragma where

data A
instance Eq A where
  (==) :: A -> A -> Bool
  (==) = _