{-# OPTIONS_GHC -fno-warn-orphans #-} module Data.BCP47.HttpApiData () where import Data.BCP47 (BCP47, fromText, toText) import Web.HttpApiData (FromHttpApiData(..), ToHttpApiData(..)) instance ToHttpApiData BCP47 where toUrlPiece :: BCP47 -> Text toUrlPiece = BCP47 -> Text toText instance FromHttpApiData BCP47 where parseUrlPiece :: Text -> Either Text BCP47 parseUrlPiece = Text -> Either Text BCP47 fromText