{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE MonoLocalBinds #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -fno-warn-name-shadowing -fno-warn-unused-binds -fno-warn-unused-imports #-}
module Kubernetes.OpenAPI.API.AuthenticationV1beta1 where
import Kubernetes.OpenAPI.Core
import Kubernetes.OpenAPI.MimeTypes
import Kubernetes.OpenAPI.Model as M
import qualified Data.Aeson as A
import qualified Data.ByteString as B
import qualified Data.ByteString.Lazy as BL
import qualified Data.Data as P (Typeable, TypeRep, typeOf, typeRep)
import qualified Data.Foldable as P
import qualified Data.Map as Map
import qualified Data.Maybe as P
import qualified Data.Proxy as P (Proxy(..))
import qualified Data.Set as Set
import qualified Data.String as P
import qualified Data.Text as T
import qualified Data.Text.Encoding as T
import qualified Data.Text.Lazy as TL
import qualified Data.Text.Lazy.Encoding as TL
import qualified Data.Time as TI
import qualified Network.HTTP.Client.MultipartFormData as NH
import qualified Network.HTTP.Media as ME
import qualified Network.HTTP.Types as NH
import qualified Web.FormUrlEncoded as WH
import qualified Web.HttpApiData as WH
import Data.Text (Text)
import GHC.Base ((<|>))
import Prelude ((==),(/=),($), (.),(<$>),(<*>),(>>=),Maybe(..),Bool(..),Char,Double,FilePath,Float,Int,Integer,String,fmap,undefined,mempty,maybe,pure,Monad,Applicative,Functor)
import qualified Prelude as P
createTokenReview
:: (Consumes CreateTokenReview contentType, MimeRender contentType V1beta1TokenReview)
=> ContentType contentType
-> Accept accept
-> V1beta1TokenReview
-> KubernetesRequest CreateTokenReview contentType V1beta1TokenReview accept
createTokenReview :: ContentType contentType
-> Accept accept
-> V1beta1TokenReview
-> KubernetesRequest
CreateTokenReview contentType V1beta1TokenReview accept
createTokenReview ContentType contentType
_ Accept accept
_ V1beta1TokenReview
body =
Method
-> [ByteString]
-> KubernetesRequest
CreateTokenReview contentType V1beta1TokenReview accept
forall req contentType res accept.
Method
-> [ByteString] -> KubernetesRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/apis/authentication.k8s.io/v1beta1/tokenreviews"]
KubernetesRequest
CreateTokenReview contentType V1beta1TokenReview accept
-> Proxy AuthApiKeyBearerToken
-> KubernetesRequest
CreateTokenReview contentType V1beta1TokenReview accept
forall authMethod req contentType res accept.
AuthMethod authMethod =>
KubernetesRequest req contentType res accept
-> Proxy authMethod -> KubernetesRequest req contentType res accept
`_hasAuthType` (Proxy AuthApiKeyBearerToken
forall k (t :: k). Proxy t
P.Proxy :: P.Proxy AuthApiKeyBearerToken)
KubernetesRequest
CreateTokenReview contentType V1beta1TokenReview accept
-> V1beta1TokenReview
-> KubernetesRequest
CreateTokenReview contentType V1beta1TokenReview accept
forall req param contentType res accept.
(HasBodyParam req param, Consumes req contentType,
MimeRender contentType param) =>
KubernetesRequest req contentType res accept
-> param -> KubernetesRequest req contentType res accept
`setBodyParam` V1beta1TokenReview
body
data CreateTokenReview
instance HasBodyParam CreateTokenReview V1beta1TokenReview
instance HasOptionalParam CreateTokenReview DryRun where
applyOptionalParam :: KubernetesRequest CreateTokenReview contentType res accept
-> DryRun
-> KubernetesRequest CreateTokenReview contentType res accept
applyOptionalParam KubernetesRequest CreateTokenReview contentType res accept
req (DryRun Text
xs) =
KubernetesRequest CreateTokenReview contentType res accept
req KubernetesRequest CreateTokenReview contentType res accept
-> [QueryItem]
-> KubernetesRequest CreateTokenReview contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"dryRun", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
xs)
instance HasOptionalParam CreateTokenReview FieldManager where
applyOptionalParam :: KubernetesRequest CreateTokenReview contentType res accept
-> FieldManager
-> KubernetesRequest CreateTokenReview contentType res accept
applyOptionalParam KubernetesRequest CreateTokenReview contentType res accept
req (FieldManager Text
xs) =
KubernetesRequest CreateTokenReview contentType res accept
req KubernetesRequest CreateTokenReview contentType res accept
-> [QueryItem]
-> KubernetesRequest CreateTokenReview contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"fieldManager", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
xs)
instance HasOptionalParam CreateTokenReview Pretty where
applyOptionalParam :: KubernetesRequest CreateTokenReview contentType res accept
-> Pretty
-> KubernetesRequest CreateTokenReview contentType res accept
applyOptionalParam KubernetesRequest CreateTokenReview contentType res accept
req (Pretty Text
xs) =
KubernetesRequest CreateTokenReview contentType res accept
req KubernetesRequest CreateTokenReview contentType res accept
-> [QueryItem]
-> KubernetesRequest CreateTokenReview contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Text) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"pretty", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
xs)
instance MimeType mtype => Consumes CreateTokenReview mtype
instance Produces CreateTokenReview MimeJSON
instance Produces CreateTokenReview MimeVndKubernetesProtobuf
instance Produces CreateTokenReview MimeYaml
getAPIResources
:: Accept accept
-> KubernetesRequest GetAPIResources MimeNoContent V1APIResourceList accept
getAPIResources :: Accept accept
-> KubernetesRequest
GetAPIResources MimeNoContent V1APIResourceList accept
getAPIResources Accept accept
_ =
Method
-> [ByteString]
-> KubernetesRequest
GetAPIResources MimeNoContent V1APIResourceList accept
forall req contentType res accept.
Method
-> [ByteString] -> KubernetesRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/apis/authentication.k8s.io/v1beta1/"]
KubernetesRequest
GetAPIResources MimeNoContent V1APIResourceList accept
-> Proxy AuthApiKeyBearerToken
-> KubernetesRequest
GetAPIResources MimeNoContent V1APIResourceList accept
forall authMethod req contentType res accept.
AuthMethod authMethod =>
KubernetesRequest req contentType res accept
-> Proxy authMethod -> KubernetesRequest req contentType res accept
`_hasAuthType` (Proxy AuthApiKeyBearerToken
forall k (t :: k). Proxy t
P.Proxy :: P.Proxy AuthApiKeyBearerToken)
data GetAPIResources
instance Produces GetAPIResources MimeJSON
instance Produces GetAPIResources MimeVndKubernetesProtobuf
instance Produces GetAPIResources MimeYaml