{-# 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