{-# 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.S3.RestoreObject
(
RestoreObject (..),
newRestoreObject,
restoreObject_checksumAlgorithm,
restoreObject_expectedBucketOwner,
restoreObject_requestPayer,
restoreObject_restoreRequest,
restoreObject_versionId,
restoreObject_bucket,
restoreObject_key,
RestoreObjectResponse (..),
newRestoreObjectResponse,
restoreObjectResponse_requestCharged,
restoreObjectResponse_restoreOutputPath,
restoreObjectResponse_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.S3.Types
data RestoreObject = RestoreObject'
{
RestoreObject -> Maybe ChecksumAlgorithm
checksumAlgorithm :: Prelude.Maybe ChecksumAlgorithm,
RestoreObject -> Maybe Text
expectedBucketOwner :: Prelude.Maybe Prelude.Text,
RestoreObject -> Maybe RequestPayer
requestPayer :: Prelude.Maybe RequestPayer,
RestoreObject -> Maybe RestoreRequest
restoreRequest :: Prelude.Maybe RestoreRequest,
RestoreObject -> Maybe ObjectVersionId
versionId :: Prelude.Maybe ObjectVersionId,
RestoreObject -> BucketName
bucket :: BucketName,
RestoreObject -> ObjectKey
key :: ObjectKey
}
deriving (RestoreObject -> RestoreObject -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RestoreObject -> RestoreObject -> Bool
$c/= :: RestoreObject -> RestoreObject -> Bool
== :: RestoreObject -> RestoreObject -> Bool
$c== :: RestoreObject -> RestoreObject -> Bool
Prelude.Eq, Int -> RestoreObject -> ShowS
[RestoreObject] -> ShowS
RestoreObject -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RestoreObject] -> ShowS
$cshowList :: [RestoreObject] -> ShowS
show :: RestoreObject -> String
$cshow :: RestoreObject -> String
showsPrec :: Int -> RestoreObject -> ShowS
$cshowsPrec :: Int -> RestoreObject -> ShowS
Prelude.Show, forall x. Rep RestoreObject x -> RestoreObject
forall x. RestoreObject -> Rep RestoreObject x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep RestoreObject x -> RestoreObject
$cfrom :: forall x. RestoreObject -> Rep RestoreObject x
Prelude.Generic)
newRestoreObject ::
BucketName ->
ObjectKey ->
RestoreObject
newRestoreObject :: BucketName -> ObjectKey -> RestoreObject
newRestoreObject BucketName
pBucket_ ObjectKey
pKey_ =
RestoreObject'
{ $sel:checksumAlgorithm:RestoreObject' :: Maybe ChecksumAlgorithm
checksumAlgorithm = forall a. Maybe a
Prelude.Nothing,
$sel:expectedBucketOwner:RestoreObject' :: Maybe Text
expectedBucketOwner = forall a. Maybe a
Prelude.Nothing,
$sel:requestPayer:RestoreObject' :: Maybe RequestPayer
requestPayer = forall a. Maybe a
Prelude.Nothing,
$sel:restoreRequest:RestoreObject' :: Maybe RestoreRequest
restoreRequest = forall a. Maybe a
Prelude.Nothing,
$sel:versionId:RestoreObject' :: Maybe ObjectVersionId
versionId = forall a. Maybe a
Prelude.Nothing,
$sel:bucket:RestoreObject' :: BucketName
bucket = BucketName
pBucket_,
$sel:key:RestoreObject' :: ObjectKey
key = ObjectKey
pKey_
}
restoreObject_checksumAlgorithm :: Lens.Lens' RestoreObject (Prelude.Maybe ChecksumAlgorithm)
restoreObject_checksumAlgorithm :: Lens' RestoreObject (Maybe ChecksumAlgorithm)
restoreObject_checksumAlgorithm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RestoreObject' {Maybe ChecksumAlgorithm
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:checksumAlgorithm:RestoreObject' :: RestoreObject -> Maybe ChecksumAlgorithm
checksumAlgorithm} -> Maybe ChecksumAlgorithm
checksumAlgorithm) (\s :: RestoreObject
s@RestoreObject' {} Maybe ChecksumAlgorithm
a -> RestoreObject
s {$sel:checksumAlgorithm:RestoreObject' :: Maybe ChecksumAlgorithm
checksumAlgorithm = Maybe ChecksumAlgorithm
a} :: RestoreObject)
restoreObject_expectedBucketOwner :: Lens.Lens' RestoreObject (Prelude.Maybe Prelude.Text)
restoreObject_expectedBucketOwner :: Lens' RestoreObject (Maybe Text)
restoreObject_expectedBucketOwner = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RestoreObject' {Maybe Text
expectedBucketOwner :: Maybe Text
$sel:expectedBucketOwner:RestoreObject' :: RestoreObject -> Maybe Text
expectedBucketOwner} -> Maybe Text
expectedBucketOwner) (\s :: RestoreObject
s@RestoreObject' {} Maybe Text
a -> RestoreObject
s {$sel:expectedBucketOwner:RestoreObject' :: Maybe Text
expectedBucketOwner = Maybe Text
a} :: RestoreObject)
restoreObject_requestPayer :: Lens.Lens' RestoreObject (Prelude.Maybe RequestPayer)
restoreObject_requestPayer :: Lens' RestoreObject (Maybe RequestPayer)
restoreObject_requestPayer = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RestoreObject' {Maybe RequestPayer
requestPayer :: Maybe RequestPayer
$sel:requestPayer:RestoreObject' :: RestoreObject -> Maybe RequestPayer
requestPayer} -> Maybe RequestPayer
requestPayer) (\s :: RestoreObject
s@RestoreObject' {} Maybe RequestPayer
a -> RestoreObject
s {$sel:requestPayer:RestoreObject' :: Maybe RequestPayer
requestPayer = Maybe RequestPayer
a} :: RestoreObject)
restoreObject_restoreRequest :: Lens.Lens' RestoreObject (Prelude.Maybe RestoreRequest)
restoreObject_restoreRequest :: Lens' RestoreObject (Maybe RestoreRequest)
restoreObject_restoreRequest = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RestoreObject' {Maybe RestoreRequest
restoreRequest :: Maybe RestoreRequest
$sel:restoreRequest:RestoreObject' :: RestoreObject -> Maybe RestoreRequest
restoreRequest} -> Maybe RestoreRequest
restoreRequest) (\s :: RestoreObject
s@RestoreObject' {} Maybe RestoreRequest
a -> RestoreObject
s {$sel:restoreRequest:RestoreObject' :: Maybe RestoreRequest
restoreRequest = Maybe RestoreRequest
a} :: RestoreObject)
restoreObject_versionId :: Lens.Lens' RestoreObject (Prelude.Maybe ObjectVersionId)
restoreObject_versionId :: Lens' RestoreObject (Maybe ObjectVersionId)
restoreObject_versionId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RestoreObject' {Maybe ObjectVersionId
versionId :: Maybe ObjectVersionId
$sel:versionId:RestoreObject' :: RestoreObject -> Maybe ObjectVersionId
versionId} -> Maybe ObjectVersionId
versionId) (\s :: RestoreObject
s@RestoreObject' {} Maybe ObjectVersionId
a -> RestoreObject
s {$sel:versionId:RestoreObject' :: Maybe ObjectVersionId
versionId = Maybe ObjectVersionId
a} :: RestoreObject)
restoreObject_bucket :: Lens.Lens' RestoreObject BucketName
restoreObject_bucket :: Lens' RestoreObject BucketName
restoreObject_bucket = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RestoreObject' {BucketName
bucket :: BucketName
$sel:bucket:RestoreObject' :: RestoreObject -> BucketName
bucket} -> BucketName
bucket) (\s :: RestoreObject
s@RestoreObject' {} BucketName
a -> RestoreObject
s {$sel:bucket:RestoreObject' :: BucketName
bucket = BucketName
a} :: RestoreObject)
restoreObject_key :: Lens.Lens' RestoreObject ObjectKey
restoreObject_key :: Lens' RestoreObject ObjectKey
restoreObject_key = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RestoreObject' {ObjectKey
key :: ObjectKey
$sel:key:RestoreObject' :: RestoreObject -> ObjectKey
key} -> ObjectKey
key) (\s :: RestoreObject
s@RestoreObject' {} ObjectKey
a -> RestoreObject
s {$sel:key:RestoreObject' :: ObjectKey
key = ObjectKey
a} :: RestoreObject)
instance Core.AWSRequest RestoreObject where
type
AWSResponse RestoreObject =
RestoreObjectResponse
request :: (Service -> Service) -> RestoreObject -> Request RestoreObject
request Service -> Service
overrides =
forall a. Request a -> Request a
Request.s3vhost
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a. (ToRequest a, ToElement a) => Service -> a -> Request a
Request.postXML (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy RestoreObject
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse RestoreObject)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Maybe RequestCharged -> Maybe Text -> Int -> RestoreObjectResponse
RestoreObjectResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (ResponseHeaders
h forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"x-amz-request-charged")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (ResponseHeaders
h forall a.
FromText a =>
ResponseHeaders -> HeaderName -> Either String (Maybe a)
Data..#? HeaderName
"x-amz-restore-output-path")
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 RestoreObject where
hashWithSalt :: Int -> RestoreObject -> Int
hashWithSalt Int
_salt RestoreObject' {Maybe Text
Maybe ObjectVersionId
Maybe ChecksumAlgorithm
Maybe RequestPayer
Maybe RestoreRequest
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
restoreRequest :: Maybe RestoreRequest
requestPayer :: Maybe RequestPayer
expectedBucketOwner :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:key:RestoreObject' :: RestoreObject -> ObjectKey
$sel:bucket:RestoreObject' :: RestoreObject -> BucketName
$sel:versionId:RestoreObject' :: RestoreObject -> Maybe ObjectVersionId
$sel:restoreRequest:RestoreObject' :: RestoreObject -> Maybe RestoreRequest
$sel:requestPayer:RestoreObject' :: RestoreObject -> Maybe RequestPayer
$sel:expectedBucketOwner:RestoreObject' :: RestoreObject -> Maybe Text
$sel:checksumAlgorithm:RestoreObject' :: RestoreObject -> Maybe ChecksumAlgorithm
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ChecksumAlgorithm
checksumAlgorithm
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
expectedBucketOwner
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RequestPayer
requestPayer
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe RestoreRequest
restoreRequest
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ObjectVersionId
versionId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` BucketName
bucket
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ObjectKey
key
instance Prelude.NFData RestoreObject where
rnf :: RestoreObject -> ()
rnf RestoreObject' {Maybe Text
Maybe ObjectVersionId
Maybe ChecksumAlgorithm
Maybe RequestPayer
Maybe RestoreRequest
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
restoreRequest :: Maybe RestoreRequest
requestPayer :: Maybe RequestPayer
expectedBucketOwner :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:key:RestoreObject' :: RestoreObject -> ObjectKey
$sel:bucket:RestoreObject' :: RestoreObject -> BucketName
$sel:versionId:RestoreObject' :: RestoreObject -> Maybe ObjectVersionId
$sel:restoreRequest:RestoreObject' :: RestoreObject -> Maybe RestoreRequest
$sel:requestPayer:RestoreObject' :: RestoreObject -> Maybe RequestPayer
$sel:expectedBucketOwner:RestoreObject' :: RestoreObject -> Maybe Text
$sel:checksumAlgorithm:RestoreObject' :: RestoreObject -> Maybe ChecksumAlgorithm
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ChecksumAlgorithm
checksumAlgorithm
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
expectedBucketOwner
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RequestPayer
requestPayer
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe RestoreRequest
restoreRequest
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ObjectVersionId
versionId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf BucketName
bucket
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ObjectKey
key
instance Data.ToElement RestoreObject where
toElement :: RestoreObject -> Element
toElement RestoreObject' {Maybe Text
Maybe ObjectVersionId
Maybe ChecksumAlgorithm
Maybe RequestPayer
Maybe RestoreRequest
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
restoreRequest :: Maybe RestoreRequest
requestPayer :: Maybe RequestPayer
expectedBucketOwner :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:key:RestoreObject' :: RestoreObject -> ObjectKey
$sel:bucket:RestoreObject' :: RestoreObject -> BucketName
$sel:versionId:RestoreObject' :: RestoreObject -> Maybe ObjectVersionId
$sel:restoreRequest:RestoreObject' :: RestoreObject -> Maybe RestoreRequest
$sel:requestPayer:RestoreObject' :: RestoreObject -> Maybe RequestPayer
$sel:expectedBucketOwner:RestoreObject' :: RestoreObject -> Maybe Text
$sel:checksumAlgorithm:RestoreObject' :: RestoreObject -> Maybe ChecksumAlgorithm
..} =
forall a. ToXML a => Name -> a -> Element
Data.mkElement
Name
"{http://s3.amazonaws.com/doc/2006-03-01/}RestoreRequest"
Maybe RestoreRequest
restoreRequest
instance Data.ToHeaders RestoreObject where
toHeaders :: RestoreObject -> ResponseHeaders
toHeaders RestoreObject' {Maybe Text
Maybe ObjectVersionId
Maybe ChecksumAlgorithm
Maybe RequestPayer
Maybe RestoreRequest
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
restoreRequest :: Maybe RestoreRequest
requestPayer :: Maybe RequestPayer
expectedBucketOwner :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:key:RestoreObject' :: RestoreObject -> ObjectKey
$sel:bucket:RestoreObject' :: RestoreObject -> BucketName
$sel:versionId:RestoreObject' :: RestoreObject -> Maybe ObjectVersionId
$sel:restoreRequest:RestoreObject' :: RestoreObject -> Maybe RestoreRequest
$sel:requestPayer:RestoreObject' :: RestoreObject -> Maybe RequestPayer
$sel:expectedBucketOwner:RestoreObject' :: RestoreObject -> Maybe Text
$sel:checksumAlgorithm:RestoreObject' :: RestoreObject -> Maybe ChecksumAlgorithm
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"x-amz-sdk-checksum-algorithm"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe ChecksumAlgorithm
checksumAlgorithm,
HeaderName
"x-amz-expected-bucket-owner"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe Text
expectedBucketOwner,
HeaderName
"x-amz-request-payer" forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# Maybe RequestPayer
requestPayer
]
instance Data.ToPath RestoreObject where
toPath :: RestoreObject -> ByteString
toPath RestoreObject' {Maybe Text
Maybe ObjectVersionId
Maybe ChecksumAlgorithm
Maybe RequestPayer
Maybe RestoreRequest
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
restoreRequest :: Maybe RestoreRequest
requestPayer :: Maybe RequestPayer
expectedBucketOwner :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:key:RestoreObject' :: RestoreObject -> ObjectKey
$sel:bucket:RestoreObject' :: RestoreObject -> BucketName
$sel:versionId:RestoreObject' :: RestoreObject -> Maybe ObjectVersionId
$sel:restoreRequest:RestoreObject' :: RestoreObject -> Maybe RestoreRequest
$sel:requestPayer:RestoreObject' :: RestoreObject -> Maybe RequestPayer
$sel:expectedBucketOwner:RestoreObject' :: RestoreObject -> Maybe Text
$sel:checksumAlgorithm:RestoreObject' :: RestoreObject -> Maybe ChecksumAlgorithm
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS BucketName
bucket, ByteString
"/", forall a. ToByteString a => a -> ByteString
Data.toBS ObjectKey
key]
instance Data.ToQuery RestoreObject where
toQuery :: RestoreObject -> QueryString
toQuery RestoreObject' {Maybe Text
Maybe ObjectVersionId
Maybe ChecksumAlgorithm
Maybe RequestPayer
Maybe RestoreRequest
ObjectKey
BucketName
key :: ObjectKey
bucket :: BucketName
versionId :: Maybe ObjectVersionId
restoreRequest :: Maybe RestoreRequest
requestPayer :: Maybe RequestPayer
expectedBucketOwner :: Maybe Text
checksumAlgorithm :: Maybe ChecksumAlgorithm
$sel:key:RestoreObject' :: RestoreObject -> ObjectKey
$sel:bucket:RestoreObject' :: RestoreObject -> BucketName
$sel:versionId:RestoreObject' :: RestoreObject -> Maybe ObjectVersionId
$sel:restoreRequest:RestoreObject' :: RestoreObject -> Maybe RestoreRequest
$sel:requestPayer:RestoreObject' :: RestoreObject -> Maybe RequestPayer
$sel:expectedBucketOwner:RestoreObject' :: RestoreObject -> Maybe Text
$sel:checksumAlgorithm:RestoreObject' :: RestoreObject -> Maybe ChecksumAlgorithm
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"versionId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe ObjectVersionId
versionId, QueryString
"restore"]
data RestoreObjectResponse = RestoreObjectResponse'
{ RestoreObjectResponse -> Maybe RequestCharged
requestCharged :: Prelude.Maybe RequestCharged,
RestoreObjectResponse -> Maybe Text
restoreOutputPath :: Prelude.Maybe Prelude.Text,
RestoreObjectResponse -> Int
httpStatus :: Prelude.Int
}
deriving (RestoreObjectResponse -> RestoreObjectResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RestoreObjectResponse -> RestoreObjectResponse -> Bool
$c/= :: RestoreObjectResponse -> RestoreObjectResponse -> Bool
== :: RestoreObjectResponse -> RestoreObjectResponse -> Bool
$c== :: RestoreObjectResponse -> RestoreObjectResponse -> Bool
Prelude.Eq, ReadPrec [RestoreObjectResponse]
ReadPrec RestoreObjectResponse
Int -> ReadS RestoreObjectResponse
ReadS [RestoreObjectResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RestoreObjectResponse]
$creadListPrec :: ReadPrec [RestoreObjectResponse]
readPrec :: ReadPrec RestoreObjectResponse
$creadPrec :: ReadPrec RestoreObjectResponse
readList :: ReadS [RestoreObjectResponse]
$creadList :: ReadS [RestoreObjectResponse]
readsPrec :: Int -> ReadS RestoreObjectResponse
$creadsPrec :: Int -> ReadS RestoreObjectResponse
Prelude.Read, Int -> RestoreObjectResponse -> ShowS
[RestoreObjectResponse] -> ShowS
RestoreObjectResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RestoreObjectResponse] -> ShowS
$cshowList :: [RestoreObjectResponse] -> ShowS
show :: RestoreObjectResponse -> String
$cshow :: RestoreObjectResponse -> String
showsPrec :: Int -> RestoreObjectResponse -> ShowS
$cshowsPrec :: Int -> RestoreObjectResponse -> ShowS
Prelude.Show, forall x. Rep RestoreObjectResponse x -> RestoreObjectResponse
forall x. RestoreObjectResponse -> Rep RestoreObjectResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep RestoreObjectResponse x -> RestoreObjectResponse
$cfrom :: forall x. RestoreObjectResponse -> Rep RestoreObjectResponse x
Prelude.Generic)
newRestoreObjectResponse ::
Prelude.Int ->
RestoreObjectResponse
newRestoreObjectResponse :: Int -> RestoreObjectResponse
newRestoreObjectResponse Int
pHttpStatus_ =
RestoreObjectResponse'
{ $sel:requestCharged:RestoreObjectResponse' :: Maybe RequestCharged
requestCharged =
forall a. Maybe a
Prelude.Nothing,
$sel:restoreOutputPath:RestoreObjectResponse' :: Maybe Text
restoreOutputPath = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:RestoreObjectResponse' :: Int
httpStatus = Int
pHttpStatus_
}
restoreObjectResponse_requestCharged :: Lens.Lens' RestoreObjectResponse (Prelude.Maybe RequestCharged)
restoreObjectResponse_requestCharged :: Lens' RestoreObjectResponse (Maybe RequestCharged)
restoreObjectResponse_requestCharged = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RestoreObjectResponse' {Maybe RequestCharged
requestCharged :: Maybe RequestCharged
$sel:requestCharged:RestoreObjectResponse' :: RestoreObjectResponse -> Maybe RequestCharged
requestCharged} -> Maybe RequestCharged
requestCharged) (\s :: RestoreObjectResponse
s@RestoreObjectResponse' {} Maybe RequestCharged
a -> RestoreObjectResponse
s {$sel:requestCharged:RestoreObjectResponse' :: Maybe RequestCharged
requestCharged = Maybe RequestCharged
a} :: RestoreObjectResponse)
restoreObjectResponse_restoreOutputPath :: Lens.Lens' RestoreObjectResponse (Prelude.Maybe Prelude.Text)
restoreObjectResponse_restoreOutputPath :: Lens' RestoreObjectResponse (Maybe Text)
restoreObjectResponse_restoreOutputPath = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RestoreObjectResponse' {Maybe Text
restoreOutputPath :: Maybe Text
$sel:restoreOutputPath:RestoreObjectResponse' :: RestoreObjectResponse -> Maybe Text
restoreOutputPath} -> Maybe Text
restoreOutputPath) (\s :: RestoreObjectResponse
s@RestoreObjectResponse' {} Maybe Text
a -> RestoreObjectResponse
s {$sel:restoreOutputPath:RestoreObjectResponse' :: Maybe Text
restoreOutputPath = Maybe Text
a} :: RestoreObjectResponse)
restoreObjectResponse_httpStatus :: Lens.Lens' RestoreObjectResponse Prelude.Int
restoreObjectResponse_httpStatus :: Lens' RestoreObjectResponse Int
restoreObjectResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RestoreObjectResponse' {Int
httpStatus :: Int
$sel:httpStatus:RestoreObjectResponse' :: RestoreObjectResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: RestoreObjectResponse
s@RestoreObjectResponse' {} Int
a -> RestoreObjectResponse
s {$sel:httpStatus:RestoreObjectResponse' :: Int
httpStatus = Int
a} :: RestoreObjectResponse)
instance Prelude.NFData RestoreObjectResponse where
rnf :: RestoreObjectResponse -> ()
rnf RestoreObjectResponse' {Int
Maybe Text
Maybe RequestCharged
httpStatus :: Int
restoreOutputPath :: Maybe Text
requestCharged :: Maybe RequestCharged
$sel:httpStatus:RestoreObjectResponse' :: RestoreObjectResponse -> Int
$sel:restoreOutputPath:RestoreObjectResponse' :: RestoreObjectResponse -> Maybe Text
$sel:requestCharged:RestoreObjectResponse' :: RestoreObjectResponse -> Maybe RequestCharged
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe RequestCharged
requestCharged
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
restoreOutputPath
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus