{-# OPTIONS_GHC -fno-warn-orphans #-} module Data.BCP47.Hashable () where import Data.BCP47 (BCP47, toText) import Data.Hashable (Hashable(..)) instance Hashable BCP47 where hashWithSalt :: Int -> BCP47 -> Int hashWithSalt Int i = Int -> Text -> Int forall a. Hashable a => Int -> a -> Int hashWithSalt Int i (Text -> Int) -> (BCP47 -> Text) -> BCP47 -> Int forall b c a. (b -> c) -> (a -> b) -> a -> c . BCP47 -> Text toText