{-# 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.GetPermissionsBoundaryForPermissionSet
(
GetPermissionsBoundaryForPermissionSet (..),
newGetPermissionsBoundaryForPermissionSet,
getPermissionsBoundaryForPermissionSet_instanceArn,
getPermissionsBoundaryForPermissionSet_permissionSetArn,
GetPermissionsBoundaryForPermissionSetResponse (..),
newGetPermissionsBoundaryForPermissionSetResponse,
getPermissionsBoundaryForPermissionSetResponse_permissionsBoundary,
getPermissionsBoundaryForPermissionSetResponse_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 GetPermissionsBoundaryForPermissionSet = GetPermissionsBoundaryForPermissionSet'
{
GetPermissionsBoundaryForPermissionSet -> Text
instanceArn :: Prelude.Text,
GetPermissionsBoundaryForPermissionSet -> Text
permissionSetArn :: Prelude.Text
}
deriving (GetPermissionsBoundaryForPermissionSet
-> GetPermissionsBoundaryForPermissionSet -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetPermissionsBoundaryForPermissionSet
-> GetPermissionsBoundaryForPermissionSet -> Bool
$c/= :: GetPermissionsBoundaryForPermissionSet
-> GetPermissionsBoundaryForPermissionSet -> Bool
== :: GetPermissionsBoundaryForPermissionSet
-> GetPermissionsBoundaryForPermissionSet -> Bool
$c== :: GetPermissionsBoundaryForPermissionSet
-> GetPermissionsBoundaryForPermissionSet -> Bool
Prelude.Eq, ReadPrec [GetPermissionsBoundaryForPermissionSet]
ReadPrec GetPermissionsBoundaryForPermissionSet
Int -> ReadS GetPermissionsBoundaryForPermissionSet
ReadS [GetPermissionsBoundaryForPermissionSet]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetPermissionsBoundaryForPermissionSet]
$creadListPrec :: ReadPrec [GetPermissionsBoundaryForPermissionSet]
readPrec :: ReadPrec GetPermissionsBoundaryForPermissionSet
$creadPrec :: ReadPrec GetPermissionsBoundaryForPermissionSet
readList :: ReadS [GetPermissionsBoundaryForPermissionSet]
$creadList :: ReadS [GetPermissionsBoundaryForPermissionSet]
readsPrec :: Int -> ReadS GetPermissionsBoundaryForPermissionSet
$creadsPrec :: Int -> ReadS GetPermissionsBoundaryForPermissionSet
Prelude.Read, Int -> GetPermissionsBoundaryForPermissionSet -> ShowS
[GetPermissionsBoundaryForPermissionSet] -> ShowS
GetPermissionsBoundaryForPermissionSet -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetPermissionsBoundaryForPermissionSet] -> ShowS
$cshowList :: [GetPermissionsBoundaryForPermissionSet] -> ShowS
show :: GetPermissionsBoundaryForPermissionSet -> String
$cshow :: GetPermissionsBoundaryForPermissionSet -> String
showsPrec :: Int -> GetPermissionsBoundaryForPermissionSet -> ShowS
$cshowsPrec :: Int -> GetPermissionsBoundaryForPermissionSet -> ShowS
Prelude.Show, forall x.
Rep GetPermissionsBoundaryForPermissionSet x
-> GetPermissionsBoundaryForPermissionSet
forall x.
GetPermissionsBoundaryForPermissionSet
-> Rep GetPermissionsBoundaryForPermissionSet x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetPermissionsBoundaryForPermissionSet x
-> GetPermissionsBoundaryForPermissionSet
$cfrom :: forall x.
GetPermissionsBoundaryForPermissionSet
-> Rep GetPermissionsBoundaryForPermissionSet x
Prelude.Generic)
newGetPermissionsBoundaryForPermissionSet ::
Prelude.Text ->
Prelude.Text ->
GetPermissionsBoundaryForPermissionSet
newGetPermissionsBoundaryForPermissionSet :: Text -> Text -> GetPermissionsBoundaryForPermissionSet
newGetPermissionsBoundaryForPermissionSet
Text
pInstanceArn_
Text
pPermissionSetArn_ =
GetPermissionsBoundaryForPermissionSet'
{ $sel:instanceArn:GetPermissionsBoundaryForPermissionSet' :: Text
instanceArn =
Text
pInstanceArn_,
$sel:permissionSetArn:GetPermissionsBoundaryForPermissionSet' :: Text
permissionSetArn =
Text
pPermissionSetArn_
}
getPermissionsBoundaryForPermissionSet_instanceArn :: Lens.Lens' GetPermissionsBoundaryForPermissionSet Prelude.Text
getPermissionsBoundaryForPermissionSet_instanceArn :: Lens' GetPermissionsBoundaryForPermissionSet Text
getPermissionsBoundaryForPermissionSet_instanceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetPermissionsBoundaryForPermissionSet' {Text
instanceArn :: Text
$sel:instanceArn:GetPermissionsBoundaryForPermissionSet' :: GetPermissionsBoundaryForPermissionSet -> Text
instanceArn} -> Text
instanceArn) (\s :: GetPermissionsBoundaryForPermissionSet
s@GetPermissionsBoundaryForPermissionSet' {} Text
a -> GetPermissionsBoundaryForPermissionSet
s {$sel:instanceArn:GetPermissionsBoundaryForPermissionSet' :: Text
instanceArn = Text
a} :: GetPermissionsBoundaryForPermissionSet)
getPermissionsBoundaryForPermissionSet_permissionSetArn :: Lens.Lens' GetPermissionsBoundaryForPermissionSet Prelude.Text
getPermissionsBoundaryForPermissionSet_permissionSetArn :: Lens' GetPermissionsBoundaryForPermissionSet Text
getPermissionsBoundaryForPermissionSet_permissionSetArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetPermissionsBoundaryForPermissionSet' {Text
permissionSetArn :: Text
$sel:permissionSetArn:GetPermissionsBoundaryForPermissionSet' :: GetPermissionsBoundaryForPermissionSet -> Text
permissionSetArn} -> Text
permissionSetArn) (\s :: GetPermissionsBoundaryForPermissionSet
s@GetPermissionsBoundaryForPermissionSet' {} Text
a -> GetPermissionsBoundaryForPermissionSet
s {$sel:permissionSetArn:GetPermissionsBoundaryForPermissionSet' :: Text
permissionSetArn = Text
a} :: GetPermissionsBoundaryForPermissionSet)
instance
Core.AWSRequest
GetPermissionsBoundaryForPermissionSet
where
type
AWSResponse
GetPermissionsBoundaryForPermissionSet =
GetPermissionsBoundaryForPermissionSetResponse
request :: (Service -> Service)
-> GetPermissionsBoundaryForPermissionSet
-> Request GetPermissionsBoundaryForPermissionSet
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 GetPermissionsBoundaryForPermissionSet
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse GetPermissionsBoundaryForPermissionSet)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe PermissionsBoundary
-> Int -> GetPermissionsBoundaryForPermissionSetResponse
GetPermissionsBoundaryForPermissionSetResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"PermissionsBoundary")
forall (f :: * -> *) a b. Applicative f => 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
GetPermissionsBoundaryForPermissionSet
where
hashWithSalt :: Int -> GetPermissionsBoundaryForPermissionSet -> Int
hashWithSalt
Int
_salt
GetPermissionsBoundaryForPermissionSet' {Text
permissionSetArn :: Text
instanceArn :: Text
$sel:permissionSetArn:GetPermissionsBoundaryForPermissionSet' :: GetPermissionsBoundaryForPermissionSet -> Text
$sel:instanceArn:GetPermissionsBoundaryForPermissionSet' :: GetPermissionsBoundaryForPermissionSet -> 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
instance
Prelude.NFData
GetPermissionsBoundaryForPermissionSet
where
rnf :: GetPermissionsBoundaryForPermissionSet -> ()
rnf GetPermissionsBoundaryForPermissionSet' {Text
permissionSetArn :: Text
instanceArn :: Text
$sel:permissionSetArn:GetPermissionsBoundaryForPermissionSet' :: GetPermissionsBoundaryForPermissionSet -> Text
$sel:instanceArn:GetPermissionsBoundaryForPermissionSet' :: GetPermissionsBoundaryForPermissionSet -> 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
instance
Data.ToHeaders
GetPermissionsBoundaryForPermissionSet
where
toHeaders :: GetPermissionsBoundaryForPermissionSet -> 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.GetPermissionsBoundaryForPermissionSet" ::
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
GetPermissionsBoundaryForPermissionSet
where
toJSON :: GetPermissionsBoundaryForPermissionSet -> Value
toJSON GetPermissionsBoundaryForPermissionSet' {Text
permissionSetArn :: Text
instanceArn :: Text
$sel:permissionSetArn:GetPermissionsBoundaryForPermissionSet' :: GetPermissionsBoundaryForPermissionSet -> Text
$sel:instanceArn:GetPermissionsBoundaryForPermissionSet' :: GetPermissionsBoundaryForPermissionSet -> 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)
]
)
instance
Data.ToPath
GetPermissionsBoundaryForPermissionSet
where
toPath :: GetPermissionsBoundaryForPermissionSet -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
GetPermissionsBoundaryForPermissionSet
where
toQuery :: GetPermissionsBoundaryForPermissionSet -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetPermissionsBoundaryForPermissionSetResponse = GetPermissionsBoundaryForPermissionSetResponse'
{
GetPermissionsBoundaryForPermissionSetResponse
-> Maybe PermissionsBoundary
permissionsBoundary :: Prelude.Maybe PermissionsBoundary,
GetPermissionsBoundaryForPermissionSetResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetPermissionsBoundaryForPermissionSetResponse
-> GetPermissionsBoundaryForPermissionSetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetPermissionsBoundaryForPermissionSetResponse
-> GetPermissionsBoundaryForPermissionSetResponse -> Bool
$c/= :: GetPermissionsBoundaryForPermissionSetResponse
-> GetPermissionsBoundaryForPermissionSetResponse -> Bool
== :: GetPermissionsBoundaryForPermissionSetResponse
-> GetPermissionsBoundaryForPermissionSetResponse -> Bool
$c== :: GetPermissionsBoundaryForPermissionSetResponse
-> GetPermissionsBoundaryForPermissionSetResponse -> Bool
Prelude.Eq, ReadPrec [GetPermissionsBoundaryForPermissionSetResponse]
ReadPrec GetPermissionsBoundaryForPermissionSetResponse
Int -> ReadS GetPermissionsBoundaryForPermissionSetResponse
ReadS [GetPermissionsBoundaryForPermissionSetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetPermissionsBoundaryForPermissionSetResponse]
$creadListPrec :: ReadPrec [GetPermissionsBoundaryForPermissionSetResponse]
readPrec :: ReadPrec GetPermissionsBoundaryForPermissionSetResponse
$creadPrec :: ReadPrec GetPermissionsBoundaryForPermissionSetResponse
readList :: ReadS [GetPermissionsBoundaryForPermissionSetResponse]
$creadList :: ReadS [GetPermissionsBoundaryForPermissionSetResponse]
readsPrec :: Int -> ReadS GetPermissionsBoundaryForPermissionSetResponse
$creadsPrec :: Int -> ReadS GetPermissionsBoundaryForPermissionSetResponse
Prelude.Read, Int -> GetPermissionsBoundaryForPermissionSetResponse -> ShowS
[GetPermissionsBoundaryForPermissionSetResponse] -> ShowS
GetPermissionsBoundaryForPermissionSetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetPermissionsBoundaryForPermissionSetResponse] -> ShowS
$cshowList :: [GetPermissionsBoundaryForPermissionSetResponse] -> ShowS
show :: GetPermissionsBoundaryForPermissionSetResponse -> String
$cshow :: GetPermissionsBoundaryForPermissionSetResponse -> String
showsPrec :: Int -> GetPermissionsBoundaryForPermissionSetResponse -> ShowS
$cshowsPrec :: Int -> GetPermissionsBoundaryForPermissionSetResponse -> ShowS
Prelude.Show, forall x.
Rep GetPermissionsBoundaryForPermissionSetResponse x
-> GetPermissionsBoundaryForPermissionSetResponse
forall x.
GetPermissionsBoundaryForPermissionSetResponse
-> Rep GetPermissionsBoundaryForPermissionSetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetPermissionsBoundaryForPermissionSetResponse x
-> GetPermissionsBoundaryForPermissionSetResponse
$cfrom :: forall x.
GetPermissionsBoundaryForPermissionSetResponse
-> Rep GetPermissionsBoundaryForPermissionSetResponse x
Prelude.Generic)
newGetPermissionsBoundaryForPermissionSetResponse ::
Prelude.Int ->
GetPermissionsBoundaryForPermissionSetResponse
newGetPermissionsBoundaryForPermissionSetResponse :: Int -> GetPermissionsBoundaryForPermissionSetResponse
newGetPermissionsBoundaryForPermissionSetResponse
Int
pHttpStatus_ =
GetPermissionsBoundaryForPermissionSetResponse'
{ $sel:permissionsBoundary:GetPermissionsBoundaryForPermissionSetResponse' :: Maybe PermissionsBoundary
permissionsBoundary =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetPermissionsBoundaryForPermissionSetResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getPermissionsBoundaryForPermissionSetResponse_permissionsBoundary :: Lens.Lens' GetPermissionsBoundaryForPermissionSetResponse (Prelude.Maybe PermissionsBoundary)
getPermissionsBoundaryForPermissionSetResponse_permissionsBoundary :: Lens'
GetPermissionsBoundaryForPermissionSetResponse
(Maybe PermissionsBoundary)
getPermissionsBoundaryForPermissionSetResponse_permissionsBoundary = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetPermissionsBoundaryForPermissionSetResponse' {Maybe PermissionsBoundary
permissionsBoundary :: Maybe PermissionsBoundary
$sel:permissionsBoundary:GetPermissionsBoundaryForPermissionSetResponse' :: GetPermissionsBoundaryForPermissionSetResponse
-> Maybe PermissionsBoundary
permissionsBoundary} -> Maybe PermissionsBoundary
permissionsBoundary) (\s :: GetPermissionsBoundaryForPermissionSetResponse
s@GetPermissionsBoundaryForPermissionSetResponse' {} Maybe PermissionsBoundary
a -> GetPermissionsBoundaryForPermissionSetResponse
s {$sel:permissionsBoundary:GetPermissionsBoundaryForPermissionSetResponse' :: Maybe PermissionsBoundary
permissionsBoundary = Maybe PermissionsBoundary
a} :: GetPermissionsBoundaryForPermissionSetResponse)
getPermissionsBoundaryForPermissionSetResponse_httpStatus :: Lens.Lens' GetPermissionsBoundaryForPermissionSetResponse Prelude.Int
getPermissionsBoundaryForPermissionSetResponse_httpStatus :: Lens' GetPermissionsBoundaryForPermissionSetResponse Int
getPermissionsBoundaryForPermissionSetResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetPermissionsBoundaryForPermissionSetResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetPermissionsBoundaryForPermissionSetResponse' :: GetPermissionsBoundaryForPermissionSetResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetPermissionsBoundaryForPermissionSetResponse
s@GetPermissionsBoundaryForPermissionSetResponse' {} Int
a -> GetPermissionsBoundaryForPermissionSetResponse
s {$sel:httpStatus:GetPermissionsBoundaryForPermissionSetResponse' :: Int
httpStatus = Int
a} :: GetPermissionsBoundaryForPermissionSetResponse)
instance
Prelude.NFData
GetPermissionsBoundaryForPermissionSetResponse
where
rnf :: GetPermissionsBoundaryForPermissionSetResponse -> ()
rnf
GetPermissionsBoundaryForPermissionSetResponse' {Int
Maybe PermissionsBoundary
httpStatus :: Int
permissionsBoundary :: Maybe PermissionsBoundary
$sel:httpStatus:GetPermissionsBoundaryForPermissionSetResponse' :: GetPermissionsBoundaryForPermissionSetResponse -> Int
$sel:permissionsBoundary:GetPermissionsBoundaryForPermissionSetResponse' :: GetPermissionsBoundaryForPermissionSetResponse
-> Maybe PermissionsBoundary
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe PermissionsBoundary
permissionsBoundary
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus