{-# 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.QuickSight.UpdateIAMPolicyAssignment
(
UpdateIAMPolicyAssignment (..),
newUpdateIAMPolicyAssignment,
updateIAMPolicyAssignment_assignmentStatus,
updateIAMPolicyAssignment_identities,
updateIAMPolicyAssignment_policyArn,
updateIAMPolicyAssignment_awsAccountId,
updateIAMPolicyAssignment_assignmentName,
updateIAMPolicyAssignment_namespace,
UpdateIAMPolicyAssignmentResponse (..),
newUpdateIAMPolicyAssignmentResponse,
updateIAMPolicyAssignmentResponse_assignmentId,
updateIAMPolicyAssignmentResponse_assignmentName,
updateIAMPolicyAssignmentResponse_assignmentStatus,
updateIAMPolicyAssignmentResponse_identities,
updateIAMPolicyAssignmentResponse_policyArn,
updateIAMPolicyAssignmentResponse_requestId,
updateIAMPolicyAssignmentResponse_status,
)
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 Amazonka.QuickSight.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UpdateIAMPolicyAssignment = UpdateIAMPolicyAssignment'
{
UpdateIAMPolicyAssignment -> Maybe AssignmentStatus
assignmentStatus :: Prelude.Maybe AssignmentStatus,
UpdateIAMPolicyAssignment -> Maybe (HashMap Text [Text])
identities :: Prelude.Maybe (Prelude.HashMap Prelude.Text [Prelude.Text]),
UpdateIAMPolicyAssignment -> Maybe Text
policyArn :: Prelude.Maybe Prelude.Text,
UpdateIAMPolicyAssignment -> Text
awsAccountId :: Prelude.Text,
UpdateIAMPolicyAssignment -> Text
assignmentName :: Prelude.Text,
UpdateIAMPolicyAssignment -> Text
namespace :: Prelude.Text
}
deriving (UpdateIAMPolicyAssignment -> UpdateIAMPolicyAssignment -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateIAMPolicyAssignment -> UpdateIAMPolicyAssignment -> Bool
$c/= :: UpdateIAMPolicyAssignment -> UpdateIAMPolicyAssignment -> Bool
== :: UpdateIAMPolicyAssignment -> UpdateIAMPolicyAssignment -> Bool
$c== :: UpdateIAMPolicyAssignment -> UpdateIAMPolicyAssignment -> Bool
Prelude.Eq, ReadPrec [UpdateIAMPolicyAssignment]
ReadPrec UpdateIAMPolicyAssignment
Int -> ReadS UpdateIAMPolicyAssignment
ReadS [UpdateIAMPolicyAssignment]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateIAMPolicyAssignment]
$creadListPrec :: ReadPrec [UpdateIAMPolicyAssignment]
readPrec :: ReadPrec UpdateIAMPolicyAssignment
$creadPrec :: ReadPrec UpdateIAMPolicyAssignment
readList :: ReadS [UpdateIAMPolicyAssignment]
$creadList :: ReadS [UpdateIAMPolicyAssignment]
readsPrec :: Int -> ReadS UpdateIAMPolicyAssignment
$creadsPrec :: Int -> ReadS UpdateIAMPolicyAssignment
Prelude.Read, Int -> UpdateIAMPolicyAssignment -> ShowS
[UpdateIAMPolicyAssignment] -> ShowS
UpdateIAMPolicyAssignment -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateIAMPolicyAssignment] -> ShowS
$cshowList :: [UpdateIAMPolicyAssignment] -> ShowS
show :: UpdateIAMPolicyAssignment -> String
$cshow :: UpdateIAMPolicyAssignment -> String
showsPrec :: Int -> UpdateIAMPolicyAssignment -> ShowS
$cshowsPrec :: Int -> UpdateIAMPolicyAssignment -> ShowS
Prelude.Show, forall x.
Rep UpdateIAMPolicyAssignment x -> UpdateIAMPolicyAssignment
forall x.
UpdateIAMPolicyAssignment -> Rep UpdateIAMPolicyAssignment x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateIAMPolicyAssignment x -> UpdateIAMPolicyAssignment
$cfrom :: forall x.
UpdateIAMPolicyAssignment -> Rep UpdateIAMPolicyAssignment x
Prelude.Generic)
newUpdateIAMPolicyAssignment ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
UpdateIAMPolicyAssignment
newUpdateIAMPolicyAssignment :: Text -> Text -> Text -> UpdateIAMPolicyAssignment
newUpdateIAMPolicyAssignment
Text
pAwsAccountId_
Text
pAssignmentName_
Text
pNamespace_ =
UpdateIAMPolicyAssignment'
{ $sel:assignmentStatus:UpdateIAMPolicyAssignment' :: Maybe AssignmentStatus
assignmentStatus =
forall a. Maybe a
Prelude.Nothing,
$sel:identities:UpdateIAMPolicyAssignment' :: Maybe (HashMap Text [Text])
identities = forall a. Maybe a
Prelude.Nothing,
$sel:policyArn:UpdateIAMPolicyAssignment' :: Maybe Text
policyArn = forall a. Maybe a
Prelude.Nothing,
$sel:awsAccountId:UpdateIAMPolicyAssignment' :: Text
awsAccountId = Text
pAwsAccountId_,
$sel:assignmentName:UpdateIAMPolicyAssignment' :: Text
assignmentName = Text
pAssignmentName_,
$sel:namespace:UpdateIAMPolicyAssignment' :: Text
namespace = Text
pNamespace_
}
updateIAMPolicyAssignment_assignmentStatus :: Lens.Lens' UpdateIAMPolicyAssignment (Prelude.Maybe AssignmentStatus)
updateIAMPolicyAssignment_assignmentStatus :: Lens' UpdateIAMPolicyAssignment (Maybe AssignmentStatus)
updateIAMPolicyAssignment_assignmentStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateIAMPolicyAssignment' {Maybe AssignmentStatus
assignmentStatus :: Maybe AssignmentStatus
$sel:assignmentStatus:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Maybe AssignmentStatus
assignmentStatus} -> Maybe AssignmentStatus
assignmentStatus) (\s :: UpdateIAMPolicyAssignment
s@UpdateIAMPolicyAssignment' {} Maybe AssignmentStatus
a -> UpdateIAMPolicyAssignment
s {$sel:assignmentStatus:UpdateIAMPolicyAssignment' :: Maybe AssignmentStatus
assignmentStatus = Maybe AssignmentStatus
a} :: UpdateIAMPolicyAssignment)
updateIAMPolicyAssignment_identities :: Lens.Lens' UpdateIAMPolicyAssignment (Prelude.Maybe (Prelude.HashMap Prelude.Text [Prelude.Text]))
updateIAMPolicyAssignment_identities :: Lens' UpdateIAMPolicyAssignment (Maybe (HashMap Text [Text]))
updateIAMPolicyAssignment_identities = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateIAMPolicyAssignment' {Maybe (HashMap Text [Text])
identities :: Maybe (HashMap Text [Text])
$sel:identities:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Maybe (HashMap Text [Text])
identities} -> Maybe (HashMap Text [Text])
identities) (\s :: UpdateIAMPolicyAssignment
s@UpdateIAMPolicyAssignment' {} Maybe (HashMap Text [Text])
a -> UpdateIAMPolicyAssignment
s {$sel:identities:UpdateIAMPolicyAssignment' :: Maybe (HashMap Text [Text])
identities = Maybe (HashMap Text [Text])
a} :: UpdateIAMPolicyAssignment) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
updateIAMPolicyAssignment_policyArn :: Lens.Lens' UpdateIAMPolicyAssignment (Prelude.Maybe Prelude.Text)
updateIAMPolicyAssignment_policyArn :: Lens' UpdateIAMPolicyAssignment (Maybe Text)
updateIAMPolicyAssignment_policyArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateIAMPolicyAssignment' {Maybe Text
policyArn :: Maybe Text
$sel:policyArn:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Maybe Text
policyArn} -> Maybe Text
policyArn) (\s :: UpdateIAMPolicyAssignment
s@UpdateIAMPolicyAssignment' {} Maybe Text
a -> UpdateIAMPolicyAssignment
s {$sel:policyArn:UpdateIAMPolicyAssignment' :: Maybe Text
policyArn = Maybe Text
a} :: UpdateIAMPolicyAssignment)
updateIAMPolicyAssignment_awsAccountId :: Lens.Lens' UpdateIAMPolicyAssignment Prelude.Text
updateIAMPolicyAssignment_awsAccountId :: Lens' UpdateIAMPolicyAssignment Text
updateIAMPolicyAssignment_awsAccountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateIAMPolicyAssignment' {Text
awsAccountId :: Text
$sel:awsAccountId:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Text
awsAccountId} -> Text
awsAccountId) (\s :: UpdateIAMPolicyAssignment
s@UpdateIAMPolicyAssignment' {} Text
a -> UpdateIAMPolicyAssignment
s {$sel:awsAccountId:UpdateIAMPolicyAssignment' :: Text
awsAccountId = Text
a} :: UpdateIAMPolicyAssignment)
updateIAMPolicyAssignment_assignmentName :: Lens.Lens' UpdateIAMPolicyAssignment Prelude.Text
updateIAMPolicyAssignment_assignmentName :: Lens' UpdateIAMPolicyAssignment Text
updateIAMPolicyAssignment_assignmentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateIAMPolicyAssignment' {Text
assignmentName :: Text
$sel:assignmentName:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Text
assignmentName} -> Text
assignmentName) (\s :: UpdateIAMPolicyAssignment
s@UpdateIAMPolicyAssignment' {} Text
a -> UpdateIAMPolicyAssignment
s {$sel:assignmentName:UpdateIAMPolicyAssignment' :: Text
assignmentName = Text
a} :: UpdateIAMPolicyAssignment)
updateIAMPolicyAssignment_namespace :: Lens.Lens' UpdateIAMPolicyAssignment Prelude.Text
updateIAMPolicyAssignment_namespace :: Lens' UpdateIAMPolicyAssignment Text
updateIAMPolicyAssignment_namespace = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateIAMPolicyAssignment' {Text
namespace :: Text
$sel:namespace:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Text
namespace} -> Text
namespace) (\s :: UpdateIAMPolicyAssignment
s@UpdateIAMPolicyAssignment' {} Text
a -> UpdateIAMPolicyAssignment
s {$sel:namespace:UpdateIAMPolicyAssignment' :: Text
namespace = Text
a} :: UpdateIAMPolicyAssignment)
instance Core.AWSRequest UpdateIAMPolicyAssignment where
type
AWSResponse UpdateIAMPolicyAssignment =
UpdateIAMPolicyAssignmentResponse
request :: (Service -> Service)
-> UpdateIAMPolicyAssignment -> Request UpdateIAMPolicyAssignment
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.putJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy UpdateIAMPolicyAssignment
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UpdateIAMPolicyAssignment)))
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
-> Maybe Text
-> Maybe AssignmentStatus
-> Maybe (HashMap Text [Text])
-> Maybe Text
-> Maybe Text
-> Int
-> UpdateIAMPolicyAssignmentResponse
UpdateIAMPolicyAssignmentResponse'
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
"AssignmentId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"AssignmentName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"AssignmentStatus")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Identities" forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"PolicyArn")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"RequestId")
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 UpdateIAMPolicyAssignment where
hashWithSalt :: Int -> UpdateIAMPolicyAssignment -> Int
hashWithSalt Int
_salt UpdateIAMPolicyAssignment' {Maybe Text
Maybe (HashMap Text [Text])
Maybe AssignmentStatus
Text
namespace :: Text
assignmentName :: Text
awsAccountId :: Text
policyArn :: Maybe Text
identities :: Maybe (HashMap Text [Text])
assignmentStatus :: Maybe AssignmentStatus
$sel:namespace:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Text
$sel:assignmentName:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Text
$sel:awsAccountId:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Text
$sel:policyArn:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Maybe Text
$sel:identities:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Maybe (HashMap Text [Text])
$sel:assignmentStatus:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Maybe AssignmentStatus
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe AssignmentStatus
assignmentStatus
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text [Text])
identities
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
policyArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
awsAccountId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
assignmentName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
namespace
instance Prelude.NFData UpdateIAMPolicyAssignment where
rnf :: UpdateIAMPolicyAssignment -> ()
rnf UpdateIAMPolicyAssignment' {Maybe Text
Maybe (HashMap Text [Text])
Maybe AssignmentStatus
Text
namespace :: Text
assignmentName :: Text
awsAccountId :: Text
policyArn :: Maybe Text
identities :: Maybe (HashMap Text [Text])
assignmentStatus :: Maybe AssignmentStatus
$sel:namespace:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Text
$sel:assignmentName:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Text
$sel:awsAccountId:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Text
$sel:policyArn:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Maybe Text
$sel:identities:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Maybe (HashMap Text [Text])
$sel:assignmentStatus:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Maybe AssignmentStatus
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe AssignmentStatus
assignmentStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text [Text])
identities
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
policyArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
awsAccountId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
assignmentName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
namespace
instance Data.ToHeaders UpdateIAMPolicyAssignment where
toHeaders :: UpdateIAMPolicyAssignment -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON UpdateIAMPolicyAssignment where
toJSON :: UpdateIAMPolicyAssignment -> Value
toJSON UpdateIAMPolicyAssignment' {Maybe Text
Maybe (HashMap Text [Text])
Maybe AssignmentStatus
Text
namespace :: Text
assignmentName :: Text
awsAccountId :: Text
policyArn :: Maybe Text
identities :: Maybe (HashMap Text [Text])
assignmentStatus :: Maybe AssignmentStatus
$sel:namespace:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Text
$sel:assignmentName:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Text
$sel:awsAccountId:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Text
$sel:policyArn:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Maybe Text
$sel:identities:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Maybe (HashMap Text [Text])
$sel:assignmentStatus:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Maybe AssignmentStatus
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"AssignmentStatus" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe AssignmentStatus
assignmentStatus,
(Key
"Identities" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (HashMap Text [Text])
identities,
(Key
"PolicyArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe Text
policyArn
]
)
instance Data.ToPath UpdateIAMPolicyAssignment where
toPath :: UpdateIAMPolicyAssignment -> ByteString
toPath UpdateIAMPolicyAssignment' {Maybe Text
Maybe (HashMap Text [Text])
Maybe AssignmentStatus
Text
namespace :: Text
assignmentName :: Text
awsAccountId :: Text
policyArn :: Maybe Text
identities :: Maybe (HashMap Text [Text])
assignmentStatus :: Maybe AssignmentStatus
$sel:namespace:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Text
$sel:assignmentName:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Text
$sel:awsAccountId:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Text
$sel:policyArn:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Maybe Text
$sel:identities:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Maybe (HashMap Text [Text])
$sel:assignmentStatus:UpdateIAMPolicyAssignment' :: UpdateIAMPolicyAssignment -> Maybe AssignmentStatus
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/accounts/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
awsAccountId,
ByteString
"/namespaces/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
namespace,
ByteString
"/iam-policy-assignments/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
assignmentName
]
instance Data.ToQuery UpdateIAMPolicyAssignment where
toQuery :: UpdateIAMPolicyAssignment -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateIAMPolicyAssignmentResponse = UpdateIAMPolicyAssignmentResponse'
{
UpdateIAMPolicyAssignmentResponse -> Maybe Text
assignmentId :: Prelude.Maybe Prelude.Text,
UpdateIAMPolicyAssignmentResponse -> Maybe Text
assignmentName :: Prelude.Maybe Prelude.Text,
UpdateIAMPolicyAssignmentResponse -> Maybe AssignmentStatus
assignmentStatus :: Prelude.Maybe AssignmentStatus,
UpdateIAMPolicyAssignmentResponse -> Maybe (HashMap Text [Text])
identities :: Prelude.Maybe (Prelude.HashMap Prelude.Text [Prelude.Text]),
UpdateIAMPolicyAssignmentResponse -> Maybe Text
policyArn :: Prelude.Maybe Prelude.Text,
UpdateIAMPolicyAssignmentResponse -> Maybe Text
requestId :: Prelude.Maybe Prelude.Text,
UpdateIAMPolicyAssignmentResponse -> Int
status :: Prelude.Int
}
deriving (UpdateIAMPolicyAssignmentResponse
-> UpdateIAMPolicyAssignmentResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateIAMPolicyAssignmentResponse
-> UpdateIAMPolicyAssignmentResponse -> Bool
$c/= :: UpdateIAMPolicyAssignmentResponse
-> UpdateIAMPolicyAssignmentResponse -> Bool
== :: UpdateIAMPolicyAssignmentResponse
-> UpdateIAMPolicyAssignmentResponse -> Bool
$c== :: UpdateIAMPolicyAssignmentResponse
-> UpdateIAMPolicyAssignmentResponse -> Bool
Prelude.Eq, ReadPrec [UpdateIAMPolicyAssignmentResponse]
ReadPrec UpdateIAMPolicyAssignmentResponse
Int -> ReadS UpdateIAMPolicyAssignmentResponse
ReadS [UpdateIAMPolicyAssignmentResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateIAMPolicyAssignmentResponse]
$creadListPrec :: ReadPrec [UpdateIAMPolicyAssignmentResponse]
readPrec :: ReadPrec UpdateIAMPolicyAssignmentResponse
$creadPrec :: ReadPrec UpdateIAMPolicyAssignmentResponse
readList :: ReadS [UpdateIAMPolicyAssignmentResponse]
$creadList :: ReadS [UpdateIAMPolicyAssignmentResponse]
readsPrec :: Int -> ReadS UpdateIAMPolicyAssignmentResponse
$creadsPrec :: Int -> ReadS UpdateIAMPolicyAssignmentResponse
Prelude.Read, Int -> UpdateIAMPolicyAssignmentResponse -> ShowS
[UpdateIAMPolicyAssignmentResponse] -> ShowS
UpdateIAMPolicyAssignmentResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateIAMPolicyAssignmentResponse] -> ShowS
$cshowList :: [UpdateIAMPolicyAssignmentResponse] -> ShowS
show :: UpdateIAMPolicyAssignmentResponse -> String
$cshow :: UpdateIAMPolicyAssignmentResponse -> String
showsPrec :: Int -> UpdateIAMPolicyAssignmentResponse -> ShowS
$cshowsPrec :: Int -> UpdateIAMPolicyAssignmentResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateIAMPolicyAssignmentResponse x
-> UpdateIAMPolicyAssignmentResponse
forall x.
UpdateIAMPolicyAssignmentResponse
-> Rep UpdateIAMPolicyAssignmentResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateIAMPolicyAssignmentResponse x
-> UpdateIAMPolicyAssignmentResponse
$cfrom :: forall x.
UpdateIAMPolicyAssignmentResponse
-> Rep UpdateIAMPolicyAssignmentResponse x
Prelude.Generic)
newUpdateIAMPolicyAssignmentResponse ::
Prelude.Int ->
UpdateIAMPolicyAssignmentResponse
newUpdateIAMPolicyAssignmentResponse :: Int -> UpdateIAMPolicyAssignmentResponse
newUpdateIAMPolicyAssignmentResponse Int
pStatus_ =
UpdateIAMPolicyAssignmentResponse'
{ $sel:assignmentId:UpdateIAMPolicyAssignmentResponse' :: Maybe Text
assignmentId =
forall a. Maybe a
Prelude.Nothing,
$sel:assignmentName:UpdateIAMPolicyAssignmentResponse' :: Maybe Text
assignmentName = forall a. Maybe a
Prelude.Nothing,
$sel:assignmentStatus:UpdateIAMPolicyAssignmentResponse' :: Maybe AssignmentStatus
assignmentStatus = forall a. Maybe a
Prelude.Nothing,
$sel:identities:UpdateIAMPolicyAssignmentResponse' :: Maybe (HashMap Text [Text])
identities = forall a. Maybe a
Prelude.Nothing,
$sel:policyArn:UpdateIAMPolicyAssignmentResponse' :: Maybe Text
policyArn = forall a. Maybe a
Prelude.Nothing,
$sel:requestId:UpdateIAMPolicyAssignmentResponse' :: Maybe Text
requestId = forall a. Maybe a
Prelude.Nothing,
$sel:status:UpdateIAMPolicyAssignmentResponse' :: Int
status = Int
pStatus_
}
updateIAMPolicyAssignmentResponse_assignmentId :: Lens.Lens' UpdateIAMPolicyAssignmentResponse (Prelude.Maybe Prelude.Text)
updateIAMPolicyAssignmentResponse_assignmentId :: Lens' UpdateIAMPolicyAssignmentResponse (Maybe Text)
updateIAMPolicyAssignmentResponse_assignmentId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateIAMPolicyAssignmentResponse' {Maybe Text
assignmentId :: Maybe Text
$sel:assignmentId:UpdateIAMPolicyAssignmentResponse' :: UpdateIAMPolicyAssignmentResponse -> Maybe Text
assignmentId} -> Maybe Text
assignmentId) (\s :: UpdateIAMPolicyAssignmentResponse
s@UpdateIAMPolicyAssignmentResponse' {} Maybe Text
a -> UpdateIAMPolicyAssignmentResponse
s {$sel:assignmentId:UpdateIAMPolicyAssignmentResponse' :: Maybe Text
assignmentId = Maybe Text
a} :: UpdateIAMPolicyAssignmentResponse)
updateIAMPolicyAssignmentResponse_assignmentName :: Lens.Lens' UpdateIAMPolicyAssignmentResponse (Prelude.Maybe Prelude.Text)
updateIAMPolicyAssignmentResponse_assignmentName :: Lens' UpdateIAMPolicyAssignmentResponse (Maybe Text)
updateIAMPolicyAssignmentResponse_assignmentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateIAMPolicyAssignmentResponse' {Maybe Text
assignmentName :: Maybe Text
$sel:assignmentName:UpdateIAMPolicyAssignmentResponse' :: UpdateIAMPolicyAssignmentResponse -> Maybe Text
assignmentName} -> Maybe Text
assignmentName) (\s :: UpdateIAMPolicyAssignmentResponse
s@UpdateIAMPolicyAssignmentResponse' {} Maybe Text
a -> UpdateIAMPolicyAssignmentResponse
s {$sel:assignmentName:UpdateIAMPolicyAssignmentResponse' :: Maybe Text
assignmentName = Maybe Text
a} :: UpdateIAMPolicyAssignmentResponse)
updateIAMPolicyAssignmentResponse_assignmentStatus :: Lens.Lens' UpdateIAMPolicyAssignmentResponse (Prelude.Maybe AssignmentStatus)
updateIAMPolicyAssignmentResponse_assignmentStatus :: Lens' UpdateIAMPolicyAssignmentResponse (Maybe AssignmentStatus)
updateIAMPolicyAssignmentResponse_assignmentStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateIAMPolicyAssignmentResponse' {Maybe AssignmentStatus
assignmentStatus :: Maybe AssignmentStatus
$sel:assignmentStatus:UpdateIAMPolicyAssignmentResponse' :: UpdateIAMPolicyAssignmentResponse -> Maybe AssignmentStatus
assignmentStatus} -> Maybe AssignmentStatus
assignmentStatus) (\s :: UpdateIAMPolicyAssignmentResponse
s@UpdateIAMPolicyAssignmentResponse' {} Maybe AssignmentStatus
a -> UpdateIAMPolicyAssignmentResponse
s {$sel:assignmentStatus:UpdateIAMPolicyAssignmentResponse' :: Maybe AssignmentStatus
assignmentStatus = Maybe AssignmentStatus
a} :: UpdateIAMPolicyAssignmentResponse)
updateIAMPolicyAssignmentResponse_identities :: Lens.Lens' UpdateIAMPolicyAssignmentResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text [Prelude.Text]))
updateIAMPolicyAssignmentResponse_identities :: Lens'
UpdateIAMPolicyAssignmentResponse (Maybe (HashMap Text [Text]))
updateIAMPolicyAssignmentResponse_identities = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateIAMPolicyAssignmentResponse' {Maybe (HashMap Text [Text])
identities :: Maybe (HashMap Text [Text])
$sel:identities:UpdateIAMPolicyAssignmentResponse' :: UpdateIAMPolicyAssignmentResponse -> Maybe (HashMap Text [Text])
identities} -> Maybe (HashMap Text [Text])
identities) (\s :: UpdateIAMPolicyAssignmentResponse
s@UpdateIAMPolicyAssignmentResponse' {} Maybe (HashMap Text [Text])
a -> UpdateIAMPolicyAssignmentResponse
s {$sel:identities:UpdateIAMPolicyAssignmentResponse' :: Maybe (HashMap Text [Text])
identities = Maybe (HashMap Text [Text])
a} :: UpdateIAMPolicyAssignmentResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
updateIAMPolicyAssignmentResponse_policyArn :: Lens.Lens' UpdateIAMPolicyAssignmentResponse (Prelude.Maybe Prelude.Text)
updateIAMPolicyAssignmentResponse_policyArn :: Lens' UpdateIAMPolicyAssignmentResponse (Maybe Text)
updateIAMPolicyAssignmentResponse_policyArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateIAMPolicyAssignmentResponse' {Maybe Text
policyArn :: Maybe Text
$sel:policyArn:UpdateIAMPolicyAssignmentResponse' :: UpdateIAMPolicyAssignmentResponse -> Maybe Text
policyArn} -> Maybe Text
policyArn) (\s :: UpdateIAMPolicyAssignmentResponse
s@UpdateIAMPolicyAssignmentResponse' {} Maybe Text
a -> UpdateIAMPolicyAssignmentResponse
s {$sel:policyArn:UpdateIAMPolicyAssignmentResponse' :: Maybe Text
policyArn = Maybe Text
a} :: UpdateIAMPolicyAssignmentResponse)
updateIAMPolicyAssignmentResponse_requestId :: Lens.Lens' UpdateIAMPolicyAssignmentResponse (Prelude.Maybe Prelude.Text)
updateIAMPolicyAssignmentResponse_requestId :: Lens' UpdateIAMPolicyAssignmentResponse (Maybe Text)
updateIAMPolicyAssignmentResponse_requestId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateIAMPolicyAssignmentResponse' {Maybe Text
requestId :: Maybe Text
$sel:requestId:UpdateIAMPolicyAssignmentResponse' :: UpdateIAMPolicyAssignmentResponse -> Maybe Text
requestId} -> Maybe Text
requestId) (\s :: UpdateIAMPolicyAssignmentResponse
s@UpdateIAMPolicyAssignmentResponse' {} Maybe Text
a -> UpdateIAMPolicyAssignmentResponse
s {$sel:requestId:UpdateIAMPolicyAssignmentResponse' :: Maybe Text
requestId = Maybe Text
a} :: UpdateIAMPolicyAssignmentResponse)
updateIAMPolicyAssignmentResponse_status :: Lens.Lens' UpdateIAMPolicyAssignmentResponse Prelude.Int
updateIAMPolicyAssignmentResponse_status :: Lens' UpdateIAMPolicyAssignmentResponse Int
updateIAMPolicyAssignmentResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateIAMPolicyAssignmentResponse' {Int
status :: Int
$sel:status:UpdateIAMPolicyAssignmentResponse' :: UpdateIAMPolicyAssignmentResponse -> Int
status} -> Int
status) (\s :: UpdateIAMPolicyAssignmentResponse
s@UpdateIAMPolicyAssignmentResponse' {} Int
a -> UpdateIAMPolicyAssignmentResponse
s {$sel:status:UpdateIAMPolicyAssignmentResponse' :: Int
status = Int
a} :: UpdateIAMPolicyAssignmentResponse)
instance
Prelude.NFData
UpdateIAMPolicyAssignmentResponse
where
rnf :: UpdateIAMPolicyAssignmentResponse -> ()
rnf UpdateIAMPolicyAssignmentResponse' {Int
Maybe Text
Maybe (HashMap Text [Text])
Maybe AssignmentStatus
status :: Int
requestId :: Maybe Text
policyArn :: Maybe Text
identities :: Maybe (HashMap Text [Text])
assignmentStatus :: Maybe AssignmentStatus
assignmentName :: Maybe Text
assignmentId :: Maybe Text
$sel:status:UpdateIAMPolicyAssignmentResponse' :: UpdateIAMPolicyAssignmentResponse -> Int
$sel:requestId:UpdateIAMPolicyAssignmentResponse' :: UpdateIAMPolicyAssignmentResponse -> Maybe Text
$sel:policyArn:UpdateIAMPolicyAssignmentResponse' :: UpdateIAMPolicyAssignmentResponse -> Maybe Text
$sel:identities:UpdateIAMPolicyAssignmentResponse' :: UpdateIAMPolicyAssignmentResponse -> Maybe (HashMap Text [Text])
$sel:assignmentStatus:UpdateIAMPolicyAssignmentResponse' :: UpdateIAMPolicyAssignmentResponse -> Maybe AssignmentStatus
$sel:assignmentName:UpdateIAMPolicyAssignmentResponse' :: UpdateIAMPolicyAssignmentResponse -> Maybe Text
$sel:assignmentId:UpdateIAMPolicyAssignmentResponse' :: UpdateIAMPolicyAssignmentResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
assignmentId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
assignmentName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe AssignmentStatus
assignmentStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text [Text])
identities
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
policyArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
requestId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
status