/
SelfSubjectAccessReview.purs
29 lines (27 loc) · 1.22 KB
/
SelfSubjectAccessReview.purs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
module Kubernetes.Api.Authorization.V1Beta1.SelfSubjectAccessReview where
import Prelude
import Prelude
import Data.Either (Either(Left,Right))
import Data.Generic.Rep (class Generic)
import Data.Generic.Rep.Show (genericShow)
import Data.Maybe (Maybe(Just,Nothing))
import Data.Newtype (class Newtype)
import Data.Tuple (Tuple(Tuple))
import Effect.Aff (Aff)
import Foreign.Class (class Decode, class Encode, encode, decode)
import Foreign.Generic (encodeJSON, genericEncode, genericDecode)
import Foreign.Index (readProp)
import Foreign.Object (Object)
import Foreign.Object as Object
import Kubernetes.Client as Client
import Kubernetes.Config (Config)
import Kubernetes.Default (class Default)
import Kubernetes.Json (assertPropEq, decodeMaybe, encodeMaybe, jsonOptions)
import Kubernetes.Api.Authorization.V1Beta1 as AuthorizationV1Beta1
import Kubernetes.Api.Meta.V1 as MetaV1
-- | create a SelfSubjectAccessReview
create :: Config -> AuthorizationV1Beta1.SelfSubjectAccessReview -> Aff (Either MetaV1.Status AuthorizationV1Beta1.SelfSubjectAccessReview)
create cfg body = Client.makeRequest (Client.post cfg url (Just encodedBody))
where
url = "/apis/authorization.k8s.io/v1beta1/selfsubjectaccessreviews"
encodedBody = encodeJSON body