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