MimeTypes.hs

{-
   Kubernetes

   No description provided (generated by Openapi Generator https://github.com/openapitools/openapi-generator)

   OpenAPI Version: 3.0.1
   Kubernetes API version: release-1.33
   Generated by OpenAPI Generator (https://openapi-generator.tech)
-}

{-|
Module : Kubernetes.OpenAPI.MimeTypes
-}

{-# LANGUAGE ConstraintKinds #-}
{-# LANGUAGE ExistentialQuantification #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# OPTIONS_GHC -fno-warn-unused-binds -fno-warn-unused-imports #-}

module Kubernetes.OpenAPI.MimeTypes where

import qualified Control.Arrow as P (left)
import qualified Data.Aeson as A
import qualified Data.ByteString as B
import qualified Data.ByteString.Builder as BB
import qualified Data.ByteString.Char8 as BC
import qualified Data.ByteString.Lazy as BL
import qualified Data.ByteString.Lazy.Char8 as BCL
import qualified Data.Data as P (Typeable)
import qualified Data.Proxy as P (Proxy(..))
import qualified Data.String as P
import qualified Data.Text as T
import qualified Data.Text.Encoding as T
import qualified Network.HTTP.Media as ME
import qualified Web.FormUrlEncoded as WH
import qualified Web.HttpApiData as WH

import Prelude (($), (.),(<$>),(<*>),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty)
import qualified Prelude as P

-- * ContentType MimeType

data ContentType a = MimeType a => ContentType { unContentType :: a }

-- * Accept MimeType

data Accept a = MimeType a => Accept { unAccept :: a }

-- * Consumes Class

class MimeType mtype => Consumes req mtype where

-- * Produces Class

class MimeType mtype => Produces req mtype where

-- * Default Mime Types

data MimeJSON = MimeJSON deriving (P.Typeable)
data MimeXML = MimeXML deriving (P.Typeable)
data MimePlainText = MimePlainText deriving (P.Typeable)
data MimeFormUrlEncoded = MimeFormUrlEncoded deriving (P.Typeable)
data MimeMultipartFormData = MimeMultipartFormData deriving (P.Typeable)
data MimeOctetStream = MimeOctetStream deriving (P.Typeable)
data MimeNoContent = MimeNoContent deriving (P.Typeable)
data MimeAny = MimeAny deriving (P.Typeable)

-- | A type for responses without content-body.
data NoContent = NoContent
  deriving (P.Show, P.Eq, P.Typeable)


-- * MimeType Class

class P.Typeable mtype => MimeType mtype  where
  {-# MINIMAL mimeType | mimeTypes #-}

  mimeTypes :: P.Proxy mtype -> [ME.MediaType]
  mimeTypes p =
    case mimeType p of
      Just x -> [x]
      Nothing -> []

  mimeType :: P.Proxy mtype -> Maybe ME.MediaType
  mimeType p =
    case mimeTypes p of
      [] -> Nothing
      (x:_) -> Just x

  mimeType' :: mtype -> Maybe ME.MediaType
  mimeType' _ = mimeType (P.Proxy :: P.Proxy mtype)
  mimeTypes' :: mtype -> [ME.MediaType]
  mimeTypes' _ = mimeTypes (P.Proxy :: P.Proxy mtype)

-- Default MimeType Instances

-- | @application/json; charset=utf-8@
instance MimeType MimeJSON where
  mimeType _ = Just $ P.fromString "application/json"
-- | @application/xml; charset=utf-8@
instance MimeType MimeXML where
  mimeType _ = Just $ P.fromString "application/xml"
-- | @application/x-www-form-urlencoded@
instance MimeType MimeFormUrlEncoded where
  mimeType _ = Just $ P.fromString "application/x-www-form-urlencoded"
-- | @multipart/form-data@
instance MimeType MimeMultipartFormData where
  mimeType _ = Just $ P.fromString "multipart/form-data"
-- | @text/plain; charset=utf-8@
instance MimeType MimePlainText where
  mimeType _ = Just $ P.fromString "text/plain"
-- | @application/octet-stream@
instance MimeType MimeOctetStream where
  mimeType _ = Just $ P.fromString "application/octet-stream"
-- | @"*/*"@
instance MimeType MimeAny where
  mimeType _ = Just $ P.fromString "*/*"
instance MimeType MimeNoContent where
  mimeType _ = Nothing

-- * MimeRender Class

class MimeType mtype => MimeRender mtype x where
    mimeRender  :: P.Proxy mtype -> x -> BL.ByteString
    mimeRender' :: mtype -> x -> BL.ByteString
    mimeRender' _ x = mimeRender (P.Proxy :: P.Proxy mtype) x


mimeRenderDefaultMultipartFormData :: WH.ToHttpApiData a => a -> BL.ByteString
mimeRenderDefaultMultipartFormData = BL.fromStrict . T.encodeUtf8 . WH.toQueryParam

-- Default MimeRender Instances

-- | `A.encode`
instance A.ToJSON a => MimeRender MimeJSON a where mimeRender _ = A.encode
-- | @WH.urlEncodeAsForm@
instance WH.ToForm a => MimeRender MimeFormUrlEncoded a where mimeRender _ = WH.urlEncodeAsForm

-- | @P.id@
instance MimeRender MimePlainText BL.ByteString where mimeRender _ = P.id
-- | @BL.fromStrict . T.encodeUtf8@
instance MimeRender MimePlainText T.Text where mimeRender _ = BL.fromStrict . T.encodeUtf8
-- | @BCL.pack@
instance MimeRender MimePlainText String where mimeRender _ = BCL.pack

-- | @P.id@
instance MimeRender MimeOctetStream BL.ByteString where mimeRender _ = P.id
-- | @BL.fromStrict . T.encodeUtf8@
instance MimeRender MimeOctetStream T.Text where mimeRender _ = BL.fromStrict . T.encodeUtf8
-- | @BCL.pack@
instance MimeRender MimeOctetStream String where mimeRender _ = BCL.pack

instance MimeRender MimeMultipartFormData BL.ByteString where mimeRender _ = P.id

instance MimeRender MimeMultipartFormData Bool where mimeRender _ = mimeRenderDefaultMultipartFormData
instance MimeRender MimeMultipartFormData Char where mimeRender _ = mimeRenderDefaultMultipartFormData
instance MimeRender MimeMultipartFormData Double where mimeRender _ = mimeRenderDefaultMultipartFormData
instance MimeRender MimeMultipartFormData Float where mimeRender _ = mimeRenderDefaultMultipartFormData
instance MimeRender MimeMultipartFormData Int where mimeRender _ = mimeRenderDefaultMultipartFormData
instance MimeRender MimeMultipartFormData Integer where mimeRender _ = mimeRenderDefaultMultipartFormData
instance MimeRender MimeMultipartFormData String where mimeRender _ = mimeRenderDefaultMultipartFormData
instance MimeRender MimeMultipartFormData T.Text where mimeRender _ = mimeRenderDefaultMultipartFormData

-- | @P.Right . P.const NoContent@
instance MimeRender MimeNoContent NoContent where mimeRender _ = P.const BCL.empty


-- * MimeUnrender Class

class MimeType mtype => MimeUnrender mtype o where
    mimeUnrender :: P.Proxy mtype -> BL.ByteString -> P.Either String o
    mimeUnrender' :: mtype -> BL.ByteString -> P.Either String o
    mimeUnrender' _ x = mimeUnrender (P.Proxy :: P.Proxy mtype) x

-- Default MimeUnrender Instances

-- | @A.eitherDecode@
instance A.FromJSON a => MimeUnrender MimeJSON a where mimeUnrender _ = A.eitherDecode
-- | @P.left T.unpack . WH.urlDecodeAsForm@
instance WH.FromForm a => MimeUnrender MimeFormUrlEncoded a where mimeUnrender _ = P.left T.unpack . WH.urlDecodeAsForm
-- | @P.Right . P.id@

instance MimeUnrender MimePlainText BL.ByteString where mimeUnrender _ = P.Right . P.id
-- | @P.left P.show . TL.decodeUtf8'@
instance MimeUnrender MimePlainText T.Text where mimeUnrender _ = P.left P.show . T.decodeUtf8' . BL.toStrict
-- | @P.Right . BCL.unpack@
instance MimeUnrender MimePlainText String where mimeUnrender _ = P.Right . BCL.unpack

-- | @P.Right . P.id@
instance MimeUnrender MimeOctetStream BL.ByteString where mimeUnrender _ = P.Right . P.id
-- | @P.left P.show . T.decodeUtf8' . BL.toStrict@
instance MimeUnrender MimeOctetStream T.Text where mimeUnrender _ = P.left P.show . T.decodeUtf8' . BL.toStrict
-- | @P.Right . BCL.unpack@
instance MimeUnrender MimeOctetStream String where mimeUnrender _ = P.Right . BCL.unpack

-- | @P.Right . P.const NoContent@
instance MimeUnrender MimeNoContent NoContent where mimeUnrender _ = P.Right . P.const NoContent


-- * Custom Mime Types

-- ** MimeApplyPatchcbor

data MimeApplyPatchcbor = MimeApplyPatchcbor deriving (P.Typeable)

-- | @application/apply-patch+cbor@
instance MimeType MimeApplyPatchcbor where
  mimeType _ = Just $ P.fromString "application/apply-patch+cbor"
-- instance MimeRender MimeApplyPatchcbor T.Text where mimeRender _ = undefined
-- instance MimeUnrender MimeApplyPatchcbor T.Text where mimeUnrender _ = undefined

-- ** MimeApplyPatchyaml

data MimeApplyPatchyaml = MimeApplyPatchyaml deriving (P.Typeable)

-- | @application/apply-patch+yaml@
instance MimeType MimeApplyPatchyaml where
  mimeType _ = Just $ P.fromString "application/apply-patch+yaml"
-- instance MimeRender MimeApplyPatchyaml T.Text where mimeRender _ = undefined
-- instance MimeUnrender MimeApplyPatchyaml T.Text where mimeUnrender _ = undefined

-- ** MimeCbor

data MimeCbor = MimeCbor deriving (P.Typeable)

-- | @application/cbor@
instance MimeType MimeCbor where
  mimeType _ = Just $ P.fromString "application/cbor"
-- instance MimeRender MimeCbor T.Text where mimeRender _ = undefined
-- instance MimeUnrender MimeCbor T.Text where mimeUnrender _ = undefined

-- ** MimeCborSeq

data MimeCborSeq = MimeCborSeq deriving (P.Typeable)

-- | @application/cbor-seq@
instance MimeType MimeCborSeq where
  mimeType _ = Just $ P.fromString "application/cbor-seq"
-- instance MimeRender MimeCborSeq T.Text where mimeRender _ = undefined
-- instance MimeUnrender MimeCborSeq T.Text where mimeUnrender _ = undefined

-- ** MimeJsonPatchjson

data MimeJsonPatchjson = MimeJsonPatchjson deriving (P.Typeable)

-- | @application/json-patch+json@
instance MimeType MimeJsonPatchjson where
  mimeType _ = Just $ P.fromString "application/json-patch+json"
instance A.ToJSON a => MimeRender MimeJsonPatchjson a where mimeRender _ = A.encode
instance A.FromJSON a => MimeUnrender MimeJsonPatchjson a where mimeUnrender _ = A.eitherDecode
-- instance MimeRender MimeJsonPatchjson T.Text where mimeRender _ = undefined
-- instance MimeUnrender MimeJsonPatchjson T.Text where mimeUnrender _ = undefined

-- ** MimeJsonstreamwatch

data MimeJsonstreamwatch = MimeJsonstreamwatch deriving (P.Typeable)

-- | @application/json;stream=watch@
instance MimeType MimeJsonstreamwatch where
  mimeType _ = Just $ P.fromString "application/json;stream=watch"
instance A.ToJSON a => MimeRender MimeJsonstreamwatch a where mimeRender _ = A.encode
instance A.FromJSON a => MimeUnrender MimeJsonstreamwatch a where mimeUnrender _ = A.eitherDecode
-- instance MimeRender MimeJsonstreamwatch T.Text where mimeRender _ = undefined
-- instance MimeUnrender MimeJsonstreamwatch T.Text where mimeUnrender _ = undefined

-- ** MimeJwkSetjson

data MimeJwkSetjson = MimeJwkSetjson deriving (P.Typeable)

-- | @application/jwk-set+json@
instance MimeType MimeJwkSetjson where
  mimeType _ = Just $ P.fromString "application/jwk-set+json"
instance A.ToJSON a => MimeRender MimeJwkSetjson a where mimeRender _ = A.encode
instance A.FromJSON a => MimeUnrender MimeJwkSetjson a where mimeUnrender _ = A.eitherDecode
-- instance MimeRender MimeJwkSetjson T.Text where mimeRender _ = undefined
-- instance MimeUnrender MimeJwkSetjson T.Text where mimeUnrender _ = undefined

-- ** MimeMergePatchjson

data MimeMergePatchjson = MimeMergePatchjson deriving (P.Typeable)

-- | @application/merge-patch+json@
instance MimeType MimeMergePatchjson where
  mimeType _ = Just $ P.fromString "application/merge-patch+json"
instance A.ToJSON a => MimeRender MimeMergePatchjson a where mimeRender _ = A.encode
instance A.FromJSON a => MimeUnrender MimeMergePatchjson a where mimeUnrender _ = A.eitherDecode
-- instance MimeRender MimeMergePatchjson T.Text where mimeRender _ = undefined
-- instance MimeUnrender MimeMergePatchjson T.Text where mimeUnrender _ = undefined

-- ** MimeStrategicMergePatchjson

data MimeStrategicMergePatchjson = MimeStrategicMergePatchjson deriving (P.Typeable)

-- | @application/strategic-merge-patch+json@
instance MimeType MimeStrategicMergePatchjson where
  mimeType _ = Just $ P.fromString "application/strategic-merge-patch+json"
instance A.ToJSON a => MimeRender MimeStrategicMergePatchjson a where mimeRender _ = A.encode
instance A.FromJSON a => MimeUnrender MimeStrategicMergePatchjson a where mimeUnrender _ = A.eitherDecode
-- instance MimeRender MimeStrategicMergePatchjson T.Text where mimeRender _ = undefined
-- instance MimeUnrender MimeStrategicMergePatchjson T.Text where mimeUnrender _ = undefined

-- ** MimeVndKubernetesProtobuf

data MimeVndKubernetesProtobuf = MimeVndKubernetesProtobuf deriving (P.Typeable)

-- | @application/vnd.kubernetes.protobuf@
instance MimeType MimeVndKubernetesProtobuf where
  mimeType _ = Just $ P.fromString "application/vnd.kubernetes.protobuf"
-- instance MimeRender MimeVndKubernetesProtobuf T.Text where mimeRender _ = undefined
-- instance MimeUnrender MimeVndKubernetesProtobuf T.Text where mimeUnrender _ = undefined

-- ** MimeVndKubernetesProtobufstreamwatch

data MimeVndKubernetesProtobufstreamwatch = MimeVndKubernetesProtobufstreamwatch deriving (P.Typeable)

-- | @application/vnd.kubernetes.protobuf;stream=watch@
instance MimeType MimeVndKubernetesProtobufstreamwatch where
  mimeType _ = Just $ P.fromString "application/vnd.kubernetes.protobuf;stream=watch"
-- instance MimeRender MimeVndKubernetesProtobufstreamwatch T.Text where mimeRender _ = undefined
-- instance MimeUnrender MimeVndKubernetesProtobufstreamwatch T.Text where mimeUnrender _ = undefined

-- ** MimeYaml

data MimeYaml = MimeYaml deriving (P.Typeable)

-- | @application/yaml@
instance MimeType MimeYaml where
  mimeType _ = Just $ P.fromString "application/yaml"
-- instance MimeRender MimeYaml T.Text where mimeRender _ = undefined
-- instance MimeUnrender MimeYaml T.Text where mimeUnrender _ = undefined