{-# 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.CoordinationV1 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
createNamespacedLease
:: (Consumes CreateNamespacedLease contentType, MimeRender contentType V1Lease)
=> ContentType contentType
-> Accept accept
-> V1Lease
-> Namespace
-> KubernetesRequest CreateNamespacedLease contentType V1Lease accept
createNamespacedLease :: ContentType contentType
-> Accept accept
-> V1Lease
-> Namespace
-> KubernetesRequest
CreateNamespacedLease contentType V1Lease accept
createNamespacedLease ContentType contentType
_ Accept accept
_ V1Lease
body (Namespace Text
namespace) =
Method
-> [ByteString]
-> KubernetesRequest
CreateNamespacedLease contentType V1Lease accept
forall req contentType res accept.
Method
-> [ByteString] -> KubernetesRequest req contentType res accept
_mkRequest Method
"POST" [ByteString
"/apis/coordination.k8s.io/v1/namespaces/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
namespace,ByteString
"/leases"]
KubernetesRequest CreateNamespacedLease contentType V1Lease accept
-> Proxy AuthApiKeyBearerToken
-> KubernetesRequest
CreateNamespacedLease contentType V1Lease 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 CreateNamespacedLease contentType V1Lease accept
-> V1Lease
-> KubernetesRequest
CreateNamespacedLease contentType V1Lease 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` V1Lease
body
data CreateNamespacedLease
instance HasBodyParam CreateNamespacedLease V1Lease
instance HasOptionalParam CreateNamespacedLease Pretty where
applyOptionalParam :: KubernetesRequest CreateNamespacedLease contentType res accept
-> Pretty
-> KubernetesRequest CreateNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest CreateNamespacedLease contentType res accept
req (Pretty Text
xs) =
KubernetesRequest CreateNamespacedLease contentType res accept
req KubernetesRequest CreateNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest CreateNamespacedLease 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 HasOptionalParam CreateNamespacedLease DryRun where
applyOptionalParam :: KubernetesRequest CreateNamespacedLease contentType res accept
-> DryRun
-> KubernetesRequest CreateNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest CreateNamespacedLease contentType res accept
req (DryRun Text
xs) =
KubernetesRequest CreateNamespacedLease contentType res accept
req KubernetesRequest CreateNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest CreateNamespacedLease 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 CreateNamespacedLease FieldManager where
applyOptionalParam :: KubernetesRequest CreateNamespacedLease contentType res accept
-> FieldManager
-> KubernetesRequest CreateNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest CreateNamespacedLease contentType res accept
req (FieldManager Text
xs) =
KubernetesRequest CreateNamespacedLease contentType res accept
req KubernetesRequest CreateNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest CreateNamespacedLease 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 MimeType mtype => Consumes CreateNamespacedLease mtype
instance Produces CreateNamespacedLease MimeJSON
instance Produces CreateNamespacedLease MimeVndKubernetesProtobuf
instance Produces CreateNamespacedLease MimeYaml
deleteCollectionNamespacedLease
:: (Consumes DeleteCollectionNamespacedLease contentType)
=> ContentType contentType
-> Accept accept
-> Namespace
-> KubernetesRequest DeleteCollectionNamespacedLease contentType V1Status accept
deleteCollectionNamespacedLease :: ContentType contentType
-> Accept accept
-> Namespace
-> KubernetesRequest
DeleteCollectionNamespacedLease contentType V1Status accept
deleteCollectionNamespacedLease ContentType contentType
_ Accept accept
_ (Namespace Text
namespace) =
Method
-> [ByteString]
-> KubernetesRequest
DeleteCollectionNamespacedLease contentType V1Status accept
forall req contentType res accept.
Method
-> [ByteString] -> KubernetesRequest req contentType res accept
_mkRequest Method
"DELETE" [ByteString
"/apis/coordination.k8s.io/v1/namespaces/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
namespace,ByteString
"/leases"]
KubernetesRequest
DeleteCollectionNamespacedLease contentType V1Status accept
-> Proxy AuthApiKeyBearerToken
-> KubernetesRequest
DeleteCollectionNamespacedLease contentType V1Status 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 DeleteCollectionNamespacedLease
instance HasBodyParam DeleteCollectionNamespacedLease V1DeleteOptions
instance HasOptionalParam DeleteCollectionNamespacedLease Pretty where
applyOptionalParam :: KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> Pretty
-> KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req (Pretty Text
xs) =
KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest
DeleteCollectionNamespacedLease 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 HasOptionalParam DeleteCollectionNamespacedLease Continue where
applyOptionalParam :: KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> Continue
-> KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req (Continue Text
xs) =
KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest
DeleteCollectionNamespacedLease 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
"continue", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
xs)
instance HasOptionalParam DeleteCollectionNamespacedLease DryRun where
applyOptionalParam :: KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> DryRun
-> KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req (DryRun Text
xs) =
KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest
DeleteCollectionNamespacedLease 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 DeleteCollectionNamespacedLease FieldSelector where
applyOptionalParam :: KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> FieldSelector
-> KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req (FieldSelector Text
xs) =
KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest
DeleteCollectionNamespacedLease 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
"fieldSelector", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
xs)
instance HasOptionalParam DeleteCollectionNamespacedLease GracePeriodSeconds where
applyOptionalParam :: KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> GracePeriodSeconds
-> KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req (GracePeriodSeconds Int
xs) =
KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Int) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"gracePeriodSeconds", Int -> Maybe Int
forall a. a -> Maybe a
Just Int
xs)
instance HasOptionalParam DeleteCollectionNamespacedLease LabelSelector where
applyOptionalParam :: KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> LabelSelector
-> KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req (LabelSelector Text
xs) =
KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest
DeleteCollectionNamespacedLease 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
"labelSelector", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
xs)
instance HasOptionalParam DeleteCollectionNamespacedLease Limit where
applyOptionalParam :: KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> Limit
-> KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req (Limit Int
xs) =
KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Int) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"limit", Int -> Maybe Int
forall a. a -> Maybe a
Just Int
xs)
instance HasOptionalParam DeleteCollectionNamespacedLease OrphanDependents where
applyOptionalParam :: KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> OrphanDependents
-> KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req (OrphanDependents Bool
xs) =
KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Bool) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"orphanDependents", Bool -> Maybe Bool
forall a. a -> Maybe a
Just Bool
xs)
instance HasOptionalParam DeleteCollectionNamespacedLease PropagationPolicy where
applyOptionalParam :: KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> PropagationPolicy
-> KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req (PropagationPolicy Text
xs) =
KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest
DeleteCollectionNamespacedLease 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
"propagationPolicy", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
xs)
instance HasOptionalParam DeleteCollectionNamespacedLease ResourceVersion where
applyOptionalParam :: KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> ResourceVersion
-> KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req (ResourceVersion Text
xs) =
KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest
DeleteCollectionNamespacedLease 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
"resourceVersion", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
xs)
instance HasOptionalParam DeleteCollectionNamespacedLease TimeoutSeconds where
applyOptionalParam :: KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> TimeoutSeconds
-> KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req (TimeoutSeconds Int
xs) =
KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
req KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest
DeleteCollectionNamespacedLease contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Int) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"timeoutSeconds", Int -> Maybe Int
forall a. a -> Maybe a
Just Int
xs)
instance MimeType mtype => Consumes DeleteCollectionNamespacedLease mtype
instance Produces DeleteCollectionNamespacedLease MimeJSON
instance Produces DeleteCollectionNamespacedLease MimeVndKubernetesProtobuf
instance Produces DeleteCollectionNamespacedLease MimeYaml
deleteNamespacedLease
:: (Consumes DeleteNamespacedLease contentType)
=> ContentType contentType
-> Accept accept
-> Name
-> Namespace
-> KubernetesRequest DeleteNamespacedLease contentType V1Status accept
deleteNamespacedLease :: ContentType contentType
-> Accept accept
-> Name
-> Namespace
-> KubernetesRequest
DeleteNamespacedLease contentType V1Status accept
deleteNamespacedLease ContentType contentType
_ Accept accept
_ (Name Text
name) (Namespace Text
namespace) =
Method
-> [ByteString]
-> KubernetesRequest
DeleteNamespacedLease contentType V1Status accept
forall req contentType res accept.
Method
-> [ByteString] -> KubernetesRequest req contentType res accept
_mkRequest Method
"DELETE" [ByteString
"/apis/coordination.k8s.io/v1/namespaces/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
namespace,ByteString
"/leases/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
name]
KubernetesRequest DeleteNamespacedLease contentType V1Status accept
-> Proxy AuthApiKeyBearerToken
-> KubernetesRequest
DeleteNamespacedLease contentType V1Status 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 DeleteNamespacedLease
instance HasBodyParam DeleteNamespacedLease V1DeleteOptions
instance HasOptionalParam DeleteNamespacedLease Pretty where
applyOptionalParam :: KubernetesRequest DeleteNamespacedLease contentType res accept
-> Pretty
-> KubernetesRequest DeleteNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest DeleteNamespacedLease contentType res accept
req (Pretty Text
xs) =
KubernetesRequest DeleteNamespacedLease contentType res accept
req KubernetesRequest DeleteNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest DeleteNamespacedLease 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 HasOptionalParam DeleteNamespacedLease DryRun where
applyOptionalParam :: KubernetesRequest DeleteNamespacedLease contentType res accept
-> DryRun
-> KubernetesRequest DeleteNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest DeleteNamespacedLease contentType res accept
req (DryRun Text
xs) =
KubernetesRequest DeleteNamespacedLease contentType res accept
req KubernetesRequest DeleteNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest DeleteNamespacedLease 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 DeleteNamespacedLease GracePeriodSeconds where
applyOptionalParam :: KubernetesRequest DeleteNamespacedLease contentType res accept
-> GracePeriodSeconds
-> KubernetesRequest DeleteNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest DeleteNamespacedLease contentType res accept
req (GracePeriodSeconds Int
xs) =
KubernetesRequest DeleteNamespacedLease contentType res accept
req KubernetesRequest DeleteNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest DeleteNamespacedLease contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Int) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"gracePeriodSeconds", Int -> Maybe Int
forall a. a -> Maybe a
Just Int
xs)
instance HasOptionalParam DeleteNamespacedLease OrphanDependents where
applyOptionalParam :: KubernetesRequest DeleteNamespacedLease contentType res accept
-> OrphanDependents
-> KubernetesRequest DeleteNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest DeleteNamespacedLease contentType res accept
req (OrphanDependents Bool
xs) =
KubernetesRequest DeleteNamespacedLease contentType res accept
req KubernetesRequest DeleteNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest DeleteNamespacedLease contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Bool) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"orphanDependents", Bool -> Maybe Bool
forall a. a -> Maybe a
Just Bool
xs)
instance HasOptionalParam DeleteNamespacedLease PropagationPolicy where
applyOptionalParam :: KubernetesRequest DeleteNamespacedLease contentType res accept
-> PropagationPolicy
-> KubernetesRequest DeleteNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest DeleteNamespacedLease contentType res accept
req (PropagationPolicy Text
xs) =
KubernetesRequest DeleteNamespacedLease contentType res accept
req KubernetesRequest DeleteNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest DeleteNamespacedLease 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
"propagationPolicy", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
xs)
instance MimeType mtype => Consumes DeleteNamespacedLease mtype
instance Produces DeleteNamespacedLease MimeJSON
instance Produces DeleteNamespacedLease MimeVndKubernetesProtobuf
instance Produces DeleteNamespacedLease 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/coordination.k8s.io/v1/"]
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
listLeaseForAllNamespaces
:: Accept accept
-> KubernetesRequest ListLeaseForAllNamespaces MimeNoContent V1LeaseList accept
listLeaseForAllNamespaces :: Accept accept
-> KubernetesRequest
ListLeaseForAllNamespaces MimeNoContent V1LeaseList accept
listLeaseForAllNamespaces Accept accept
_ =
Method
-> [ByteString]
-> KubernetesRequest
ListLeaseForAllNamespaces MimeNoContent V1LeaseList accept
forall req contentType res accept.
Method
-> [ByteString] -> KubernetesRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/apis/coordination.k8s.io/v1/leases"]
KubernetesRequest
ListLeaseForAllNamespaces MimeNoContent V1LeaseList accept
-> Proxy AuthApiKeyBearerToken
-> KubernetesRequest
ListLeaseForAllNamespaces MimeNoContent V1LeaseList 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 ListLeaseForAllNamespaces
instance HasOptionalParam ListLeaseForAllNamespaces AllowWatchBookmarks where
applyOptionalParam :: KubernetesRequest ListLeaseForAllNamespaces contentType res accept
-> AllowWatchBookmarks
-> KubernetesRequest
ListLeaseForAllNamespaces contentType res accept
applyOptionalParam KubernetesRequest ListLeaseForAllNamespaces contentType res accept
req (AllowWatchBookmarks Bool
xs) =
KubernetesRequest ListLeaseForAllNamespaces contentType res accept
req KubernetesRequest ListLeaseForAllNamespaces contentType res accept
-> [QueryItem]
-> KubernetesRequest
ListLeaseForAllNamespaces contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Bool) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"allowWatchBookmarks", Bool -> Maybe Bool
forall a. a -> Maybe a
Just Bool
xs)
instance HasOptionalParam ListLeaseForAllNamespaces Continue where
applyOptionalParam :: KubernetesRequest ListLeaseForAllNamespaces contentType res accept
-> Continue
-> KubernetesRequest
ListLeaseForAllNamespaces contentType res accept
applyOptionalParam KubernetesRequest ListLeaseForAllNamespaces contentType res accept
req (Continue Text
xs) =
KubernetesRequest ListLeaseForAllNamespaces contentType res accept
req KubernetesRequest ListLeaseForAllNamespaces contentType res accept
-> [QueryItem]
-> KubernetesRequest
ListLeaseForAllNamespaces 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
"continue", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
xs)
instance HasOptionalParam ListLeaseForAllNamespaces FieldSelector where
applyOptionalParam :: KubernetesRequest ListLeaseForAllNamespaces contentType res accept
-> FieldSelector
-> KubernetesRequest
ListLeaseForAllNamespaces contentType res accept
applyOptionalParam KubernetesRequest ListLeaseForAllNamespaces contentType res accept
req (FieldSelector Text
xs) =
KubernetesRequest ListLeaseForAllNamespaces contentType res accept
req KubernetesRequest ListLeaseForAllNamespaces contentType res accept
-> [QueryItem]
-> KubernetesRequest
ListLeaseForAllNamespaces 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
"fieldSelector", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
xs)
instance HasOptionalParam ListLeaseForAllNamespaces LabelSelector where
applyOptionalParam :: KubernetesRequest ListLeaseForAllNamespaces contentType res accept
-> LabelSelector
-> KubernetesRequest
ListLeaseForAllNamespaces contentType res accept
applyOptionalParam KubernetesRequest ListLeaseForAllNamespaces contentType res accept
req (LabelSelector Text
xs) =
KubernetesRequest ListLeaseForAllNamespaces contentType res accept
req KubernetesRequest ListLeaseForAllNamespaces contentType res accept
-> [QueryItem]
-> KubernetesRequest
ListLeaseForAllNamespaces 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
"labelSelector", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
xs)
instance HasOptionalParam ListLeaseForAllNamespaces Limit where
applyOptionalParam :: KubernetesRequest ListLeaseForAllNamespaces contentType res accept
-> Limit
-> KubernetesRequest
ListLeaseForAllNamespaces contentType res accept
applyOptionalParam KubernetesRequest ListLeaseForAllNamespaces contentType res accept
req (Limit Int
xs) =
KubernetesRequest ListLeaseForAllNamespaces contentType res accept
req KubernetesRequest ListLeaseForAllNamespaces contentType res accept
-> [QueryItem]
-> KubernetesRequest
ListLeaseForAllNamespaces contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Int) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"limit", Int -> Maybe Int
forall a. a -> Maybe a
Just Int
xs)
instance HasOptionalParam ListLeaseForAllNamespaces Pretty where
applyOptionalParam :: KubernetesRequest ListLeaseForAllNamespaces contentType res accept
-> Pretty
-> KubernetesRequest
ListLeaseForAllNamespaces contentType res accept
applyOptionalParam KubernetesRequest ListLeaseForAllNamespaces contentType res accept
req (Pretty Text
xs) =
KubernetesRequest ListLeaseForAllNamespaces contentType res accept
req KubernetesRequest ListLeaseForAllNamespaces contentType res accept
-> [QueryItem]
-> KubernetesRequest
ListLeaseForAllNamespaces 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 HasOptionalParam ListLeaseForAllNamespaces ResourceVersion where
applyOptionalParam :: KubernetesRequest ListLeaseForAllNamespaces contentType res accept
-> ResourceVersion
-> KubernetesRequest
ListLeaseForAllNamespaces contentType res accept
applyOptionalParam KubernetesRequest ListLeaseForAllNamespaces contentType res accept
req (ResourceVersion Text
xs) =
KubernetesRequest ListLeaseForAllNamespaces contentType res accept
req KubernetesRequest ListLeaseForAllNamespaces contentType res accept
-> [QueryItem]
-> KubernetesRequest
ListLeaseForAllNamespaces 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
"resourceVersion", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
xs)
instance HasOptionalParam ListLeaseForAllNamespaces TimeoutSeconds where
applyOptionalParam :: KubernetesRequest ListLeaseForAllNamespaces contentType res accept
-> TimeoutSeconds
-> KubernetesRequest
ListLeaseForAllNamespaces contentType res accept
applyOptionalParam KubernetesRequest ListLeaseForAllNamespaces contentType res accept
req (TimeoutSeconds Int
xs) =
KubernetesRequest ListLeaseForAllNamespaces contentType res accept
req KubernetesRequest ListLeaseForAllNamespaces contentType res accept
-> [QueryItem]
-> KubernetesRequest
ListLeaseForAllNamespaces contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Int) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"timeoutSeconds", Int -> Maybe Int
forall a. a -> Maybe a
Just Int
xs)
instance HasOptionalParam ListLeaseForAllNamespaces Watch where
applyOptionalParam :: KubernetesRequest ListLeaseForAllNamespaces contentType res accept
-> Watch
-> KubernetesRequest
ListLeaseForAllNamespaces contentType res accept
applyOptionalParam KubernetesRequest ListLeaseForAllNamespaces contentType res accept
req (Watch Bool
xs) =
KubernetesRequest ListLeaseForAllNamespaces contentType res accept
req KubernetesRequest ListLeaseForAllNamespaces contentType res accept
-> [QueryItem]
-> KubernetesRequest
ListLeaseForAllNamespaces contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Bool) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"watch", Bool -> Maybe Bool
forall a. a -> Maybe a
Just Bool
xs)
instance Produces ListLeaseForAllNamespaces MimeJSON
instance Produces ListLeaseForAllNamespaces MimeJsonstreamwatch
instance Produces ListLeaseForAllNamespaces MimeVndKubernetesProtobuf
instance Produces ListLeaseForAllNamespaces MimeVndKubernetesProtobufstreamwatch
instance Produces ListLeaseForAllNamespaces MimeYaml
listNamespacedLease
:: Accept accept
-> Namespace
-> KubernetesRequest ListNamespacedLease MimeNoContent V1LeaseList accept
listNamespacedLease :: Accept accept
-> Namespace
-> KubernetesRequest
ListNamespacedLease MimeNoContent V1LeaseList accept
listNamespacedLease Accept accept
_ (Namespace Text
namespace) =
Method
-> [ByteString]
-> KubernetesRequest
ListNamespacedLease MimeNoContent V1LeaseList accept
forall req contentType res accept.
Method
-> [ByteString] -> KubernetesRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/apis/coordination.k8s.io/v1/namespaces/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
namespace,ByteString
"/leases"]
KubernetesRequest
ListNamespacedLease MimeNoContent V1LeaseList accept
-> Proxy AuthApiKeyBearerToken
-> KubernetesRequest
ListNamespacedLease MimeNoContent V1LeaseList 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 ListNamespacedLease
instance HasOptionalParam ListNamespacedLease Pretty where
applyOptionalParam :: KubernetesRequest ListNamespacedLease contentType res accept
-> Pretty
-> KubernetesRequest ListNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest ListNamespacedLease contentType res accept
req (Pretty Text
xs) =
KubernetesRequest ListNamespacedLease contentType res accept
req KubernetesRequest ListNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest ListNamespacedLease 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 HasOptionalParam ListNamespacedLease AllowWatchBookmarks where
applyOptionalParam :: KubernetesRequest ListNamespacedLease contentType res accept
-> AllowWatchBookmarks
-> KubernetesRequest ListNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest ListNamespacedLease contentType res accept
req (AllowWatchBookmarks Bool
xs) =
KubernetesRequest ListNamespacedLease contentType res accept
req KubernetesRequest ListNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest ListNamespacedLease contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Bool) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"allowWatchBookmarks", Bool -> Maybe Bool
forall a. a -> Maybe a
Just Bool
xs)
instance HasOptionalParam ListNamespacedLease Continue where
applyOptionalParam :: KubernetesRequest ListNamespacedLease contentType res accept
-> Continue
-> KubernetesRequest ListNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest ListNamespacedLease contentType res accept
req (Continue Text
xs) =
KubernetesRequest ListNamespacedLease contentType res accept
req KubernetesRequest ListNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest ListNamespacedLease 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
"continue", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
xs)
instance HasOptionalParam ListNamespacedLease FieldSelector where
applyOptionalParam :: KubernetesRequest ListNamespacedLease contentType res accept
-> FieldSelector
-> KubernetesRequest ListNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest ListNamespacedLease contentType res accept
req (FieldSelector Text
xs) =
KubernetesRequest ListNamespacedLease contentType res accept
req KubernetesRequest ListNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest ListNamespacedLease 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
"fieldSelector", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
xs)
instance HasOptionalParam ListNamespacedLease LabelSelector where
applyOptionalParam :: KubernetesRequest ListNamespacedLease contentType res accept
-> LabelSelector
-> KubernetesRequest ListNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest ListNamespacedLease contentType res accept
req (LabelSelector Text
xs) =
KubernetesRequest ListNamespacedLease contentType res accept
req KubernetesRequest ListNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest ListNamespacedLease 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
"labelSelector", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
xs)
instance HasOptionalParam ListNamespacedLease Limit where
applyOptionalParam :: KubernetesRequest ListNamespacedLease contentType res accept
-> Limit
-> KubernetesRequest ListNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest ListNamespacedLease contentType res accept
req (Limit Int
xs) =
KubernetesRequest ListNamespacedLease contentType res accept
req KubernetesRequest ListNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest ListNamespacedLease contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Int) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"limit", Int -> Maybe Int
forall a. a -> Maybe a
Just Int
xs)
instance HasOptionalParam ListNamespacedLease ResourceVersion where
applyOptionalParam :: KubernetesRequest ListNamespacedLease contentType res accept
-> ResourceVersion
-> KubernetesRequest ListNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest ListNamespacedLease contentType res accept
req (ResourceVersion Text
xs) =
KubernetesRequest ListNamespacedLease contentType res accept
req KubernetesRequest ListNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest ListNamespacedLease 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
"resourceVersion", Text -> Maybe Text
forall a. a -> Maybe a
Just Text
xs)
instance HasOptionalParam ListNamespacedLease TimeoutSeconds where
applyOptionalParam :: KubernetesRequest ListNamespacedLease contentType res accept
-> TimeoutSeconds
-> KubernetesRequest ListNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest ListNamespacedLease contentType res accept
req (TimeoutSeconds Int
xs) =
KubernetesRequest ListNamespacedLease contentType res accept
req KubernetesRequest ListNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest ListNamespacedLease contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Int) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"timeoutSeconds", Int -> Maybe Int
forall a. a -> Maybe a
Just Int
xs)
instance HasOptionalParam ListNamespacedLease Watch where
applyOptionalParam :: KubernetesRequest ListNamespacedLease contentType res accept
-> Watch
-> KubernetesRequest ListNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest ListNamespacedLease contentType res accept
req (Watch Bool
xs) =
KubernetesRequest ListNamespacedLease contentType res accept
req KubernetesRequest ListNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest ListNamespacedLease contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Bool) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"watch", Bool -> Maybe Bool
forall a. a -> Maybe a
Just Bool
xs)
instance Produces ListNamespacedLease MimeJSON
instance Produces ListNamespacedLease MimeJsonstreamwatch
instance Produces ListNamespacedLease MimeVndKubernetesProtobuf
instance Produces ListNamespacedLease MimeVndKubernetesProtobufstreamwatch
instance Produces ListNamespacedLease MimeYaml
patchNamespacedLease
:: (Consumes PatchNamespacedLease contentType, MimeRender contentType Body)
=> ContentType contentType
-> Accept accept
-> Body
-> Name
-> Namespace
-> KubernetesRequest PatchNamespacedLease contentType V1Lease accept
patchNamespacedLease :: ContentType contentType
-> Accept accept
-> Body
-> Name
-> Namespace
-> KubernetesRequest
PatchNamespacedLease contentType V1Lease accept
patchNamespacedLease ContentType contentType
_ Accept accept
_ Body
body (Name Text
name) (Namespace Text
namespace) =
Method
-> [ByteString]
-> KubernetesRequest
PatchNamespacedLease contentType V1Lease accept
forall req contentType res accept.
Method
-> [ByteString] -> KubernetesRequest req contentType res accept
_mkRequest Method
"PATCH" [ByteString
"/apis/coordination.k8s.io/v1/namespaces/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
namespace,ByteString
"/leases/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
name]
KubernetesRequest PatchNamespacedLease contentType V1Lease accept
-> Proxy AuthApiKeyBearerToken
-> KubernetesRequest
PatchNamespacedLease contentType V1Lease 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 PatchNamespacedLease contentType V1Lease accept
-> Body
-> KubernetesRequest
PatchNamespacedLease contentType V1Lease 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` Body
body
data PatchNamespacedLease
instance HasBodyParam PatchNamespacedLease Body
instance HasOptionalParam PatchNamespacedLease Pretty where
applyOptionalParam :: KubernetesRequest PatchNamespacedLease contentType res accept
-> Pretty
-> KubernetesRequest PatchNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest PatchNamespacedLease contentType res accept
req (Pretty Text
xs) =
KubernetesRequest PatchNamespacedLease contentType res accept
req KubernetesRequest PatchNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest PatchNamespacedLease 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 HasOptionalParam PatchNamespacedLease DryRun where
applyOptionalParam :: KubernetesRequest PatchNamespacedLease contentType res accept
-> DryRun
-> KubernetesRequest PatchNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest PatchNamespacedLease contentType res accept
req (DryRun Text
xs) =
KubernetesRequest PatchNamespacedLease contentType res accept
req KubernetesRequest PatchNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest PatchNamespacedLease 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 PatchNamespacedLease FieldManager where
applyOptionalParam :: KubernetesRequest PatchNamespacedLease contentType res accept
-> FieldManager
-> KubernetesRequest PatchNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest PatchNamespacedLease contentType res accept
req (FieldManager Text
xs) =
KubernetesRequest PatchNamespacedLease contentType res accept
req KubernetesRequest PatchNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest PatchNamespacedLease 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 PatchNamespacedLease Force where
applyOptionalParam :: KubernetesRequest PatchNamespacedLease contentType res accept
-> Force
-> KubernetesRequest PatchNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest PatchNamespacedLease contentType res accept
req (Force Bool
xs) =
KubernetesRequest PatchNamespacedLease contentType res accept
req KubernetesRequest PatchNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest PatchNamespacedLease contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Bool) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"force", Bool -> Maybe Bool
forall a. a -> Maybe a
Just Bool
xs)
instance Consumes PatchNamespacedLease MimeApplyPatchyaml
instance Consumes PatchNamespacedLease MimeJsonPatchjson
instance Consumes PatchNamespacedLease MimeMergePatchjson
instance Consumes PatchNamespacedLease MimeStrategicMergePatchjson
instance Produces PatchNamespacedLease MimeJSON
instance Produces PatchNamespacedLease MimeVndKubernetesProtobuf
instance Produces PatchNamespacedLease MimeYaml
readNamespacedLease
:: Accept accept
-> Name
-> Namespace
-> KubernetesRequest ReadNamespacedLease MimeNoContent V1Lease accept
readNamespacedLease :: Accept accept
-> Name
-> Namespace
-> KubernetesRequest
ReadNamespacedLease MimeNoContent V1Lease accept
readNamespacedLease Accept accept
_ (Name Text
name) (Namespace Text
namespace) =
Method
-> [ByteString]
-> KubernetesRequest
ReadNamespacedLease MimeNoContent V1Lease accept
forall req contentType res accept.
Method
-> [ByteString] -> KubernetesRequest req contentType res accept
_mkRequest Method
"GET" [ByteString
"/apis/coordination.k8s.io/v1/namespaces/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
namespace,ByteString
"/leases/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
name]
KubernetesRequest ReadNamespacedLease MimeNoContent V1Lease accept
-> Proxy AuthApiKeyBearerToken
-> KubernetesRequest
ReadNamespacedLease MimeNoContent V1Lease 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 ReadNamespacedLease
instance HasOptionalParam ReadNamespacedLease Pretty where
applyOptionalParam :: KubernetesRequest ReadNamespacedLease contentType res accept
-> Pretty
-> KubernetesRequest ReadNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest ReadNamespacedLease contentType res accept
req (Pretty Text
xs) =
KubernetesRequest ReadNamespacedLease contentType res accept
req KubernetesRequest ReadNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest ReadNamespacedLease 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 HasOptionalParam ReadNamespacedLease Exact where
applyOptionalParam :: KubernetesRequest ReadNamespacedLease contentType res accept
-> Exact
-> KubernetesRequest ReadNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest ReadNamespacedLease contentType res accept
req (Exact Bool
xs) =
KubernetesRequest ReadNamespacedLease contentType res accept
req KubernetesRequest ReadNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest ReadNamespacedLease contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Bool) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"exact", Bool -> Maybe Bool
forall a. a -> Maybe a
Just Bool
xs)
instance HasOptionalParam ReadNamespacedLease Export where
applyOptionalParam :: KubernetesRequest ReadNamespacedLease contentType res accept
-> Export
-> KubernetesRequest ReadNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest ReadNamespacedLease contentType res accept
req (Export Bool
xs) =
KubernetesRequest ReadNamespacedLease contentType res accept
req KubernetesRequest ReadNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest ReadNamespacedLease contentType res accept
forall req contentType res accept.
KubernetesRequest req contentType res accept
-> [QueryItem] -> KubernetesRequest req contentType res accept
`addQuery` (Method, Maybe Bool) -> [QueryItem]
forall a. ToHttpApiData a => (Method, Maybe a) -> [QueryItem]
toQuery (Method
"export", Bool -> Maybe Bool
forall a. a -> Maybe a
Just Bool
xs)
instance Produces ReadNamespacedLease MimeJSON
instance Produces ReadNamespacedLease MimeVndKubernetesProtobuf
instance Produces ReadNamespacedLease MimeYaml
replaceNamespacedLease
:: (Consumes ReplaceNamespacedLease contentType, MimeRender contentType V1Lease)
=> ContentType contentType
-> Accept accept
-> V1Lease
-> Name
-> Namespace
-> KubernetesRequest ReplaceNamespacedLease contentType V1Lease accept
replaceNamespacedLease :: ContentType contentType
-> Accept accept
-> V1Lease
-> Name
-> Namespace
-> KubernetesRequest
ReplaceNamespacedLease contentType V1Lease accept
replaceNamespacedLease ContentType contentType
_ Accept accept
_ V1Lease
body (Name Text
name) (Namespace Text
namespace) =
Method
-> [ByteString]
-> KubernetesRequest
ReplaceNamespacedLease contentType V1Lease accept
forall req contentType res accept.
Method
-> [ByteString] -> KubernetesRequest req contentType res accept
_mkRequest Method
"PUT" [ByteString
"/apis/coordination.k8s.io/v1/namespaces/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
namespace,ByteString
"/leases/",Text -> ByteString
forall a. ToHttpApiData a => a -> ByteString
toPath Text
name]
KubernetesRequest ReplaceNamespacedLease contentType V1Lease accept
-> Proxy AuthApiKeyBearerToken
-> KubernetesRequest
ReplaceNamespacedLease contentType V1Lease 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 ReplaceNamespacedLease contentType V1Lease accept
-> V1Lease
-> KubernetesRequest
ReplaceNamespacedLease contentType V1Lease 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` V1Lease
body
data ReplaceNamespacedLease
instance HasBodyParam ReplaceNamespacedLease V1Lease
instance HasOptionalParam ReplaceNamespacedLease Pretty where
applyOptionalParam :: KubernetesRequest ReplaceNamespacedLease contentType res accept
-> Pretty
-> KubernetesRequest ReplaceNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest ReplaceNamespacedLease contentType res accept
req (Pretty Text
xs) =
KubernetesRequest ReplaceNamespacedLease contentType res accept
req KubernetesRequest ReplaceNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest ReplaceNamespacedLease 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 HasOptionalParam ReplaceNamespacedLease DryRun where
applyOptionalParam :: KubernetesRequest ReplaceNamespacedLease contentType res accept
-> DryRun
-> KubernetesRequest ReplaceNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest ReplaceNamespacedLease contentType res accept
req (DryRun Text
xs) =
KubernetesRequest ReplaceNamespacedLease contentType res accept
req KubernetesRequest ReplaceNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest ReplaceNamespacedLease 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 ReplaceNamespacedLease FieldManager where
applyOptionalParam :: KubernetesRequest ReplaceNamespacedLease contentType res accept
-> FieldManager
-> KubernetesRequest ReplaceNamespacedLease contentType res accept
applyOptionalParam KubernetesRequest ReplaceNamespacedLease contentType res accept
req (FieldManager Text
xs) =
KubernetesRequest ReplaceNamespacedLease contentType res accept
req KubernetesRequest ReplaceNamespacedLease contentType res accept
-> [QueryItem]
-> KubernetesRequest ReplaceNamespacedLease 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 MimeType mtype => Consumes ReplaceNamespacedLease mtype
instance Produces ReplaceNamespacedLease MimeJSON
instance Produces ReplaceNamespacedLease MimeVndKubernetesProtobuf
instance Produces ReplaceNamespacedLease MimeYaml