{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.SSOAdmin.PutPermissionsBoundaryToPermissionSet
(
PutPermissionsBoundaryToPermissionSet (..),
newPutPermissionsBoundaryToPermissionSet,
putPermissionsBoundaryToPermissionSet_instanceArn,
putPermissionsBoundaryToPermissionSet_permissionSetArn,
putPermissionsBoundaryToPermissionSet_permissionsBoundary,
PutPermissionsBoundaryToPermissionSetResponse (..),
newPutPermissionsBoundaryToPermissionSetResponse,
putPermissionsBoundaryToPermissionSetResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.SSOAdmin.Types
data PutPermissionsBoundaryToPermissionSet = PutPermissionsBoundaryToPermissionSet'
{
PutPermissionsBoundaryToPermissionSet -> Text
instanceArn :: Prelude.Text,
PutPermissionsBoundaryToPermissionSet -> Text
permissionSetArn :: Prelude.Text,
PutPermissionsBoundaryToPermissionSet -> PermissionsBoundary
permissionsBoundary :: PermissionsBoundary
}
deriving (PutPermissionsBoundaryToPermissionSet
-> PutPermissionsBoundaryToPermissionSet -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutPermissionsBoundaryToPermissionSet
-> PutPermissionsBoundaryToPermissionSet -> Bool
$c/= :: PutPermissionsBoundaryToPermissionSet
-> PutPermissionsBoundaryToPermissionSet -> Bool
== :: PutPermissionsBoundaryToPermissionSet
-> PutPermissionsBoundaryToPermissionSet -> Bool
$c== :: PutPermissionsBoundaryToPermissionSet
-> PutPermissionsBoundaryToPermissionSet -> Bool
Prelude.Eq, ReadPrec [PutPermissionsBoundaryToPermissionSet]
ReadPrec PutPermissionsBoundaryToPermissionSet
Int -> ReadS PutPermissionsBoundaryToPermissionSet
ReadS [PutPermissionsBoundaryToPermissionSet]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutPermissionsBoundaryToPermissionSet]
$creadListPrec :: ReadPrec [PutPermissionsBoundaryToPermissionSet]
readPrec :: ReadPrec PutPermissionsBoundaryToPermissionSet
$creadPrec :: ReadPrec PutPermissionsBoundaryToPermissionSet
readList :: ReadS [PutPermissionsBoundaryToPermissionSet]
$creadList :: ReadS [PutPermissionsBoundaryToPermissionSet]
readsPrec :: Int -> ReadS PutPermissionsBoundaryToPermissionSet
$creadsPrec :: Int -> ReadS PutPermissionsBoundaryToPermissionSet
Prelude.Read, Int -> PutPermissionsBoundaryToPermissionSet -> ShowS
[PutPermissionsBoundaryToPermissionSet] -> ShowS
PutPermissionsBoundaryToPermissionSet -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutPermissionsBoundaryToPermissionSet] -> ShowS
$cshowList :: [PutPermissionsBoundaryToPermissionSet] -> ShowS
show :: PutPermissionsBoundaryToPermissionSet -> String
$cshow :: PutPermissionsBoundaryToPermissionSet -> String
showsPrec :: Int -> PutPermissionsBoundaryToPermissionSet -> ShowS
$cshowsPrec :: Int -> PutPermissionsBoundaryToPermissionSet -> ShowS
Prelude.Show, forall x.
Rep PutPermissionsBoundaryToPermissionSet x
-> PutPermissionsBoundaryToPermissionSet
forall x.
PutPermissionsBoundaryToPermissionSet
-> Rep PutPermissionsBoundaryToPermissionSet x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutPermissionsBoundaryToPermissionSet x
-> PutPermissionsBoundaryToPermissionSet
$cfrom :: forall x.
PutPermissionsBoundaryToPermissionSet
-> Rep PutPermissionsBoundaryToPermissionSet x
Prelude.Generic)
newPutPermissionsBoundaryToPermissionSet ::
Prelude.Text ->
Prelude.Text ->
PermissionsBoundary ->
PutPermissionsBoundaryToPermissionSet
newPutPermissionsBoundaryToPermissionSet :: Text
-> Text
-> PermissionsBoundary
-> PutPermissionsBoundaryToPermissionSet
newPutPermissionsBoundaryToPermissionSet
Text
pInstanceArn_
Text
pPermissionSetArn_
PermissionsBoundary
pPermissionsBoundary_ =
PutPermissionsBoundaryToPermissionSet'
{ $sel:instanceArn:PutPermissionsBoundaryToPermissionSet' :: Text
instanceArn =
Text
pInstanceArn_,
$sel:permissionSetArn:PutPermissionsBoundaryToPermissionSet' :: Text
permissionSetArn =
Text
pPermissionSetArn_,
$sel:permissionsBoundary:PutPermissionsBoundaryToPermissionSet' :: PermissionsBoundary
permissionsBoundary =
PermissionsBoundary
pPermissionsBoundary_
}
putPermissionsBoundaryToPermissionSet_instanceArn :: Lens.Lens' PutPermissionsBoundaryToPermissionSet Prelude.Text
putPermissionsBoundaryToPermissionSet_instanceArn :: Lens' PutPermissionsBoundaryToPermissionSet Text
putPermissionsBoundaryToPermissionSet_instanceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPermissionsBoundaryToPermissionSet' {Text
instanceArn :: Text
$sel:instanceArn:PutPermissionsBoundaryToPermissionSet' :: PutPermissionsBoundaryToPermissionSet -> Text
instanceArn} -> Text
instanceArn) (\s :: PutPermissionsBoundaryToPermissionSet
s@PutPermissionsBoundaryToPermissionSet' {} Text
a -> PutPermissionsBoundaryToPermissionSet
s {$sel:instanceArn:PutPermissionsBoundaryToPermissionSet' :: Text
instanceArn = Text
a} :: PutPermissionsBoundaryToPermissionSet)
putPermissionsBoundaryToPermissionSet_permissionSetArn :: Lens.Lens' PutPermissionsBoundaryToPermissionSet Prelude.Text
putPermissionsBoundaryToPermissionSet_permissionSetArn :: Lens' PutPermissionsBoundaryToPermissionSet Text
putPermissionsBoundaryToPermissionSet_permissionSetArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPermissionsBoundaryToPermissionSet' {Text
permissionSetArn :: Text
$sel:permissionSetArn:PutPermissionsBoundaryToPermissionSet' :: PutPermissionsBoundaryToPermissionSet -> Text
permissionSetArn} -> Text
permissionSetArn) (\s :: PutPermissionsBoundaryToPermissionSet
s@PutPermissionsBoundaryToPermissionSet' {} Text
a -> PutPermissionsBoundaryToPermissionSet
s {$sel:permissionSetArn:PutPermissionsBoundaryToPermissionSet' :: Text
permissionSetArn = Text
a} :: PutPermissionsBoundaryToPermissionSet)
putPermissionsBoundaryToPermissionSet_permissionsBoundary :: Lens.Lens' PutPermissionsBoundaryToPermissionSet PermissionsBoundary
putPermissionsBoundaryToPermissionSet_permissionsBoundary :: Lens' PutPermissionsBoundaryToPermissionSet PermissionsBoundary
putPermissionsBoundaryToPermissionSet_permissionsBoundary = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPermissionsBoundaryToPermissionSet' {PermissionsBoundary
permissionsBoundary :: PermissionsBoundary
$sel:permissionsBoundary:PutPermissionsBoundaryToPermissionSet' :: PutPermissionsBoundaryToPermissionSet -> PermissionsBoundary
permissionsBoundary} -> PermissionsBoundary
permissionsBoundary) (\s :: PutPermissionsBoundaryToPermissionSet
s@PutPermissionsBoundaryToPermissionSet' {} PermissionsBoundary
a -> PutPermissionsBoundaryToPermissionSet
s {$sel:permissionsBoundary:PutPermissionsBoundaryToPermissionSet' :: PermissionsBoundary
permissionsBoundary = PermissionsBoundary
a} :: PutPermissionsBoundaryToPermissionSet)
instance
Core.AWSRequest
PutPermissionsBoundaryToPermissionSet
where
type
AWSResponse
PutPermissionsBoundaryToPermissionSet =
PutPermissionsBoundaryToPermissionSetResponse
request :: (Service -> Service)
-> PutPermissionsBoundaryToPermissionSet
-> Request PutPermissionsBoundaryToPermissionSet
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy PutPermissionsBoundaryToPermissionSet
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse PutPermissionsBoundaryToPermissionSet)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> PutPermissionsBoundaryToPermissionSetResponse
PutPermissionsBoundaryToPermissionSetResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
PutPermissionsBoundaryToPermissionSet
where
hashWithSalt :: Int -> PutPermissionsBoundaryToPermissionSet -> Int
hashWithSalt
Int
_salt
PutPermissionsBoundaryToPermissionSet' {Text
PermissionsBoundary
permissionsBoundary :: PermissionsBoundary
permissionSetArn :: Text
instanceArn :: Text
$sel:permissionsBoundary:PutPermissionsBoundaryToPermissionSet' :: PutPermissionsBoundaryToPermissionSet -> PermissionsBoundary
$sel:permissionSetArn:PutPermissionsBoundaryToPermissionSet' :: PutPermissionsBoundaryToPermissionSet -> Text
$sel:instanceArn:PutPermissionsBoundaryToPermissionSet' :: PutPermissionsBoundaryToPermissionSet -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
instanceArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
permissionSetArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` PermissionsBoundary
permissionsBoundary
instance
Prelude.NFData
PutPermissionsBoundaryToPermissionSet
where
rnf :: PutPermissionsBoundaryToPermissionSet -> ()
rnf PutPermissionsBoundaryToPermissionSet' {Text
PermissionsBoundary
permissionsBoundary :: PermissionsBoundary
permissionSetArn :: Text
instanceArn :: Text
$sel:permissionsBoundary:PutPermissionsBoundaryToPermissionSet' :: PutPermissionsBoundaryToPermissionSet -> PermissionsBoundary
$sel:permissionSetArn:PutPermissionsBoundaryToPermissionSet' :: PutPermissionsBoundaryToPermissionSet -> Text
$sel:instanceArn:PutPermissionsBoundaryToPermissionSet' :: PutPermissionsBoundaryToPermissionSet -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
instanceArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
permissionSetArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf PermissionsBoundary
permissionsBoundary
instance
Data.ToHeaders
PutPermissionsBoundaryToPermissionSet
where
toHeaders :: PutPermissionsBoundaryToPermissionSet -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"SWBExternalService.PutPermissionsBoundaryToPermissionSet" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance
Data.ToJSON
PutPermissionsBoundaryToPermissionSet
where
toJSON :: PutPermissionsBoundaryToPermissionSet -> Value
toJSON PutPermissionsBoundaryToPermissionSet' {Text
PermissionsBoundary
permissionsBoundary :: PermissionsBoundary
permissionSetArn :: Text
instanceArn :: Text
$sel:permissionsBoundary:PutPermissionsBoundaryToPermissionSet' :: PutPermissionsBoundaryToPermissionSet -> PermissionsBoundary
$sel:permissionSetArn:PutPermissionsBoundaryToPermissionSet' :: PutPermissionsBoundaryToPermissionSet -> Text
$sel:instanceArn:PutPermissionsBoundaryToPermissionSet' :: PutPermissionsBoundaryToPermissionSet -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just (Key
"InstanceArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
instanceArn),
forall a. a -> Maybe a
Prelude.Just
(Key
"PermissionSetArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
permissionSetArn),
forall a. a -> Maybe a
Prelude.Just
(Key
"PermissionsBoundary" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= PermissionsBoundary
permissionsBoundary)
]
)
instance
Data.ToPath
PutPermissionsBoundaryToPermissionSet
where
toPath :: PutPermissionsBoundaryToPermissionSet -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
PutPermissionsBoundaryToPermissionSet
where
toQuery :: PutPermissionsBoundaryToPermissionSet -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data PutPermissionsBoundaryToPermissionSetResponse = PutPermissionsBoundaryToPermissionSetResponse'
{
PutPermissionsBoundaryToPermissionSetResponse -> Int
httpStatus :: Prelude.Int
}
deriving (PutPermissionsBoundaryToPermissionSetResponse
-> PutPermissionsBoundaryToPermissionSetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutPermissionsBoundaryToPermissionSetResponse
-> PutPermissionsBoundaryToPermissionSetResponse -> Bool
$c/= :: PutPermissionsBoundaryToPermissionSetResponse
-> PutPermissionsBoundaryToPermissionSetResponse -> Bool
== :: PutPermissionsBoundaryToPermissionSetResponse
-> PutPermissionsBoundaryToPermissionSetResponse -> Bool
$c== :: PutPermissionsBoundaryToPermissionSetResponse
-> PutPermissionsBoundaryToPermissionSetResponse -> Bool
Prelude.Eq, ReadPrec [PutPermissionsBoundaryToPermissionSetResponse]
ReadPrec PutPermissionsBoundaryToPermissionSetResponse
Int -> ReadS PutPermissionsBoundaryToPermissionSetResponse
ReadS [PutPermissionsBoundaryToPermissionSetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutPermissionsBoundaryToPermissionSetResponse]
$creadListPrec :: ReadPrec [PutPermissionsBoundaryToPermissionSetResponse]
readPrec :: ReadPrec PutPermissionsBoundaryToPermissionSetResponse
$creadPrec :: ReadPrec PutPermissionsBoundaryToPermissionSetResponse
readList :: ReadS [PutPermissionsBoundaryToPermissionSetResponse]
$creadList :: ReadS [PutPermissionsBoundaryToPermissionSetResponse]
readsPrec :: Int -> ReadS PutPermissionsBoundaryToPermissionSetResponse
$creadsPrec :: Int -> ReadS PutPermissionsBoundaryToPermissionSetResponse
Prelude.Read, Int -> PutPermissionsBoundaryToPermissionSetResponse -> ShowS
[PutPermissionsBoundaryToPermissionSetResponse] -> ShowS
PutPermissionsBoundaryToPermissionSetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutPermissionsBoundaryToPermissionSetResponse] -> ShowS
$cshowList :: [PutPermissionsBoundaryToPermissionSetResponse] -> ShowS
show :: PutPermissionsBoundaryToPermissionSetResponse -> String
$cshow :: PutPermissionsBoundaryToPermissionSetResponse -> String
showsPrec :: Int -> PutPermissionsBoundaryToPermissionSetResponse -> ShowS
$cshowsPrec :: Int -> PutPermissionsBoundaryToPermissionSetResponse -> ShowS
Prelude.Show, forall x.
Rep PutPermissionsBoundaryToPermissionSetResponse x
-> PutPermissionsBoundaryToPermissionSetResponse
forall x.
PutPermissionsBoundaryToPermissionSetResponse
-> Rep PutPermissionsBoundaryToPermissionSetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutPermissionsBoundaryToPermissionSetResponse x
-> PutPermissionsBoundaryToPermissionSetResponse
$cfrom :: forall x.
PutPermissionsBoundaryToPermissionSetResponse
-> Rep PutPermissionsBoundaryToPermissionSetResponse x
Prelude.Generic)
newPutPermissionsBoundaryToPermissionSetResponse ::
Prelude.Int ->
PutPermissionsBoundaryToPermissionSetResponse
newPutPermissionsBoundaryToPermissionSetResponse :: Int -> PutPermissionsBoundaryToPermissionSetResponse
newPutPermissionsBoundaryToPermissionSetResponse
Int
pHttpStatus_ =
PutPermissionsBoundaryToPermissionSetResponse'
{ $sel:httpStatus:PutPermissionsBoundaryToPermissionSetResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
putPermissionsBoundaryToPermissionSetResponse_httpStatus :: Lens.Lens' PutPermissionsBoundaryToPermissionSetResponse Prelude.Int
putPermissionsBoundaryToPermissionSetResponse_httpStatus :: Lens' PutPermissionsBoundaryToPermissionSetResponse Int
putPermissionsBoundaryToPermissionSetResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutPermissionsBoundaryToPermissionSetResponse' {Int
httpStatus :: Int
$sel:httpStatus:PutPermissionsBoundaryToPermissionSetResponse' :: PutPermissionsBoundaryToPermissionSetResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: PutPermissionsBoundaryToPermissionSetResponse
s@PutPermissionsBoundaryToPermissionSetResponse' {} Int
a -> PutPermissionsBoundaryToPermissionSetResponse
s {$sel:httpStatus:PutPermissionsBoundaryToPermissionSetResponse' :: Int
httpStatus = Int
a} :: PutPermissionsBoundaryToPermissionSetResponse)
instance
Prelude.NFData
PutPermissionsBoundaryToPermissionSetResponse
where
rnf :: PutPermissionsBoundaryToPermissionSetResponse -> ()
rnf
PutPermissionsBoundaryToPermissionSetResponse' {Int
httpStatus :: Int
$sel:httpStatus:PutPermissionsBoundaryToPermissionSetResponse' :: PutPermissionsBoundaryToPermissionSetResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus