{-# 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.GetInlinePolicyForPermissionSet
(
GetInlinePolicyForPermissionSet (..),
newGetInlinePolicyForPermissionSet,
getInlinePolicyForPermissionSet_instanceArn,
getInlinePolicyForPermissionSet_permissionSetArn,
GetInlinePolicyForPermissionSetResponse (..),
newGetInlinePolicyForPermissionSetResponse,
getInlinePolicyForPermissionSetResponse_inlinePolicy,
getInlinePolicyForPermissionSetResponse_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 GetInlinePolicyForPermissionSet = GetInlinePolicyForPermissionSet'
{
GetInlinePolicyForPermissionSet -> Text
instanceArn :: Prelude.Text,
GetInlinePolicyForPermissionSet -> Text
permissionSetArn :: Prelude.Text
}
deriving (GetInlinePolicyForPermissionSet
-> GetInlinePolicyForPermissionSet -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetInlinePolicyForPermissionSet
-> GetInlinePolicyForPermissionSet -> Bool
$c/= :: GetInlinePolicyForPermissionSet
-> GetInlinePolicyForPermissionSet -> Bool
== :: GetInlinePolicyForPermissionSet
-> GetInlinePolicyForPermissionSet -> Bool
$c== :: GetInlinePolicyForPermissionSet
-> GetInlinePolicyForPermissionSet -> Bool
Prelude.Eq, ReadPrec [GetInlinePolicyForPermissionSet]
ReadPrec GetInlinePolicyForPermissionSet
Int -> ReadS GetInlinePolicyForPermissionSet
ReadS [GetInlinePolicyForPermissionSet]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetInlinePolicyForPermissionSet]
$creadListPrec :: ReadPrec [GetInlinePolicyForPermissionSet]
readPrec :: ReadPrec GetInlinePolicyForPermissionSet
$creadPrec :: ReadPrec GetInlinePolicyForPermissionSet
readList :: ReadS [GetInlinePolicyForPermissionSet]
$creadList :: ReadS [GetInlinePolicyForPermissionSet]
readsPrec :: Int -> ReadS GetInlinePolicyForPermissionSet
$creadsPrec :: Int -> ReadS GetInlinePolicyForPermissionSet
Prelude.Read, Int -> GetInlinePolicyForPermissionSet -> ShowS
[GetInlinePolicyForPermissionSet] -> ShowS
GetInlinePolicyForPermissionSet -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetInlinePolicyForPermissionSet] -> ShowS
$cshowList :: [GetInlinePolicyForPermissionSet] -> ShowS
show :: GetInlinePolicyForPermissionSet -> String
$cshow :: GetInlinePolicyForPermissionSet -> String
showsPrec :: Int -> GetInlinePolicyForPermissionSet -> ShowS
$cshowsPrec :: Int -> GetInlinePolicyForPermissionSet -> ShowS
Prelude.Show, forall x.
Rep GetInlinePolicyForPermissionSet x
-> GetInlinePolicyForPermissionSet
forall x.
GetInlinePolicyForPermissionSet
-> Rep GetInlinePolicyForPermissionSet x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetInlinePolicyForPermissionSet x
-> GetInlinePolicyForPermissionSet
$cfrom :: forall x.
GetInlinePolicyForPermissionSet
-> Rep GetInlinePolicyForPermissionSet x
Prelude.Generic)
newGetInlinePolicyForPermissionSet ::
Prelude.Text ->
Prelude.Text ->
GetInlinePolicyForPermissionSet
newGetInlinePolicyForPermissionSet :: Text -> Text -> GetInlinePolicyForPermissionSet
newGetInlinePolicyForPermissionSet
Text
pInstanceArn_
Text
pPermissionSetArn_ =
GetInlinePolicyForPermissionSet'
{ $sel:instanceArn:GetInlinePolicyForPermissionSet' :: Text
instanceArn =
Text
pInstanceArn_,
$sel:permissionSetArn:GetInlinePolicyForPermissionSet' :: Text
permissionSetArn = Text
pPermissionSetArn_
}
getInlinePolicyForPermissionSet_instanceArn :: Lens.Lens' GetInlinePolicyForPermissionSet Prelude.Text
getInlinePolicyForPermissionSet_instanceArn :: Lens' GetInlinePolicyForPermissionSet Text
getInlinePolicyForPermissionSet_instanceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetInlinePolicyForPermissionSet' {Text
instanceArn :: Text
$sel:instanceArn:GetInlinePolicyForPermissionSet' :: GetInlinePolicyForPermissionSet -> Text
instanceArn} -> Text
instanceArn) (\s :: GetInlinePolicyForPermissionSet
s@GetInlinePolicyForPermissionSet' {} Text
a -> GetInlinePolicyForPermissionSet
s {$sel:instanceArn:GetInlinePolicyForPermissionSet' :: Text
instanceArn = Text
a} :: GetInlinePolicyForPermissionSet)
getInlinePolicyForPermissionSet_permissionSetArn :: Lens.Lens' GetInlinePolicyForPermissionSet Prelude.Text
getInlinePolicyForPermissionSet_permissionSetArn :: Lens' GetInlinePolicyForPermissionSet Text
getInlinePolicyForPermissionSet_permissionSetArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetInlinePolicyForPermissionSet' {Text
permissionSetArn :: Text
$sel:permissionSetArn:GetInlinePolicyForPermissionSet' :: GetInlinePolicyForPermissionSet -> Text
permissionSetArn} -> Text
permissionSetArn) (\s :: GetInlinePolicyForPermissionSet
s@GetInlinePolicyForPermissionSet' {} Text
a -> GetInlinePolicyForPermissionSet
s {$sel:permissionSetArn:GetInlinePolicyForPermissionSet' :: Text
permissionSetArn = Text
a} :: GetInlinePolicyForPermissionSet)
instance
Core.AWSRequest
GetInlinePolicyForPermissionSet
where
type
AWSResponse GetInlinePolicyForPermissionSet =
GetInlinePolicyForPermissionSetResponse
request :: (Service -> Service)
-> GetInlinePolicyForPermissionSet
-> Request GetInlinePolicyForPermissionSet
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 GetInlinePolicyForPermissionSet
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse GetInlinePolicyForPermissionSet)))
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 Text -> Int -> GetInlinePolicyForPermissionSetResponse
GetInlinePolicyForPermissionSetResponse'
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
"InlinePolicy")
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
GetInlinePolicyForPermissionSet
where
hashWithSalt :: Int -> GetInlinePolicyForPermissionSet -> Int
hashWithSalt
Int
_salt
GetInlinePolicyForPermissionSet' {Text
permissionSetArn :: Text
instanceArn :: Text
$sel:permissionSetArn:GetInlinePolicyForPermissionSet' :: GetInlinePolicyForPermissionSet -> Text
$sel:instanceArn:GetInlinePolicyForPermissionSet' :: GetInlinePolicyForPermissionSet -> 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
GetInlinePolicyForPermissionSet
where
rnf :: GetInlinePolicyForPermissionSet -> ()
rnf GetInlinePolicyForPermissionSet' {Text
permissionSetArn :: Text
instanceArn :: Text
$sel:permissionSetArn:GetInlinePolicyForPermissionSet' :: GetInlinePolicyForPermissionSet -> Text
$sel:instanceArn:GetInlinePolicyForPermissionSet' :: GetInlinePolicyForPermissionSet -> 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
GetInlinePolicyForPermissionSet
where
toHeaders :: GetInlinePolicyForPermissionSet -> 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.GetInlinePolicyForPermissionSet" ::
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 GetInlinePolicyForPermissionSet where
toJSON :: GetInlinePolicyForPermissionSet -> Value
toJSON GetInlinePolicyForPermissionSet' {Text
permissionSetArn :: Text
instanceArn :: Text
$sel:permissionSetArn:GetInlinePolicyForPermissionSet' :: GetInlinePolicyForPermissionSet -> Text
$sel:instanceArn:GetInlinePolicyForPermissionSet' :: GetInlinePolicyForPermissionSet -> 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 GetInlinePolicyForPermissionSet where
toPath :: GetInlinePolicyForPermissionSet -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery GetInlinePolicyForPermissionSet where
toQuery :: GetInlinePolicyForPermissionSet -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetInlinePolicyForPermissionSetResponse = GetInlinePolicyForPermissionSetResponse'
{
GetInlinePolicyForPermissionSetResponse -> Maybe Text
inlinePolicy :: Prelude.Maybe Prelude.Text,
GetInlinePolicyForPermissionSetResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetInlinePolicyForPermissionSetResponse
-> GetInlinePolicyForPermissionSetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetInlinePolicyForPermissionSetResponse
-> GetInlinePolicyForPermissionSetResponse -> Bool
$c/= :: GetInlinePolicyForPermissionSetResponse
-> GetInlinePolicyForPermissionSetResponse -> Bool
== :: GetInlinePolicyForPermissionSetResponse
-> GetInlinePolicyForPermissionSetResponse -> Bool
$c== :: GetInlinePolicyForPermissionSetResponse
-> GetInlinePolicyForPermissionSetResponse -> Bool
Prelude.Eq, ReadPrec [GetInlinePolicyForPermissionSetResponse]
ReadPrec GetInlinePolicyForPermissionSetResponse
Int -> ReadS GetInlinePolicyForPermissionSetResponse
ReadS [GetInlinePolicyForPermissionSetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetInlinePolicyForPermissionSetResponse]
$creadListPrec :: ReadPrec [GetInlinePolicyForPermissionSetResponse]
readPrec :: ReadPrec GetInlinePolicyForPermissionSetResponse
$creadPrec :: ReadPrec GetInlinePolicyForPermissionSetResponse
readList :: ReadS [GetInlinePolicyForPermissionSetResponse]
$creadList :: ReadS [GetInlinePolicyForPermissionSetResponse]
readsPrec :: Int -> ReadS GetInlinePolicyForPermissionSetResponse
$creadsPrec :: Int -> ReadS GetInlinePolicyForPermissionSetResponse
Prelude.Read, Int -> GetInlinePolicyForPermissionSetResponse -> ShowS
[GetInlinePolicyForPermissionSetResponse] -> ShowS
GetInlinePolicyForPermissionSetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetInlinePolicyForPermissionSetResponse] -> ShowS
$cshowList :: [GetInlinePolicyForPermissionSetResponse] -> ShowS
show :: GetInlinePolicyForPermissionSetResponse -> String
$cshow :: GetInlinePolicyForPermissionSetResponse -> String
showsPrec :: Int -> GetInlinePolicyForPermissionSetResponse -> ShowS
$cshowsPrec :: Int -> GetInlinePolicyForPermissionSetResponse -> ShowS
Prelude.Show, forall x.
Rep GetInlinePolicyForPermissionSetResponse x
-> GetInlinePolicyForPermissionSetResponse
forall x.
GetInlinePolicyForPermissionSetResponse
-> Rep GetInlinePolicyForPermissionSetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetInlinePolicyForPermissionSetResponse x
-> GetInlinePolicyForPermissionSetResponse
$cfrom :: forall x.
GetInlinePolicyForPermissionSetResponse
-> Rep GetInlinePolicyForPermissionSetResponse x
Prelude.Generic)
newGetInlinePolicyForPermissionSetResponse ::
Prelude.Int ->
GetInlinePolicyForPermissionSetResponse
newGetInlinePolicyForPermissionSetResponse :: Int -> GetInlinePolicyForPermissionSetResponse
newGetInlinePolicyForPermissionSetResponse
Int
pHttpStatus_ =
GetInlinePolicyForPermissionSetResponse'
{ $sel:inlinePolicy:GetInlinePolicyForPermissionSetResponse' :: Maybe Text
inlinePolicy =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetInlinePolicyForPermissionSetResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getInlinePolicyForPermissionSetResponse_inlinePolicy :: Lens.Lens' GetInlinePolicyForPermissionSetResponse (Prelude.Maybe Prelude.Text)
getInlinePolicyForPermissionSetResponse_inlinePolicy :: Lens' GetInlinePolicyForPermissionSetResponse (Maybe Text)
getInlinePolicyForPermissionSetResponse_inlinePolicy = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetInlinePolicyForPermissionSetResponse' {Maybe Text
inlinePolicy :: Maybe Text
$sel:inlinePolicy:GetInlinePolicyForPermissionSetResponse' :: GetInlinePolicyForPermissionSetResponse -> Maybe Text
inlinePolicy} -> Maybe Text
inlinePolicy) (\s :: GetInlinePolicyForPermissionSetResponse
s@GetInlinePolicyForPermissionSetResponse' {} Maybe Text
a -> GetInlinePolicyForPermissionSetResponse
s {$sel:inlinePolicy:GetInlinePolicyForPermissionSetResponse' :: Maybe Text
inlinePolicy = Maybe Text
a} :: GetInlinePolicyForPermissionSetResponse)
getInlinePolicyForPermissionSetResponse_httpStatus :: Lens.Lens' GetInlinePolicyForPermissionSetResponse Prelude.Int
getInlinePolicyForPermissionSetResponse_httpStatus :: Lens' GetInlinePolicyForPermissionSetResponse Int
getInlinePolicyForPermissionSetResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetInlinePolicyForPermissionSetResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetInlinePolicyForPermissionSetResponse' :: GetInlinePolicyForPermissionSetResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetInlinePolicyForPermissionSetResponse
s@GetInlinePolicyForPermissionSetResponse' {} Int
a -> GetInlinePolicyForPermissionSetResponse
s {$sel:httpStatus:GetInlinePolicyForPermissionSetResponse' :: Int
httpStatus = Int
a} :: GetInlinePolicyForPermissionSetResponse)
instance
Prelude.NFData
GetInlinePolicyForPermissionSetResponse
where
rnf :: GetInlinePolicyForPermissionSetResponse -> ()
rnf GetInlinePolicyForPermissionSetResponse' {Int
Maybe Text
httpStatus :: Int
inlinePolicy :: Maybe Text
$sel:httpStatus:GetInlinePolicyForPermissionSetResponse' :: GetInlinePolicyForPermissionSetResponse -> Int
$sel:inlinePolicy:GetInlinePolicyForPermissionSetResponse' :: GetInlinePolicyForPermissionSetResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
inlinePolicy
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus