{-# 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.DataExchange.UpdateRevision
(
UpdateRevision (..),
newUpdateRevision,
updateRevision_comment,
updateRevision_finalized,
updateRevision_dataSetId,
updateRevision_revisionId,
UpdateRevisionResponse (..),
newUpdateRevisionResponse,
updateRevisionResponse_arn,
updateRevisionResponse_comment,
updateRevisionResponse_createdAt,
updateRevisionResponse_dataSetId,
updateRevisionResponse_finalized,
updateRevisionResponse_id,
updateRevisionResponse_revocationComment,
updateRevisionResponse_revoked,
updateRevisionResponse_revokedAt,
updateRevisionResponse_sourceId,
updateRevisionResponse_updatedAt,
updateRevisionResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.DataExchange.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UpdateRevision = UpdateRevision'
{
:: Prelude.Maybe Prelude.Text,
UpdateRevision -> Maybe Bool
finalized :: Prelude.Maybe Prelude.Bool,
UpdateRevision -> Text
dataSetId :: Prelude.Text,
UpdateRevision -> Text
revisionId :: Prelude.Text
}
deriving (UpdateRevision -> UpdateRevision -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateRevision -> UpdateRevision -> Bool
$c/= :: UpdateRevision -> UpdateRevision -> Bool
== :: UpdateRevision -> UpdateRevision -> Bool
$c== :: UpdateRevision -> UpdateRevision -> Bool
Prelude.Eq, ReadPrec [UpdateRevision]
ReadPrec UpdateRevision
Int -> ReadS UpdateRevision
ReadS [UpdateRevision]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateRevision]
$creadListPrec :: ReadPrec [UpdateRevision]
readPrec :: ReadPrec UpdateRevision
$creadPrec :: ReadPrec UpdateRevision
readList :: ReadS [UpdateRevision]
$creadList :: ReadS [UpdateRevision]
readsPrec :: Int -> ReadS UpdateRevision
$creadsPrec :: Int -> ReadS UpdateRevision
Prelude.Read, Int -> UpdateRevision -> ShowS
[UpdateRevision] -> ShowS
UpdateRevision -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateRevision] -> ShowS
$cshowList :: [UpdateRevision] -> ShowS
show :: UpdateRevision -> String
$cshow :: UpdateRevision -> String
showsPrec :: Int -> UpdateRevision -> ShowS
$cshowsPrec :: Int -> UpdateRevision -> ShowS
Prelude.Show, forall x. Rep UpdateRevision x -> UpdateRevision
forall x. UpdateRevision -> Rep UpdateRevision x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateRevision x -> UpdateRevision
$cfrom :: forall x. UpdateRevision -> Rep UpdateRevision x
Prelude.Generic)
newUpdateRevision ::
Prelude.Text ->
Prelude.Text ->
UpdateRevision
newUpdateRevision :: Text -> Text -> UpdateRevision
newUpdateRevision Text
pDataSetId_ Text
pRevisionId_ =
UpdateRevision'
{ $sel:comment:UpdateRevision' :: Maybe Text
comment = forall a. Maybe a
Prelude.Nothing,
$sel:finalized:UpdateRevision' :: Maybe Bool
finalized = forall a. Maybe a
Prelude.Nothing,
$sel:dataSetId:UpdateRevision' :: Text
dataSetId = Text
pDataSetId_,
$sel:revisionId:UpdateRevision' :: Text
revisionId = Text
pRevisionId_
}
updateRevision_comment :: Lens.Lens' UpdateRevision (Prelude.Maybe Prelude.Text)
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRevision' {Maybe Text
comment :: Maybe Text
$sel:comment:UpdateRevision' :: UpdateRevision -> Maybe Text
comment} -> Maybe Text
comment) (\s :: UpdateRevision
s@UpdateRevision' {} Maybe Text
a -> UpdateRevision
s {$sel:comment:UpdateRevision' :: Maybe Text
comment = Maybe Text
a} :: UpdateRevision)
updateRevision_finalized :: Lens.Lens' UpdateRevision (Prelude.Maybe Prelude.Bool)
updateRevision_finalized :: Lens' UpdateRevision (Maybe Bool)
updateRevision_finalized = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRevision' {Maybe Bool
finalized :: Maybe Bool
$sel:finalized:UpdateRevision' :: UpdateRevision -> Maybe Bool
finalized} -> Maybe Bool
finalized) (\s :: UpdateRevision
s@UpdateRevision' {} Maybe Bool
a -> UpdateRevision
s {$sel:finalized:UpdateRevision' :: Maybe Bool
finalized = Maybe Bool
a} :: UpdateRevision)
updateRevision_dataSetId :: Lens.Lens' UpdateRevision Prelude.Text
updateRevision_dataSetId :: Lens' UpdateRevision Text
updateRevision_dataSetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRevision' {Text
dataSetId :: Text
$sel:dataSetId:UpdateRevision' :: UpdateRevision -> Text
dataSetId} -> Text
dataSetId) (\s :: UpdateRevision
s@UpdateRevision' {} Text
a -> UpdateRevision
s {$sel:dataSetId:UpdateRevision' :: Text
dataSetId = Text
a} :: UpdateRevision)
updateRevision_revisionId :: Lens.Lens' UpdateRevision Prelude.Text
updateRevision_revisionId :: Lens' UpdateRevision Text
updateRevision_revisionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRevision' {Text
revisionId :: Text
$sel:revisionId:UpdateRevision' :: UpdateRevision -> Text
revisionId} -> Text
revisionId) (\s :: UpdateRevision
s@UpdateRevision' {} Text
a -> UpdateRevision
s {$sel:revisionId:UpdateRevision' :: Text
revisionId = Text
a} :: UpdateRevision)
instance Core.AWSRequest UpdateRevision where
type
AWSResponse UpdateRevision =
UpdateRevisionResponse
request :: (Service -> Service) -> UpdateRevision -> Request UpdateRevision
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.patchJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy UpdateRevision
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse UpdateRevision)))
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 ISO8601
-> Maybe Text
-> Maybe Bool
-> Maybe Text
-> Maybe Text
-> Maybe Bool
-> Maybe ISO8601
-> Maybe Text
-> Maybe ISO8601
-> Int
-> UpdateRevisionResponse
UpdateRevisionResponse'
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
"Arn")
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
"Comment")
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
"CreatedAt")
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
"Finalized")
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
"Id")
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
"RevocationComment")
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
"Revoked")
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
"RevokedAt")
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
"SourceId")
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
"UpdatedAt")
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 UpdateRevision where
hashWithSalt :: Int -> UpdateRevision -> Int
hashWithSalt Int
_salt UpdateRevision' {Maybe Bool
Maybe Text
Text
revisionId :: Text
dataSetId :: Text
finalized :: Maybe Bool
comment :: Maybe Text
$sel:revisionId:UpdateRevision' :: UpdateRevision -> Text
$sel:dataSetId:UpdateRevision' :: UpdateRevision -> Text
$sel:finalized:UpdateRevision' :: UpdateRevision -> Maybe Bool
$sel:comment:UpdateRevision' :: UpdateRevision -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
comment
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
finalized
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
dataSetId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
revisionId
instance Prelude.NFData UpdateRevision where
rnf :: UpdateRevision -> ()
rnf UpdateRevision' {Maybe Bool
Maybe Text
Text
revisionId :: Text
dataSetId :: Text
finalized :: Maybe Bool
comment :: Maybe Text
$sel:revisionId:UpdateRevision' :: UpdateRevision -> Text
$sel:dataSetId:UpdateRevision' :: UpdateRevision -> Text
$sel:finalized:UpdateRevision' :: UpdateRevision -> Maybe Bool
$sel:comment:UpdateRevision' :: UpdateRevision -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
comment
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
finalized
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
dataSetId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
revisionId
instance Data.ToHeaders UpdateRevision where
toHeaders :: UpdateRevision -> 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.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON UpdateRevision where
toJSON :: UpdateRevision -> Value
toJSON UpdateRevision' {Maybe Bool
Maybe Text
Text
revisionId :: Text
dataSetId :: Text
finalized :: Maybe Bool
comment :: Maybe Text
$sel:revisionId:UpdateRevision' :: UpdateRevision -> Text
$sel:dataSetId:UpdateRevision' :: UpdateRevision -> Text
$sel:finalized:UpdateRevision' :: UpdateRevision -> Maybe Bool
$sel:comment:UpdateRevision' :: UpdateRevision -> Maybe Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"Comment" 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
comment,
(Key
"Finalized" 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 Bool
finalized
]
)
instance Data.ToPath UpdateRevision where
toPath :: UpdateRevision -> ByteString
toPath UpdateRevision' {Maybe Bool
Maybe Text
Text
revisionId :: Text
dataSetId :: Text
finalized :: Maybe Bool
comment :: Maybe Text
$sel:revisionId:UpdateRevision' :: UpdateRevision -> Text
$sel:dataSetId:UpdateRevision' :: UpdateRevision -> Text
$sel:finalized:UpdateRevision' :: UpdateRevision -> Maybe Bool
$sel:comment:UpdateRevision' :: UpdateRevision -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/v1/data-sets/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
dataSetId,
ByteString
"/revisions/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
revisionId
]
instance Data.ToQuery UpdateRevision where
toQuery :: UpdateRevision -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UpdateRevisionResponse = UpdateRevisionResponse'
{
UpdateRevisionResponse -> Maybe Text
arn :: Prelude.Maybe Prelude.Text,
:: Prelude.Maybe Prelude.Text,
UpdateRevisionResponse -> Maybe ISO8601
createdAt :: Prelude.Maybe Data.ISO8601,
UpdateRevisionResponse -> Maybe Text
dataSetId :: Prelude.Maybe Prelude.Text,
UpdateRevisionResponse -> Maybe Bool
finalized :: Prelude.Maybe Prelude.Bool,
UpdateRevisionResponse -> Maybe Text
id :: Prelude.Maybe Prelude.Text,
:: Prelude.Maybe Prelude.Text,
UpdateRevisionResponse -> Maybe Bool
revoked :: Prelude.Maybe Prelude.Bool,
UpdateRevisionResponse -> Maybe ISO8601
revokedAt :: Prelude.Maybe Data.ISO8601,
UpdateRevisionResponse -> Maybe Text
sourceId :: Prelude.Maybe Prelude.Text,
UpdateRevisionResponse -> Maybe ISO8601
updatedAt :: Prelude.Maybe Data.ISO8601,
UpdateRevisionResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UpdateRevisionResponse -> UpdateRevisionResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UpdateRevisionResponse -> UpdateRevisionResponse -> Bool
$c/= :: UpdateRevisionResponse -> UpdateRevisionResponse -> Bool
== :: UpdateRevisionResponse -> UpdateRevisionResponse -> Bool
$c== :: UpdateRevisionResponse -> UpdateRevisionResponse -> Bool
Prelude.Eq, ReadPrec [UpdateRevisionResponse]
ReadPrec UpdateRevisionResponse
Int -> ReadS UpdateRevisionResponse
ReadS [UpdateRevisionResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UpdateRevisionResponse]
$creadListPrec :: ReadPrec [UpdateRevisionResponse]
readPrec :: ReadPrec UpdateRevisionResponse
$creadPrec :: ReadPrec UpdateRevisionResponse
readList :: ReadS [UpdateRevisionResponse]
$creadList :: ReadS [UpdateRevisionResponse]
readsPrec :: Int -> ReadS UpdateRevisionResponse
$creadsPrec :: Int -> ReadS UpdateRevisionResponse
Prelude.Read, Int -> UpdateRevisionResponse -> ShowS
[UpdateRevisionResponse] -> ShowS
UpdateRevisionResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UpdateRevisionResponse] -> ShowS
$cshowList :: [UpdateRevisionResponse] -> ShowS
show :: UpdateRevisionResponse -> String
$cshow :: UpdateRevisionResponse -> String
showsPrec :: Int -> UpdateRevisionResponse -> ShowS
$cshowsPrec :: Int -> UpdateRevisionResponse -> ShowS
Prelude.Show, forall x. Rep UpdateRevisionResponse x -> UpdateRevisionResponse
forall x. UpdateRevisionResponse -> Rep UpdateRevisionResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UpdateRevisionResponse x -> UpdateRevisionResponse
$cfrom :: forall x. UpdateRevisionResponse -> Rep UpdateRevisionResponse x
Prelude.Generic)
newUpdateRevisionResponse ::
Prelude.Int ->
UpdateRevisionResponse
newUpdateRevisionResponse :: Int -> UpdateRevisionResponse
newUpdateRevisionResponse Int
pHttpStatus_ =
UpdateRevisionResponse'
{ $sel:arn:UpdateRevisionResponse' :: Maybe Text
arn = forall a. Maybe a
Prelude.Nothing,
$sel:comment:UpdateRevisionResponse' :: Maybe Text
comment = forall a. Maybe a
Prelude.Nothing,
$sel:createdAt:UpdateRevisionResponse' :: Maybe ISO8601
createdAt = forall a. Maybe a
Prelude.Nothing,
$sel:dataSetId:UpdateRevisionResponse' :: Maybe Text
dataSetId = forall a. Maybe a
Prelude.Nothing,
$sel:finalized:UpdateRevisionResponse' :: Maybe Bool
finalized = forall a. Maybe a
Prelude.Nothing,
$sel:id:UpdateRevisionResponse' :: Maybe Text
id = forall a. Maybe a
Prelude.Nothing,
$sel:revocationComment:UpdateRevisionResponse' :: Maybe Text
revocationComment = forall a. Maybe a
Prelude.Nothing,
$sel:revoked:UpdateRevisionResponse' :: Maybe Bool
revoked = forall a. Maybe a
Prelude.Nothing,
$sel:revokedAt:UpdateRevisionResponse' :: Maybe ISO8601
revokedAt = forall a. Maybe a
Prelude.Nothing,
$sel:sourceId:UpdateRevisionResponse' :: Maybe Text
sourceId = forall a. Maybe a
Prelude.Nothing,
$sel:updatedAt:UpdateRevisionResponse' :: Maybe ISO8601
updatedAt = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:UpdateRevisionResponse' :: Int
httpStatus = Int
pHttpStatus_
}
updateRevisionResponse_arn :: Lens.Lens' UpdateRevisionResponse (Prelude.Maybe Prelude.Text)
updateRevisionResponse_arn :: Lens' UpdateRevisionResponse (Maybe Text)
updateRevisionResponse_arn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRevisionResponse' {Maybe Text
arn :: Maybe Text
$sel:arn:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe Text
arn} -> Maybe Text
arn) (\s :: UpdateRevisionResponse
s@UpdateRevisionResponse' {} Maybe Text
a -> UpdateRevisionResponse
s {$sel:arn:UpdateRevisionResponse' :: Maybe Text
arn = Maybe Text
a} :: UpdateRevisionResponse)
updateRevisionResponse_comment :: Lens.Lens' UpdateRevisionResponse (Prelude.Maybe Prelude.Text)
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRevisionResponse' {Maybe Text
comment :: Maybe Text
$sel:comment:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe Text
comment} -> Maybe Text
comment) (\s :: UpdateRevisionResponse
s@UpdateRevisionResponse' {} Maybe Text
a -> UpdateRevisionResponse
s {$sel:comment:UpdateRevisionResponse' :: Maybe Text
comment = Maybe Text
a} :: UpdateRevisionResponse)
updateRevisionResponse_createdAt :: Lens.Lens' UpdateRevisionResponse (Prelude.Maybe Prelude.UTCTime)
updateRevisionResponse_createdAt :: Lens' UpdateRevisionResponse (Maybe UTCTime)
updateRevisionResponse_createdAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRevisionResponse' {Maybe ISO8601
createdAt :: Maybe ISO8601
$sel:createdAt:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe ISO8601
createdAt} -> Maybe ISO8601
createdAt) (\s :: UpdateRevisionResponse
s@UpdateRevisionResponse' {} Maybe ISO8601
a -> UpdateRevisionResponse
s {$sel:createdAt:UpdateRevisionResponse' :: Maybe ISO8601
createdAt = Maybe ISO8601
a} :: UpdateRevisionResponse) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
updateRevisionResponse_dataSetId :: Lens.Lens' UpdateRevisionResponse (Prelude.Maybe Prelude.Text)
updateRevisionResponse_dataSetId :: Lens' UpdateRevisionResponse (Maybe Text)
updateRevisionResponse_dataSetId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRevisionResponse' {Maybe Text
dataSetId :: Maybe Text
$sel:dataSetId:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe Text
dataSetId} -> Maybe Text
dataSetId) (\s :: UpdateRevisionResponse
s@UpdateRevisionResponse' {} Maybe Text
a -> UpdateRevisionResponse
s {$sel:dataSetId:UpdateRevisionResponse' :: Maybe Text
dataSetId = Maybe Text
a} :: UpdateRevisionResponse)
updateRevisionResponse_finalized :: Lens.Lens' UpdateRevisionResponse (Prelude.Maybe Prelude.Bool)
updateRevisionResponse_finalized :: Lens' UpdateRevisionResponse (Maybe Bool)
updateRevisionResponse_finalized = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRevisionResponse' {Maybe Bool
finalized :: Maybe Bool
$sel:finalized:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe Bool
finalized} -> Maybe Bool
finalized) (\s :: UpdateRevisionResponse
s@UpdateRevisionResponse' {} Maybe Bool
a -> UpdateRevisionResponse
s {$sel:finalized:UpdateRevisionResponse' :: Maybe Bool
finalized = Maybe Bool
a} :: UpdateRevisionResponse)
updateRevisionResponse_id :: Lens.Lens' UpdateRevisionResponse (Prelude.Maybe Prelude.Text)
updateRevisionResponse_id :: Lens' UpdateRevisionResponse (Maybe Text)
updateRevisionResponse_id = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRevisionResponse' {Maybe Text
id :: Maybe Text
$sel:id:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe Text
id} -> Maybe Text
id) (\s :: UpdateRevisionResponse
s@UpdateRevisionResponse' {} Maybe Text
a -> UpdateRevisionResponse
s {$sel:id:UpdateRevisionResponse' :: Maybe Text
id = Maybe Text
a} :: UpdateRevisionResponse)
updateRevisionResponse_revocationComment :: Lens.Lens' UpdateRevisionResponse (Prelude.Maybe Prelude.Text)
= forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRevisionResponse' {Maybe Text
revocationComment :: Maybe Text
$sel:revocationComment:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe Text
revocationComment} -> Maybe Text
revocationComment) (\s :: UpdateRevisionResponse
s@UpdateRevisionResponse' {} Maybe Text
a -> UpdateRevisionResponse
s {$sel:revocationComment:UpdateRevisionResponse' :: Maybe Text
revocationComment = Maybe Text
a} :: UpdateRevisionResponse)
updateRevisionResponse_revoked :: Lens.Lens' UpdateRevisionResponse (Prelude.Maybe Prelude.Bool)
updateRevisionResponse_revoked :: Lens' UpdateRevisionResponse (Maybe Bool)
updateRevisionResponse_revoked = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRevisionResponse' {Maybe Bool
revoked :: Maybe Bool
$sel:revoked:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe Bool
revoked} -> Maybe Bool
revoked) (\s :: UpdateRevisionResponse
s@UpdateRevisionResponse' {} Maybe Bool
a -> UpdateRevisionResponse
s {$sel:revoked:UpdateRevisionResponse' :: Maybe Bool
revoked = Maybe Bool
a} :: UpdateRevisionResponse)
updateRevisionResponse_revokedAt :: Lens.Lens' UpdateRevisionResponse (Prelude.Maybe Prelude.UTCTime)
updateRevisionResponse_revokedAt :: Lens' UpdateRevisionResponse (Maybe UTCTime)
updateRevisionResponse_revokedAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRevisionResponse' {Maybe ISO8601
revokedAt :: Maybe ISO8601
$sel:revokedAt:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe ISO8601
revokedAt} -> Maybe ISO8601
revokedAt) (\s :: UpdateRevisionResponse
s@UpdateRevisionResponse' {} Maybe ISO8601
a -> UpdateRevisionResponse
s {$sel:revokedAt:UpdateRevisionResponse' :: Maybe ISO8601
revokedAt = Maybe ISO8601
a} :: UpdateRevisionResponse) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
updateRevisionResponse_sourceId :: Lens.Lens' UpdateRevisionResponse (Prelude.Maybe Prelude.Text)
updateRevisionResponse_sourceId :: Lens' UpdateRevisionResponse (Maybe Text)
updateRevisionResponse_sourceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRevisionResponse' {Maybe Text
sourceId :: Maybe Text
$sel:sourceId:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe Text
sourceId} -> Maybe Text
sourceId) (\s :: UpdateRevisionResponse
s@UpdateRevisionResponse' {} Maybe Text
a -> UpdateRevisionResponse
s {$sel:sourceId:UpdateRevisionResponse' :: Maybe Text
sourceId = Maybe Text
a} :: UpdateRevisionResponse)
updateRevisionResponse_updatedAt :: Lens.Lens' UpdateRevisionResponse (Prelude.Maybe Prelude.UTCTime)
updateRevisionResponse_updatedAt :: Lens' UpdateRevisionResponse (Maybe UTCTime)
updateRevisionResponse_updatedAt = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRevisionResponse' {Maybe ISO8601
updatedAt :: Maybe ISO8601
$sel:updatedAt:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe ISO8601
updatedAt} -> Maybe ISO8601
updatedAt) (\s :: UpdateRevisionResponse
s@UpdateRevisionResponse' {} Maybe ISO8601
a -> UpdateRevisionResponse
s {$sel:updatedAt:UpdateRevisionResponse' :: Maybe ISO8601
updatedAt = Maybe ISO8601
a} :: UpdateRevisionResponse) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
updateRevisionResponse_httpStatus :: Lens.Lens' UpdateRevisionResponse Prelude.Int
updateRevisionResponse_httpStatus :: Lens' UpdateRevisionResponse Int
updateRevisionResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UpdateRevisionResponse' {Int
httpStatus :: Int
$sel:httpStatus:UpdateRevisionResponse' :: UpdateRevisionResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UpdateRevisionResponse
s@UpdateRevisionResponse' {} Int
a -> UpdateRevisionResponse
s {$sel:httpStatus:UpdateRevisionResponse' :: Int
httpStatus = Int
a} :: UpdateRevisionResponse)
instance Prelude.NFData UpdateRevisionResponse where
rnf :: UpdateRevisionResponse -> ()
rnf UpdateRevisionResponse' {Int
Maybe Bool
Maybe Text
Maybe ISO8601
httpStatus :: Int
updatedAt :: Maybe ISO8601
sourceId :: Maybe Text
revokedAt :: Maybe ISO8601
revoked :: Maybe Bool
revocationComment :: Maybe Text
id :: Maybe Text
finalized :: Maybe Bool
dataSetId :: Maybe Text
createdAt :: Maybe ISO8601
comment :: Maybe Text
arn :: Maybe Text
$sel:httpStatus:UpdateRevisionResponse' :: UpdateRevisionResponse -> Int
$sel:updatedAt:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe ISO8601
$sel:sourceId:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe Text
$sel:revokedAt:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe ISO8601
$sel:revoked:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe Bool
$sel:revocationComment:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe Text
$sel:id:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe Text
$sel:finalized:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe Bool
$sel:dataSetId:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe Text
$sel:createdAt:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe ISO8601
$sel:comment:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe Text
$sel:arn:UpdateRevisionResponse' :: UpdateRevisionResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
arn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
comment
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ISO8601
createdAt
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 Bool
finalized
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
id
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
revocationComment
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
revoked
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ISO8601
revokedAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sourceId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ISO8601
updatedAt
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus