module Web.Minion.Media.FormUrlEncoded where

import Data.List.NonEmpty qualified as Nel
import Network.HTTP.Media qualified as Http
import Web.Minion.Media

data FormUrlEncoded

instance ContentType FormUrlEncoded where
  media :: NonEmpty MediaType
media = ByteString
"application" ByteString -> ByteString -> MediaType
Http.// ByteString
"x-www-form-urlencoded" MediaType -> [MediaType] -> NonEmpty MediaType
forall a. a -> [a] -> NonEmpty a
Nel.:| []