-- | Extra utilities for equality.

module Data.Eq.Extra where

import Data.Function

-- | Apply a function before passing it to equality.
equating :: Eq b => (a -> b) -> a -> a -> Bool
equating = on (==)