{-# 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 = forall a. Hashable a => Int -> a -> Int
hashWithSalt Int
i forall b c a. (b -> c) -> (a -> b) -> a -> c
. BCP47 -> Text
toText