{-# 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.DescribePermissionSetProvisioningStatus
(
DescribePermissionSetProvisioningStatus (..),
newDescribePermissionSetProvisioningStatus,
describePermissionSetProvisioningStatus_instanceArn,
describePermissionSetProvisioningStatus_provisionPermissionSetRequestId,
DescribePermissionSetProvisioningStatusResponse (..),
newDescribePermissionSetProvisioningStatusResponse,
describePermissionSetProvisioningStatusResponse_permissionSetProvisioningStatus,
describePermissionSetProvisioningStatusResponse_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 DescribePermissionSetProvisioningStatus = DescribePermissionSetProvisioningStatus'
{
DescribePermissionSetProvisioningStatus -> Text
instanceArn :: Prelude.Text,
DescribePermissionSetProvisioningStatus -> Text
provisionPermissionSetRequestId :: Prelude.Text
}
deriving (DescribePermissionSetProvisioningStatus
-> DescribePermissionSetProvisioningStatus -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribePermissionSetProvisioningStatus
-> DescribePermissionSetProvisioningStatus -> Bool
$c/= :: DescribePermissionSetProvisioningStatus
-> DescribePermissionSetProvisioningStatus -> Bool
== :: DescribePermissionSetProvisioningStatus
-> DescribePermissionSetProvisioningStatus -> Bool
$c== :: DescribePermissionSetProvisioningStatus
-> DescribePermissionSetProvisioningStatus -> Bool
Prelude.Eq, ReadPrec [DescribePermissionSetProvisioningStatus]
ReadPrec DescribePermissionSetProvisioningStatus
Int -> ReadS DescribePermissionSetProvisioningStatus
ReadS [DescribePermissionSetProvisioningStatus]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribePermissionSetProvisioningStatus]
$creadListPrec :: ReadPrec [DescribePermissionSetProvisioningStatus]
readPrec :: ReadPrec DescribePermissionSetProvisioningStatus
$creadPrec :: ReadPrec DescribePermissionSetProvisioningStatus
readList :: ReadS [DescribePermissionSetProvisioningStatus]
$creadList :: ReadS [DescribePermissionSetProvisioningStatus]
readsPrec :: Int -> ReadS DescribePermissionSetProvisioningStatus
$creadsPrec :: Int -> ReadS DescribePermissionSetProvisioningStatus
Prelude.Read, Int -> DescribePermissionSetProvisioningStatus -> ShowS
[DescribePermissionSetProvisioningStatus] -> ShowS
DescribePermissionSetProvisioningStatus -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribePermissionSetProvisioningStatus] -> ShowS
$cshowList :: [DescribePermissionSetProvisioningStatus] -> ShowS
show :: DescribePermissionSetProvisioningStatus -> String
$cshow :: DescribePermissionSetProvisioningStatus -> String
showsPrec :: Int -> DescribePermissionSetProvisioningStatus -> ShowS
$cshowsPrec :: Int -> DescribePermissionSetProvisioningStatus -> ShowS
Prelude.Show, forall x.
Rep DescribePermissionSetProvisioningStatus x
-> DescribePermissionSetProvisioningStatus
forall x.
DescribePermissionSetProvisioningStatus
-> Rep DescribePermissionSetProvisioningStatus x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribePermissionSetProvisioningStatus x
-> DescribePermissionSetProvisioningStatus
$cfrom :: forall x.
DescribePermissionSetProvisioningStatus
-> Rep DescribePermissionSetProvisioningStatus x
Prelude.Generic)
newDescribePermissionSetProvisioningStatus ::
Prelude.Text ->
Prelude.Text ->
DescribePermissionSetProvisioningStatus
newDescribePermissionSetProvisioningStatus :: Text -> Text -> DescribePermissionSetProvisioningStatus
newDescribePermissionSetProvisioningStatus
Text
pInstanceArn_
Text
pProvisionPermissionSetRequestId_ =
DescribePermissionSetProvisioningStatus'
{ $sel:instanceArn:DescribePermissionSetProvisioningStatus' :: Text
instanceArn =
Text
pInstanceArn_,
$sel:provisionPermissionSetRequestId:DescribePermissionSetProvisioningStatus' :: Text
provisionPermissionSetRequestId =
Text
pProvisionPermissionSetRequestId_
}
describePermissionSetProvisioningStatus_instanceArn :: Lens.Lens' DescribePermissionSetProvisioningStatus Prelude.Text
describePermissionSetProvisioningStatus_instanceArn :: Lens' DescribePermissionSetProvisioningStatus Text
describePermissionSetProvisioningStatus_instanceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribePermissionSetProvisioningStatus' {Text
instanceArn :: Text
$sel:instanceArn:DescribePermissionSetProvisioningStatus' :: DescribePermissionSetProvisioningStatus -> Text
instanceArn} -> Text
instanceArn) (\s :: DescribePermissionSetProvisioningStatus
s@DescribePermissionSetProvisioningStatus' {} Text
a -> DescribePermissionSetProvisioningStatus
s {$sel:instanceArn:DescribePermissionSetProvisioningStatus' :: Text
instanceArn = Text
a} :: DescribePermissionSetProvisioningStatus)
describePermissionSetProvisioningStatus_provisionPermissionSetRequestId :: Lens.Lens' DescribePermissionSetProvisioningStatus Prelude.Text
describePermissionSetProvisioningStatus_provisionPermissionSetRequestId :: Lens' DescribePermissionSetProvisioningStatus Text
describePermissionSetProvisioningStatus_provisionPermissionSetRequestId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribePermissionSetProvisioningStatus' {Text
provisionPermissionSetRequestId :: Text
$sel:provisionPermissionSetRequestId:DescribePermissionSetProvisioningStatus' :: DescribePermissionSetProvisioningStatus -> Text
provisionPermissionSetRequestId} -> Text
provisionPermissionSetRequestId) (\s :: DescribePermissionSetProvisioningStatus
s@DescribePermissionSetProvisioningStatus' {} Text
a -> DescribePermissionSetProvisioningStatus
s {$sel:provisionPermissionSetRequestId:DescribePermissionSetProvisioningStatus' :: Text
provisionPermissionSetRequestId = Text
a} :: DescribePermissionSetProvisioningStatus)
instance
Core.AWSRequest
DescribePermissionSetProvisioningStatus
where
type
AWSResponse
DescribePermissionSetProvisioningStatus =
DescribePermissionSetProvisioningStatusResponse
request :: (Service -> Service)
-> DescribePermissionSetProvisioningStatus
-> Request DescribePermissionSetProvisioningStatus
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 DescribePermissionSetProvisioningStatus
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse DescribePermissionSetProvisioningStatus)))
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 PermissionSetProvisioningStatus
-> Int -> DescribePermissionSetProvisioningStatusResponse
DescribePermissionSetProvisioningStatusResponse'
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
"PermissionSetProvisioningStatus")
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
DescribePermissionSetProvisioningStatus
where
hashWithSalt :: Int -> DescribePermissionSetProvisioningStatus -> Int
hashWithSalt
Int
_salt
DescribePermissionSetProvisioningStatus' {Text
provisionPermissionSetRequestId :: Text
instanceArn :: Text
$sel:provisionPermissionSetRequestId:DescribePermissionSetProvisioningStatus' :: DescribePermissionSetProvisioningStatus -> Text
$sel:instanceArn:DescribePermissionSetProvisioningStatus' :: DescribePermissionSetProvisioningStatus -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
instanceArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
provisionPermissionSetRequestId
instance
Prelude.NFData
DescribePermissionSetProvisioningStatus
where
rnf :: DescribePermissionSetProvisioningStatus -> ()
rnf DescribePermissionSetProvisioningStatus' {Text
provisionPermissionSetRequestId :: Text
instanceArn :: Text
$sel:provisionPermissionSetRequestId:DescribePermissionSetProvisioningStatus' :: DescribePermissionSetProvisioningStatus -> Text
$sel:instanceArn:DescribePermissionSetProvisioningStatus' :: DescribePermissionSetProvisioningStatus -> 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
provisionPermissionSetRequestId
instance
Data.ToHeaders
DescribePermissionSetProvisioningStatus
where
toHeaders :: DescribePermissionSetProvisioningStatus -> 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.DescribePermissionSetProvisioningStatus" ::
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
DescribePermissionSetProvisioningStatus
where
toJSON :: DescribePermissionSetProvisioningStatus -> Value
toJSON DescribePermissionSetProvisioningStatus' {Text
provisionPermissionSetRequestId :: Text
instanceArn :: Text
$sel:provisionPermissionSetRequestId:DescribePermissionSetProvisioningStatus' :: DescribePermissionSetProvisioningStatus -> Text
$sel:instanceArn:DescribePermissionSetProvisioningStatus' :: DescribePermissionSetProvisioningStatus -> 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
"ProvisionPermissionSetRequestId"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
provisionPermissionSetRequestId
)
]
)
instance
Data.ToPath
DescribePermissionSetProvisioningStatus
where
toPath :: DescribePermissionSetProvisioningStatus -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
DescribePermissionSetProvisioningStatus
where
toQuery :: DescribePermissionSetProvisioningStatus -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribePermissionSetProvisioningStatusResponse = DescribePermissionSetProvisioningStatusResponse'
{
DescribePermissionSetProvisioningStatusResponse
-> Maybe PermissionSetProvisioningStatus
permissionSetProvisioningStatus :: Prelude.Maybe PermissionSetProvisioningStatus,
DescribePermissionSetProvisioningStatusResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribePermissionSetProvisioningStatusResponse
-> DescribePermissionSetProvisioningStatusResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribePermissionSetProvisioningStatusResponse
-> DescribePermissionSetProvisioningStatusResponse -> Bool
$c/= :: DescribePermissionSetProvisioningStatusResponse
-> DescribePermissionSetProvisioningStatusResponse -> Bool
== :: DescribePermissionSetProvisioningStatusResponse
-> DescribePermissionSetProvisioningStatusResponse -> Bool
$c== :: DescribePermissionSetProvisioningStatusResponse
-> DescribePermissionSetProvisioningStatusResponse -> Bool
Prelude.Eq, ReadPrec [DescribePermissionSetProvisioningStatusResponse]
ReadPrec DescribePermissionSetProvisioningStatusResponse
Int -> ReadS DescribePermissionSetProvisioningStatusResponse
ReadS [DescribePermissionSetProvisioningStatusResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribePermissionSetProvisioningStatusResponse]
$creadListPrec :: ReadPrec [DescribePermissionSetProvisioningStatusResponse]
readPrec :: ReadPrec DescribePermissionSetProvisioningStatusResponse
$creadPrec :: ReadPrec DescribePermissionSetProvisioningStatusResponse
readList :: ReadS [DescribePermissionSetProvisioningStatusResponse]
$creadList :: ReadS [DescribePermissionSetProvisioningStatusResponse]
readsPrec :: Int -> ReadS DescribePermissionSetProvisioningStatusResponse
$creadsPrec :: Int -> ReadS DescribePermissionSetProvisioningStatusResponse
Prelude.Read, Int -> DescribePermissionSetProvisioningStatusResponse -> ShowS
[DescribePermissionSetProvisioningStatusResponse] -> ShowS
DescribePermissionSetProvisioningStatusResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribePermissionSetProvisioningStatusResponse] -> ShowS
$cshowList :: [DescribePermissionSetProvisioningStatusResponse] -> ShowS
show :: DescribePermissionSetProvisioningStatusResponse -> String
$cshow :: DescribePermissionSetProvisioningStatusResponse -> String
showsPrec :: Int -> DescribePermissionSetProvisioningStatusResponse -> ShowS
$cshowsPrec :: Int -> DescribePermissionSetProvisioningStatusResponse -> ShowS
Prelude.Show, forall x.
Rep DescribePermissionSetProvisioningStatusResponse x
-> DescribePermissionSetProvisioningStatusResponse
forall x.
DescribePermissionSetProvisioningStatusResponse
-> Rep DescribePermissionSetProvisioningStatusResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribePermissionSetProvisioningStatusResponse x
-> DescribePermissionSetProvisioningStatusResponse
$cfrom :: forall x.
DescribePermissionSetProvisioningStatusResponse
-> Rep DescribePermissionSetProvisioningStatusResponse x
Prelude.Generic)
newDescribePermissionSetProvisioningStatusResponse ::
Prelude.Int ->
DescribePermissionSetProvisioningStatusResponse
newDescribePermissionSetProvisioningStatusResponse :: Int -> DescribePermissionSetProvisioningStatusResponse
newDescribePermissionSetProvisioningStatusResponse
Int
pHttpStatus_ =
DescribePermissionSetProvisioningStatusResponse'
{ $sel:permissionSetProvisioningStatus:DescribePermissionSetProvisioningStatusResponse' :: Maybe PermissionSetProvisioningStatus
permissionSetProvisioningStatus =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribePermissionSetProvisioningStatusResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describePermissionSetProvisioningStatusResponse_permissionSetProvisioningStatus :: Lens.Lens' DescribePermissionSetProvisioningStatusResponse (Prelude.Maybe PermissionSetProvisioningStatus)
describePermissionSetProvisioningStatusResponse_permissionSetProvisioningStatus :: Lens'
DescribePermissionSetProvisioningStatusResponse
(Maybe PermissionSetProvisioningStatus)
describePermissionSetProvisioningStatusResponse_permissionSetProvisioningStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribePermissionSetProvisioningStatusResponse' {Maybe PermissionSetProvisioningStatus
permissionSetProvisioningStatus :: Maybe PermissionSetProvisioningStatus
$sel:permissionSetProvisioningStatus:DescribePermissionSetProvisioningStatusResponse' :: DescribePermissionSetProvisioningStatusResponse
-> Maybe PermissionSetProvisioningStatus
permissionSetProvisioningStatus} -> Maybe PermissionSetProvisioningStatus
permissionSetProvisioningStatus) (\s :: DescribePermissionSetProvisioningStatusResponse
s@DescribePermissionSetProvisioningStatusResponse' {} Maybe PermissionSetProvisioningStatus
a -> DescribePermissionSetProvisioningStatusResponse
s {$sel:permissionSetProvisioningStatus:DescribePermissionSetProvisioningStatusResponse' :: Maybe PermissionSetProvisioningStatus
permissionSetProvisioningStatus = Maybe PermissionSetProvisioningStatus
a} :: DescribePermissionSetProvisioningStatusResponse)
describePermissionSetProvisioningStatusResponse_httpStatus :: Lens.Lens' DescribePermissionSetProvisioningStatusResponse Prelude.Int
describePermissionSetProvisioningStatusResponse_httpStatus :: Lens' DescribePermissionSetProvisioningStatusResponse Int
describePermissionSetProvisioningStatusResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribePermissionSetProvisioningStatusResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribePermissionSetProvisioningStatusResponse' :: DescribePermissionSetProvisioningStatusResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribePermissionSetProvisioningStatusResponse
s@DescribePermissionSetProvisioningStatusResponse' {} Int
a -> DescribePermissionSetProvisioningStatusResponse
s {$sel:httpStatus:DescribePermissionSetProvisioningStatusResponse' :: Int
httpStatus = Int
a} :: DescribePermissionSetProvisioningStatusResponse)
instance
Prelude.NFData
DescribePermissionSetProvisioningStatusResponse
where
rnf :: DescribePermissionSetProvisioningStatusResponse -> ()
rnf
DescribePermissionSetProvisioningStatusResponse' {Int
Maybe PermissionSetProvisioningStatus
httpStatus :: Int
permissionSetProvisioningStatus :: Maybe PermissionSetProvisioningStatus
$sel:httpStatus:DescribePermissionSetProvisioningStatusResponse' :: DescribePermissionSetProvisioningStatusResponse -> Int
$sel:permissionSetProvisioningStatus:DescribePermissionSetProvisioningStatusResponse' :: DescribePermissionSetProvisioningStatusResponse
-> Maybe PermissionSetProvisioningStatus
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe PermissionSetProvisioningStatus
permissionSetProvisioningStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus