HttpApiData.hs

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

instance FromHttpApiData BCP47 where
  parseUrlPiece = fromText