module Web.Minion.Media.PlainText where

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

data PlainText

instance ContentType PlainText where
  media :: NonEmpty MediaType
media = ByteString
"text" ByteString -> ByteString -> MediaType
Http.// ByteString
"plain" MediaType -> (ByteString, ByteString) -> MediaType
Http./: (ByteString
"charset", ByteString
"utf-8") MediaType -> [MediaType] -> NonEmpty MediaType
forall a. a -> [a] -> NonEmpty a
Nel.:| []