{-# 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.UpdateDataSetPermissions
(
UpdateDataSetPermissions (..),
newUpdateDataSetPermissions,
updateDataSetPermissions_grantPermissions,
updateDataSetPermissions_revokePermissions,
updateDataSetPermissions_awsAccountId,
updateDataSetPermissions_dataSetId,
UpdateDataSetPermissionsResponse (..),
newUpdateDataSetPermissionsResponse,
updateDataSetPermissionsResponse_dataSetArn,
updateDataSetPermissionsResponse_dataSetId,
updateDataSetPermissionsResponse_requestId,
updateDataSetPermissionsResponse_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 UpdateDataSetPermissions = UpdateDataSetPermissions'
{
UpdateDataSetPermissions -> Maybe (NonEmpty ResourcePermission)
grantPermissions :: Prelude.Maybe (Prelude.NonEmpty ResourcePermission),
UpdateDataSetPermissions -> Maybe (NonEmpty ResourcePermission)
revokePermissions :: Prelude.Maybe (Prelude.NonEmpty ResourcePermission),
UpdateDataSetPermissions -> Text
awsAccountId :: Prelude.Text,
UpdateDataSetPermissions -> Text
dataSetId :: Prelude.Text
}
deriving (UpdateDataSetPermissions -> UpdateDataSetPermissions -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateDataSetPermissions -> UpdateDataSetPermissions -> Bool
$c/= :: UpdateDataSetPermissions -> UpdateDataSetPermissions -> Bool
== :: UpdateDataSetPermissions -> UpdateDataSetPermissions -> Bool
$c== :: UpdateDataSetPermissions -> UpdateDataSetPermissions -> Bool
Prelude.Eq, ReadPrec [UpdateDataSetPermissions]
ReadPrec UpdateDataSetPermissions
Int -> ReadS UpdateDataSetPermissions
ReadS [UpdateDataSetPermissions]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateDataSetPermissions]
$creadListPrec :: ReadPrec [UpdateDataSetPermissions]
readPrec :: ReadPrec UpdateDataSetPermissions
$creadPrec :: ReadPrec UpdateDataSetPermissions
readList :: ReadS [UpdateDataSetPermissions]
$creadList :: ReadS [UpdateDataSetPermissions]
readsPrec :: Int -> ReadS UpdateDataSetPermissions
$creadsPrec :: Int -> ReadS UpdateDataSetPermissions
Prelude.Read, Int -> UpdateDataSetPermissions -> ShowS
[UpdateDataSetPermissions] -> ShowS
UpdateDataSetPermissions -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateDataSetPermissions] -> ShowS
$cshowList :: [UpdateDataSetPermissions] -> ShowS
show :: UpdateDataSetPermissions -> String
$cshow :: UpdateDataSetPermissions -> String
showsPrec :: Int -> UpdateDataSetPermissions -> ShowS
$cshowsPrec :: Int -> UpdateDataSetPermissions -> ShowS
Prelude.Show, forall x.
Rep UpdateDataSetPermissions x -> UpdateDataSetPermissions
forall x.
UpdateDataSetPermissions -> Rep UpdateDataSetPermissions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateDataSetPermissions x -> UpdateDataSetPermissions
$cfrom :: forall x.
UpdateDataSetPermissions -> Rep UpdateDataSetPermissions x
Prelude.Generic)
newUpdateDataSetPermissions ::
Prelude.Text ->
Prelude.Text ->
UpdateDataSetPermissions
newUpdateDataSetPermissions :: Text -> Text -> UpdateDataSetPermissions
newUpdateDataSetPermissions
Text
pAwsAccountId_
Text
pDataSetId_ =
UpdateDataSetPermissions'
{ $sel:grantPermissions:UpdateDataSetPermissions' :: Maybe (NonEmpty ResourcePermission)
grantPermissions =
forall a. Maybe a
Prelude.Nothing,
$sel:revokePermissions:UpdateDataSetPermissions' :: Maybe (NonEmpty ResourcePermission)
revokePermissions = forall a. Maybe a
Prelude.Nothing,
$sel:awsAccountId:UpdateDataSetPermissions' :: Text
awsAccountId = Text
pAwsAccountId_,
$sel:dataSetId:UpdateDataSetPermissions' :: Text
dataSetId = Text
pDataSetId_
}
updateDataSetPermissions_grantPermissions :: Lens.Lens' UpdateDataSetPermissions (Prelude.Maybe (Prelude.NonEmpty ResourcePermission))
updateDataSetPermissions_grantPermissions :: Lens'
UpdateDataSetPermissions (Maybe (NonEmpty ResourcePermission))
updateDataSetPermissions_grantPermissions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDataSetPermissions' {Maybe (NonEmpty ResourcePermission)
grantPermissions :: Maybe (NonEmpty ResourcePermission)
$sel:grantPermissions:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Maybe (NonEmpty ResourcePermission)
grantPermissions} -> Maybe (NonEmpty ResourcePermission)
grantPermissions) (\s :: UpdateDataSetPermissions
s@UpdateDataSetPermissions' {} Maybe (NonEmpty ResourcePermission)
a -> UpdateDataSetPermissions
s {$sel:grantPermissions:UpdateDataSetPermissions' :: Maybe (NonEmpty ResourcePermission)
grantPermissions = Maybe (NonEmpty ResourcePermission)
a} :: UpdateDataSetPermissions) 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
updateDataSetPermissions_revokePermissions :: Lens.Lens' UpdateDataSetPermissions (Prelude.Maybe (Prelude.NonEmpty ResourcePermission))
updateDataSetPermissions_revokePermissions :: Lens'
UpdateDataSetPermissions (Maybe (NonEmpty ResourcePermission))
updateDataSetPermissions_revokePermissions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDataSetPermissions' {Maybe (NonEmpty ResourcePermission)
revokePermissions :: Maybe (NonEmpty ResourcePermission)
$sel:revokePermissions:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Maybe (NonEmpty ResourcePermission)
revokePermissions} -> Maybe (NonEmpty ResourcePermission)
revokePermissions) (\s :: UpdateDataSetPermissions
s@UpdateDataSetPermissions' {} Maybe (NonEmpty ResourcePermission)
a -> UpdateDataSetPermissions
s {$sel:revokePermissions:UpdateDataSetPermissions' :: Maybe (NonEmpty ResourcePermission)
revokePermissions = Maybe (NonEmpty ResourcePermission)
a} :: UpdateDataSetPermissions) 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
updateDataSetPermissions_awsAccountId :: Lens.Lens' UpdateDataSetPermissions Prelude.Text
updateDataSetPermissions_awsAccountId :: Lens' UpdateDataSetPermissions Text
updateDataSetPermissions_awsAccountId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDataSetPermissions' {Text
awsAccountId :: Text
$sel:awsAccountId:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Text
awsAccountId} -> Text
awsAccountId) (\s :: UpdateDataSetPermissions
s@UpdateDataSetPermissions' {} Text
a -> UpdateDataSetPermissions
s {$sel:awsAccountId:UpdateDataSetPermissions' :: Text
awsAccountId = Text
a} :: UpdateDataSetPermissions)
updateDataSetPermissions_dataSetId :: Lens.Lens' UpdateDataSetPermissions Prelude.Text
updateDataSetPermissions_dataSetId :: Lens' UpdateDataSetPermissions Text
updateDataSetPermissions_dataSetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDataSetPermissions' {Text
dataSetId :: Text
$sel:dataSetId:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Text
dataSetId} -> Text
dataSetId) (\s :: UpdateDataSetPermissions
s@UpdateDataSetPermissions' {} Text
a -> UpdateDataSetPermissions
s {$sel:dataSetId:UpdateDataSetPermissions' :: Text
dataSetId = Text
a} :: UpdateDataSetPermissions)
instance Core.AWSRequest UpdateDataSetPermissions where
type
AWSResponse UpdateDataSetPermissions =
UpdateDataSetPermissionsResponse
request :: (Service -> Service)
-> UpdateDataSetPermissions -> Request UpdateDataSetPermissions
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 UpdateDataSetPermissions
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UpdateDataSetPermissions)))
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 Text
-> Int
-> UpdateDataSetPermissionsResponse
UpdateDataSetPermissionsResponse'
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
"DataSetArn")
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
"DataSetId")
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 UpdateDataSetPermissions where
hashWithSalt :: Int -> UpdateDataSetPermissions -> Int
hashWithSalt Int
_salt UpdateDataSetPermissions' {Maybe (NonEmpty ResourcePermission)
Text
dataSetId :: Text
awsAccountId :: Text
revokePermissions :: Maybe (NonEmpty ResourcePermission)
grantPermissions :: Maybe (NonEmpty ResourcePermission)
$sel:dataSetId:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Text
$sel:awsAccountId:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Text
$sel:revokePermissions:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Maybe (NonEmpty ResourcePermission)
$sel:grantPermissions:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Maybe (NonEmpty ResourcePermission)
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty ResourcePermission)
grantPermissions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty ResourcePermission)
revokePermissions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
awsAccountId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
dataSetId
instance Prelude.NFData UpdateDataSetPermissions where
rnf :: UpdateDataSetPermissions -> ()
rnf UpdateDataSetPermissions' {Maybe (NonEmpty ResourcePermission)
Text
dataSetId :: Text
awsAccountId :: Text
revokePermissions :: Maybe (NonEmpty ResourcePermission)
grantPermissions :: Maybe (NonEmpty ResourcePermission)
$sel:dataSetId:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Text
$sel:awsAccountId:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Text
$sel:revokePermissions:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Maybe (NonEmpty ResourcePermission)
$sel:grantPermissions:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Maybe (NonEmpty ResourcePermission)
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty ResourcePermission)
grantPermissions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty ResourcePermission)
revokePermissions
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
dataSetId
instance Data.ToHeaders UpdateDataSetPermissions where
toHeaders :: UpdateDataSetPermissions -> 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 UpdateDataSetPermissions where
toJSON :: UpdateDataSetPermissions -> Value
toJSON UpdateDataSetPermissions' {Maybe (NonEmpty ResourcePermission)
Text
dataSetId :: Text
awsAccountId :: Text
revokePermissions :: Maybe (NonEmpty ResourcePermission)
grantPermissions :: Maybe (NonEmpty ResourcePermission)
$sel:dataSetId:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Text
$sel:awsAccountId:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Text
$sel:revokePermissions:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Maybe (NonEmpty ResourcePermission)
$sel:grantPermissions:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Maybe (NonEmpty ResourcePermission)
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"GrantPermissions" 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 (NonEmpty ResourcePermission)
grantPermissions,
(Key
"RevokePermissions" 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 (NonEmpty ResourcePermission)
revokePermissions
]
)
instance Data.ToPath UpdateDataSetPermissions where
toPath :: UpdateDataSetPermissions -> ByteString
toPath UpdateDataSetPermissions' {Maybe (NonEmpty ResourcePermission)
Text
dataSetId :: Text
awsAccountId :: Text
revokePermissions :: Maybe (NonEmpty ResourcePermission)
grantPermissions :: Maybe (NonEmpty ResourcePermission)
$sel:dataSetId:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Text
$sel:awsAccountId:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Text
$sel:revokePermissions:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Maybe (NonEmpty ResourcePermission)
$sel:grantPermissions:UpdateDataSetPermissions' :: UpdateDataSetPermissions -> Maybe (NonEmpty ResourcePermission)
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/accounts/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
awsAccountId,
ByteString
"/data-sets/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
dataSetId,
ByteString
"/permissions"
]
instance Data.ToQuery UpdateDataSetPermissions where
toQuery :: UpdateDataSetPermissions -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateDataSetPermissionsResponse = UpdateDataSetPermissionsResponse'
{
UpdateDataSetPermissionsResponse -> Maybe Text
dataSetArn :: Prelude.Maybe Prelude.Text,
UpdateDataSetPermissionsResponse -> Maybe Text
dataSetId :: Prelude.Maybe Prelude.Text,
UpdateDataSetPermissionsResponse -> Maybe Text
requestId :: Prelude.Maybe Prelude.Text,
UpdateDataSetPermissionsResponse -> Int
status :: Prelude.Int
}
deriving (UpdateDataSetPermissionsResponse
-> UpdateDataSetPermissionsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateDataSetPermissionsResponse
-> UpdateDataSetPermissionsResponse -> Bool
$c/= :: UpdateDataSetPermissionsResponse
-> UpdateDataSetPermissionsResponse -> Bool
== :: UpdateDataSetPermissionsResponse
-> UpdateDataSetPermissionsResponse -> Bool
$c== :: UpdateDataSetPermissionsResponse
-> UpdateDataSetPermissionsResponse -> Bool
Prelude.Eq, ReadPrec [UpdateDataSetPermissionsResponse]
ReadPrec UpdateDataSetPermissionsResponse
Int -> ReadS UpdateDataSetPermissionsResponse
ReadS [UpdateDataSetPermissionsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateDataSetPermissionsResponse]
$creadListPrec :: ReadPrec [UpdateDataSetPermissionsResponse]
readPrec :: ReadPrec UpdateDataSetPermissionsResponse
$creadPrec :: ReadPrec UpdateDataSetPermissionsResponse
readList :: ReadS [UpdateDataSetPermissionsResponse]
$creadList :: ReadS [UpdateDataSetPermissionsResponse]
readsPrec :: Int -> ReadS UpdateDataSetPermissionsResponse
$creadsPrec :: Int -> ReadS UpdateDataSetPermissionsResponse
Prelude.Read, Int -> UpdateDataSetPermissionsResponse -> ShowS
[UpdateDataSetPermissionsResponse] -> ShowS
UpdateDataSetPermissionsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateDataSetPermissionsResponse] -> ShowS
$cshowList :: [UpdateDataSetPermissionsResponse] -> ShowS
show :: UpdateDataSetPermissionsResponse -> String
$cshow :: UpdateDataSetPermissionsResponse -> String
showsPrec :: Int -> UpdateDataSetPermissionsResponse -> ShowS
$cshowsPrec :: Int -> UpdateDataSetPermissionsResponse -> ShowS
Prelude.Show, forall x.
Rep UpdateDataSetPermissionsResponse x
-> UpdateDataSetPermissionsResponse
forall x.
UpdateDataSetPermissionsResponse
-> Rep UpdateDataSetPermissionsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UpdateDataSetPermissionsResponse x
-> UpdateDataSetPermissionsResponse
$cfrom :: forall x.
UpdateDataSetPermissionsResponse
-> Rep UpdateDataSetPermissionsResponse x
Prelude.Generic)
newUpdateDataSetPermissionsResponse ::
Prelude.Int ->
UpdateDataSetPermissionsResponse
newUpdateDataSetPermissionsResponse :: Int -> UpdateDataSetPermissionsResponse
newUpdateDataSetPermissionsResponse Int
pStatus_ =
UpdateDataSetPermissionsResponse'
{ $sel:dataSetArn:UpdateDataSetPermissionsResponse' :: Maybe Text
dataSetArn =
forall a. Maybe a
Prelude.Nothing,
$sel:dataSetId:UpdateDataSetPermissionsResponse' :: Maybe Text
dataSetId = forall a. Maybe a
Prelude.Nothing,
$sel:requestId:UpdateDataSetPermissionsResponse' :: Maybe Text
requestId = forall a. Maybe a
Prelude.Nothing,
$sel:status:UpdateDataSetPermissionsResponse' :: Int
status = Int
pStatus_
}
updateDataSetPermissionsResponse_dataSetArn :: Lens.Lens' UpdateDataSetPermissionsResponse (Prelude.Maybe Prelude.Text)
updateDataSetPermissionsResponse_dataSetArn :: Lens' UpdateDataSetPermissionsResponse (Maybe Text)
updateDataSetPermissionsResponse_dataSetArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDataSetPermissionsResponse' {Maybe Text
dataSetArn :: Maybe Text
$sel:dataSetArn:UpdateDataSetPermissionsResponse' :: UpdateDataSetPermissionsResponse -> Maybe Text
dataSetArn} -> Maybe Text
dataSetArn) (\s :: UpdateDataSetPermissionsResponse
s@UpdateDataSetPermissionsResponse' {} Maybe Text
a -> UpdateDataSetPermissionsResponse
s {$sel:dataSetArn:UpdateDataSetPermissionsResponse' :: Maybe Text
dataSetArn = Maybe Text
a} :: UpdateDataSetPermissionsResponse)
updateDataSetPermissionsResponse_dataSetId :: Lens.Lens' UpdateDataSetPermissionsResponse (Prelude.Maybe Prelude.Text)
updateDataSetPermissionsResponse_dataSetId :: Lens' UpdateDataSetPermissionsResponse (Maybe Text)
updateDataSetPermissionsResponse_dataSetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDataSetPermissionsResponse' {Maybe Text
dataSetId :: Maybe Text
$sel:dataSetId:UpdateDataSetPermissionsResponse' :: UpdateDataSetPermissionsResponse -> Maybe Text
dataSetId} -> Maybe Text
dataSetId) (\s :: UpdateDataSetPermissionsResponse
s@UpdateDataSetPermissionsResponse' {} Maybe Text
a -> UpdateDataSetPermissionsResponse
s {$sel:dataSetId:UpdateDataSetPermissionsResponse' :: Maybe Text
dataSetId = Maybe Text
a} :: UpdateDataSetPermissionsResponse)
updateDataSetPermissionsResponse_requestId :: Lens.Lens' UpdateDataSetPermissionsResponse (Prelude.Maybe Prelude.Text)
updateDataSetPermissionsResponse_requestId :: Lens' UpdateDataSetPermissionsResponse (Maybe Text)
updateDataSetPermissionsResponse_requestId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDataSetPermissionsResponse' {Maybe Text
requestId :: Maybe Text
$sel:requestId:UpdateDataSetPermissionsResponse' :: UpdateDataSetPermissionsResponse -> Maybe Text
requestId} -> Maybe Text
requestId) (\s :: UpdateDataSetPermissionsResponse
s@UpdateDataSetPermissionsResponse' {} Maybe Text
a -> UpdateDataSetPermissionsResponse
s {$sel:requestId:UpdateDataSetPermissionsResponse' :: Maybe Text
requestId = Maybe Text
a} :: UpdateDataSetPermissionsResponse)
updateDataSetPermissionsResponse_status :: Lens.Lens' UpdateDataSetPermissionsResponse Prelude.Int
updateDataSetPermissionsResponse_status :: Lens' UpdateDataSetPermissionsResponse Int
updateDataSetPermissionsResponse_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateDataSetPermissionsResponse' {Int
status :: Int
$sel:status:UpdateDataSetPermissionsResponse' :: UpdateDataSetPermissionsResponse -> Int
status} -> Int
status) (\s :: UpdateDataSetPermissionsResponse
s@UpdateDataSetPermissionsResponse' {} Int
a -> UpdateDataSetPermissionsResponse
s {$sel:status:UpdateDataSetPermissionsResponse' :: Int
status = Int
a} :: UpdateDataSetPermissionsResponse)
instance
Prelude.NFData
UpdateDataSetPermissionsResponse
where
rnf :: UpdateDataSetPermissionsResponse -> ()
rnf UpdateDataSetPermissionsResponse' {Int
Maybe Text
status :: Int
requestId :: Maybe Text
dataSetId :: Maybe Text
dataSetArn :: Maybe Text
$sel:status:UpdateDataSetPermissionsResponse' :: UpdateDataSetPermissionsResponse -> Int
$sel:requestId:UpdateDataSetPermissionsResponse' :: UpdateDataSetPermissionsResponse -> Maybe Text
$sel:dataSetId:UpdateDataSetPermissionsResponse' :: UpdateDataSetPermissionsResponse -> Maybe Text
$sel:dataSetArn:UpdateDataSetPermissionsResponse' :: UpdateDataSetPermissionsResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
dataSetArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
dataSetId
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