{-# LANGUAGE NoImplicitPrelude
           , ScopedTypeVariables
  #-}
{-# OPTIONS_GHC -fno-warn-orphans #-}

module Data.Universe.Instances.Reverse.Hashable
  (
  ) where

import ClassyPrelude

import Data.Universe


instance (Hashable a, Hashable b, Finite a) => Hashable (a -> b) where
  hashWithSalt s f = s `hashWithSalt` [ (k, f k) | k <- universeF ]