17 lines
356 B
Haskell
17 lines
356 B
Haskell
{-# 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 ]
|