{-# 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.StorageGateway.DescribeTapeRecoveryPoints
(
DescribeTapeRecoveryPoints (..),
newDescribeTapeRecoveryPoints,
describeTapeRecoveryPoints_limit,
describeTapeRecoveryPoints_marker,
describeTapeRecoveryPoints_gatewayARN,
DescribeTapeRecoveryPointsResponse (..),
newDescribeTapeRecoveryPointsResponse,
describeTapeRecoveryPointsResponse_gatewayARN,
describeTapeRecoveryPointsResponse_marker,
describeTapeRecoveryPointsResponse_tapeRecoveryPointInfos,
describeTapeRecoveryPointsResponse_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.StorageGateway.Types
data DescribeTapeRecoveryPoints = DescribeTapeRecoveryPoints'
{
DescribeTapeRecoveryPoints -> Maybe Natural
limit :: Prelude.Maybe Prelude.Natural,
DescribeTapeRecoveryPoints -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeTapeRecoveryPoints -> Text
gatewayARN :: Prelude.Text
}
deriving (DescribeTapeRecoveryPoints -> DescribeTapeRecoveryPoints -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeTapeRecoveryPoints -> DescribeTapeRecoveryPoints -> Bool
$c/= :: DescribeTapeRecoveryPoints -> DescribeTapeRecoveryPoints -> Bool
== :: DescribeTapeRecoveryPoints -> DescribeTapeRecoveryPoints -> Bool
$c== :: DescribeTapeRecoveryPoints -> DescribeTapeRecoveryPoints -> Bool
Prelude.Eq, ReadPrec [DescribeTapeRecoveryPoints]
ReadPrec DescribeTapeRecoveryPoints
Int -> ReadS DescribeTapeRecoveryPoints
ReadS [DescribeTapeRecoveryPoints]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeTapeRecoveryPoints]
$creadListPrec :: ReadPrec [DescribeTapeRecoveryPoints]
readPrec :: ReadPrec DescribeTapeRecoveryPoints
$creadPrec :: ReadPrec DescribeTapeRecoveryPoints
readList :: ReadS [DescribeTapeRecoveryPoints]
$creadList :: ReadS [DescribeTapeRecoveryPoints]
readsPrec :: Int -> ReadS DescribeTapeRecoveryPoints
$creadsPrec :: Int -> ReadS DescribeTapeRecoveryPoints
Prelude.Read, Int -> DescribeTapeRecoveryPoints -> ShowS
[DescribeTapeRecoveryPoints] -> ShowS
DescribeTapeRecoveryPoints -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeTapeRecoveryPoints] -> ShowS
$cshowList :: [DescribeTapeRecoveryPoints] -> ShowS
show :: DescribeTapeRecoveryPoints -> String
$cshow :: DescribeTapeRecoveryPoints -> String
showsPrec :: Int -> DescribeTapeRecoveryPoints -> ShowS
$cshowsPrec :: Int -> DescribeTapeRecoveryPoints -> ShowS
Prelude.Show, forall x.
Rep DescribeTapeRecoveryPoints x -> DescribeTapeRecoveryPoints
forall x.
DescribeTapeRecoveryPoints -> Rep DescribeTapeRecoveryPoints x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeTapeRecoveryPoints x -> DescribeTapeRecoveryPoints
$cfrom :: forall x.
DescribeTapeRecoveryPoints -> Rep DescribeTapeRecoveryPoints x
Prelude.Generic)
newDescribeTapeRecoveryPoints ::
Prelude.Text ->
DescribeTapeRecoveryPoints
newDescribeTapeRecoveryPoints :: Text -> DescribeTapeRecoveryPoints
newDescribeTapeRecoveryPoints Text
pGatewayARN_ =
DescribeTapeRecoveryPoints'
{ $sel:limit:DescribeTapeRecoveryPoints' :: Maybe Natural
limit =
forall a. Maybe a
Prelude.Nothing,
$sel:marker:DescribeTapeRecoveryPoints' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:gatewayARN:DescribeTapeRecoveryPoints' :: Text
gatewayARN = Text
pGatewayARN_
}
describeTapeRecoveryPoints_limit :: Lens.Lens' DescribeTapeRecoveryPoints (Prelude.Maybe Prelude.Natural)
describeTapeRecoveryPoints_limit :: Lens' DescribeTapeRecoveryPoints (Maybe Natural)
describeTapeRecoveryPoints_limit = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeTapeRecoveryPoints' {Maybe Natural
limit :: Maybe Natural
$sel:limit:DescribeTapeRecoveryPoints' :: DescribeTapeRecoveryPoints -> Maybe Natural
limit} -> Maybe Natural
limit) (\s :: DescribeTapeRecoveryPoints
s@DescribeTapeRecoveryPoints' {} Maybe Natural
a -> DescribeTapeRecoveryPoints
s {$sel:limit:DescribeTapeRecoveryPoints' :: Maybe Natural
limit = Maybe Natural
a} :: DescribeTapeRecoveryPoints)
describeTapeRecoveryPoints_marker :: Lens.Lens' DescribeTapeRecoveryPoints (Prelude.Maybe Prelude.Text)
describeTapeRecoveryPoints_marker :: Lens' DescribeTapeRecoveryPoints (Maybe Text)
describeTapeRecoveryPoints_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeTapeRecoveryPoints' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeTapeRecoveryPoints' :: DescribeTapeRecoveryPoints -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeTapeRecoveryPoints
s@DescribeTapeRecoveryPoints' {} Maybe Text
a -> DescribeTapeRecoveryPoints
s {$sel:marker:DescribeTapeRecoveryPoints' :: Maybe Text
marker = Maybe Text
a} :: DescribeTapeRecoveryPoints)
describeTapeRecoveryPoints_gatewayARN :: Lens.Lens' DescribeTapeRecoveryPoints Prelude.Text
describeTapeRecoveryPoints_gatewayARN :: Lens' DescribeTapeRecoveryPoints Text
describeTapeRecoveryPoints_gatewayARN = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeTapeRecoveryPoints' {Text
gatewayARN :: Text
$sel:gatewayARN:DescribeTapeRecoveryPoints' :: DescribeTapeRecoveryPoints -> Text
gatewayARN} -> Text
gatewayARN) (\s :: DescribeTapeRecoveryPoints
s@DescribeTapeRecoveryPoints' {} Text
a -> DescribeTapeRecoveryPoints
s {$sel:gatewayARN:DescribeTapeRecoveryPoints' :: Text
gatewayARN = Text
a} :: DescribeTapeRecoveryPoints)
instance Core.AWSPager DescribeTapeRecoveryPoints where
page :: DescribeTapeRecoveryPoints
-> AWSResponse DescribeTapeRecoveryPoints
-> Maybe DescribeTapeRecoveryPoints
page DescribeTapeRecoveryPoints
rq AWSResponse DescribeTapeRecoveryPoints
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeTapeRecoveryPoints
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeTapeRecoveryPointsResponse (Maybe Text)
describeTapeRecoveryPointsResponse_marker
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeTapeRecoveryPoints
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
DescribeTapeRecoveryPointsResponse (Maybe [TapeRecoveryPointInfo])
describeTapeRecoveryPointsResponse_tapeRecoveryPointInfos
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ DescribeTapeRecoveryPoints
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeTapeRecoveryPoints (Maybe Text)
describeTapeRecoveryPoints_marker
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeTapeRecoveryPoints
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeTapeRecoveryPointsResponse (Maybe Text)
describeTapeRecoveryPointsResponse_marker
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
instance Core.AWSRequest DescribeTapeRecoveryPoints where
type
AWSResponse DescribeTapeRecoveryPoints =
DescribeTapeRecoveryPointsResponse
request :: (Service -> Service)
-> DescribeTapeRecoveryPoints -> Request DescribeTapeRecoveryPoints
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 DescribeTapeRecoveryPoints
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeTapeRecoveryPoints)))
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 [TapeRecoveryPointInfo]
-> Int
-> DescribeTapeRecoveryPointsResponse
DescribeTapeRecoveryPointsResponse'
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
"GatewayARN")
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
"Marker")
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
"TapeRecoveryPointInfos"
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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable DescribeTapeRecoveryPoints where
hashWithSalt :: Int -> DescribeTapeRecoveryPoints -> Int
hashWithSalt Int
_salt DescribeTapeRecoveryPoints' {Maybe Natural
Maybe Text
Text
gatewayARN :: Text
marker :: Maybe Text
limit :: Maybe Natural
$sel:gatewayARN:DescribeTapeRecoveryPoints' :: DescribeTapeRecoveryPoints -> Text
$sel:marker:DescribeTapeRecoveryPoints' :: DescribeTapeRecoveryPoints -> Maybe Text
$sel:limit:DescribeTapeRecoveryPoints' :: DescribeTapeRecoveryPoints -> Maybe Natural
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
limit
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
marker
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
gatewayARN
instance Prelude.NFData DescribeTapeRecoveryPoints where
rnf :: DescribeTapeRecoveryPoints -> ()
rnf DescribeTapeRecoveryPoints' {Maybe Natural
Maybe Text
Text
gatewayARN :: Text
marker :: Maybe Text
limit :: Maybe Natural
$sel:gatewayARN:DescribeTapeRecoveryPoints' :: DescribeTapeRecoveryPoints -> Text
$sel:marker:DescribeTapeRecoveryPoints' :: DescribeTapeRecoveryPoints -> Maybe Text
$sel:limit:DescribeTapeRecoveryPoints' :: DescribeTapeRecoveryPoints -> Maybe Natural
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
limit
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
marker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
gatewayARN
instance Data.ToHeaders DescribeTapeRecoveryPoints where
toHeaders :: DescribeTapeRecoveryPoints -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"StorageGateway_20130630.DescribeTapeRecoveryPoints" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToJSON DescribeTapeRecoveryPoints where
toJSON :: DescribeTapeRecoveryPoints -> Value
toJSON DescribeTapeRecoveryPoints' {Maybe Natural
Maybe Text
Text
gatewayARN :: Text
marker :: Maybe Text
limit :: Maybe Natural
$sel:gatewayARN:DescribeTapeRecoveryPoints' :: DescribeTapeRecoveryPoints -> Text
$sel:marker:DescribeTapeRecoveryPoints' :: DescribeTapeRecoveryPoints -> Maybe Text
$sel:limit:DescribeTapeRecoveryPoints' :: DescribeTapeRecoveryPoints -> Maybe Natural
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"Limit" 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 Natural
limit,
(Key
"Marker" 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
marker,
forall a. a -> Maybe a
Prelude.Just (Key
"GatewayARN" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
gatewayARN)
]
)
instance Data.ToPath DescribeTapeRecoveryPoints where
toPath :: DescribeTapeRecoveryPoints -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeTapeRecoveryPoints where
toQuery :: DescribeTapeRecoveryPoints -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeTapeRecoveryPointsResponse = DescribeTapeRecoveryPointsResponse'
{ DescribeTapeRecoveryPointsResponse -> Maybe Text
gatewayARN :: Prelude.Maybe Prelude.Text,
DescribeTapeRecoveryPointsResponse -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeTapeRecoveryPointsResponse -> Maybe [TapeRecoveryPointInfo]
tapeRecoveryPointInfos :: Prelude.Maybe [TapeRecoveryPointInfo],
DescribeTapeRecoveryPointsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeTapeRecoveryPointsResponse
-> DescribeTapeRecoveryPointsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeTapeRecoveryPointsResponse
-> DescribeTapeRecoveryPointsResponse -> Bool
$c/= :: DescribeTapeRecoveryPointsResponse
-> DescribeTapeRecoveryPointsResponse -> Bool
== :: DescribeTapeRecoveryPointsResponse
-> DescribeTapeRecoveryPointsResponse -> Bool
$c== :: DescribeTapeRecoveryPointsResponse
-> DescribeTapeRecoveryPointsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeTapeRecoveryPointsResponse]
ReadPrec DescribeTapeRecoveryPointsResponse
Int -> ReadS DescribeTapeRecoveryPointsResponse
ReadS [DescribeTapeRecoveryPointsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeTapeRecoveryPointsResponse]
$creadListPrec :: ReadPrec [DescribeTapeRecoveryPointsResponse]
readPrec :: ReadPrec DescribeTapeRecoveryPointsResponse
$creadPrec :: ReadPrec DescribeTapeRecoveryPointsResponse
readList :: ReadS [DescribeTapeRecoveryPointsResponse]
$creadList :: ReadS [DescribeTapeRecoveryPointsResponse]
readsPrec :: Int -> ReadS DescribeTapeRecoveryPointsResponse
$creadsPrec :: Int -> ReadS DescribeTapeRecoveryPointsResponse
Prelude.Read, Int -> DescribeTapeRecoveryPointsResponse -> ShowS
[DescribeTapeRecoveryPointsResponse] -> ShowS
DescribeTapeRecoveryPointsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeTapeRecoveryPointsResponse] -> ShowS
$cshowList :: [DescribeTapeRecoveryPointsResponse] -> ShowS
show :: DescribeTapeRecoveryPointsResponse -> String
$cshow :: DescribeTapeRecoveryPointsResponse -> String
showsPrec :: Int -> DescribeTapeRecoveryPointsResponse -> ShowS
$cshowsPrec :: Int -> DescribeTapeRecoveryPointsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeTapeRecoveryPointsResponse x
-> DescribeTapeRecoveryPointsResponse
forall x.
DescribeTapeRecoveryPointsResponse
-> Rep DescribeTapeRecoveryPointsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeTapeRecoveryPointsResponse x
-> DescribeTapeRecoveryPointsResponse
$cfrom :: forall x.
DescribeTapeRecoveryPointsResponse
-> Rep DescribeTapeRecoveryPointsResponse x
Prelude.Generic)
newDescribeTapeRecoveryPointsResponse ::
Prelude.Int ->
DescribeTapeRecoveryPointsResponse
newDescribeTapeRecoveryPointsResponse :: Int -> DescribeTapeRecoveryPointsResponse
newDescribeTapeRecoveryPointsResponse Int
pHttpStatus_ =
DescribeTapeRecoveryPointsResponse'
{ $sel:gatewayARN:DescribeTapeRecoveryPointsResponse' :: Maybe Text
gatewayARN =
forall a. Maybe a
Prelude.Nothing,
$sel:marker:DescribeTapeRecoveryPointsResponse' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:tapeRecoveryPointInfos:DescribeTapeRecoveryPointsResponse' :: Maybe [TapeRecoveryPointInfo]
tapeRecoveryPointInfos =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeTapeRecoveryPointsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeTapeRecoveryPointsResponse_gatewayARN :: Lens.Lens' DescribeTapeRecoveryPointsResponse (Prelude.Maybe Prelude.Text)
describeTapeRecoveryPointsResponse_gatewayARN :: Lens' DescribeTapeRecoveryPointsResponse (Maybe Text)
describeTapeRecoveryPointsResponse_gatewayARN = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeTapeRecoveryPointsResponse' {Maybe Text
gatewayARN :: Maybe Text
$sel:gatewayARN:DescribeTapeRecoveryPointsResponse' :: DescribeTapeRecoveryPointsResponse -> Maybe Text
gatewayARN} -> Maybe Text
gatewayARN) (\s :: DescribeTapeRecoveryPointsResponse
s@DescribeTapeRecoveryPointsResponse' {} Maybe Text
a -> DescribeTapeRecoveryPointsResponse
s {$sel:gatewayARN:DescribeTapeRecoveryPointsResponse' :: Maybe Text
gatewayARN = Maybe Text
a} :: DescribeTapeRecoveryPointsResponse)
describeTapeRecoveryPointsResponse_marker :: Lens.Lens' DescribeTapeRecoveryPointsResponse (Prelude.Maybe Prelude.Text)
describeTapeRecoveryPointsResponse_marker :: Lens' DescribeTapeRecoveryPointsResponse (Maybe Text)
describeTapeRecoveryPointsResponse_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeTapeRecoveryPointsResponse' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeTapeRecoveryPointsResponse' :: DescribeTapeRecoveryPointsResponse -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeTapeRecoveryPointsResponse
s@DescribeTapeRecoveryPointsResponse' {} Maybe Text
a -> DescribeTapeRecoveryPointsResponse
s {$sel:marker:DescribeTapeRecoveryPointsResponse' :: Maybe Text
marker = Maybe Text
a} :: DescribeTapeRecoveryPointsResponse)
describeTapeRecoveryPointsResponse_tapeRecoveryPointInfos :: Lens.Lens' DescribeTapeRecoveryPointsResponse (Prelude.Maybe [TapeRecoveryPointInfo])
describeTapeRecoveryPointsResponse_tapeRecoveryPointInfos :: Lens'
DescribeTapeRecoveryPointsResponse (Maybe [TapeRecoveryPointInfo])
describeTapeRecoveryPointsResponse_tapeRecoveryPointInfos = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeTapeRecoveryPointsResponse' {Maybe [TapeRecoveryPointInfo]
tapeRecoveryPointInfos :: Maybe [TapeRecoveryPointInfo]
$sel:tapeRecoveryPointInfos:DescribeTapeRecoveryPointsResponse' :: DescribeTapeRecoveryPointsResponse -> Maybe [TapeRecoveryPointInfo]
tapeRecoveryPointInfos} -> Maybe [TapeRecoveryPointInfo]
tapeRecoveryPointInfos) (\s :: DescribeTapeRecoveryPointsResponse
s@DescribeTapeRecoveryPointsResponse' {} Maybe [TapeRecoveryPointInfo]
a -> DescribeTapeRecoveryPointsResponse
s {$sel:tapeRecoveryPointInfos:DescribeTapeRecoveryPointsResponse' :: Maybe [TapeRecoveryPointInfo]
tapeRecoveryPointInfos = Maybe [TapeRecoveryPointInfo]
a} :: DescribeTapeRecoveryPointsResponse) 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
describeTapeRecoveryPointsResponse_httpStatus :: Lens.Lens' DescribeTapeRecoveryPointsResponse Prelude.Int
describeTapeRecoveryPointsResponse_httpStatus :: Lens' DescribeTapeRecoveryPointsResponse Int
describeTapeRecoveryPointsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeTapeRecoveryPointsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeTapeRecoveryPointsResponse' :: DescribeTapeRecoveryPointsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeTapeRecoveryPointsResponse
s@DescribeTapeRecoveryPointsResponse' {} Int
a -> DescribeTapeRecoveryPointsResponse
s {$sel:httpStatus:DescribeTapeRecoveryPointsResponse' :: Int
httpStatus = Int
a} :: DescribeTapeRecoveryPointsResponse)
instance
Prelude.NFData
DescribeTapeRecoveryPointsResponse
where
rnf :: DescribeTapeRecoveryPointsResponse -> ()
rnf DescribeTapeRecoveryPointsResponse' {Int
Maybe [TapeRecoveryPointInfo]
Maybe Text
httpStatus :: Int
tapeRecoveryPointInfos :: Maybe [TapeRecoveryPointInfo]
marker :: Maybe Text
gatewayARN :: Maybe Text
$sel:httpStatus:DescribeTapeRecoveryPointsResponse' :: DescribeTapeRecoveryPointsResponse -> Int
$sel:tapeRecoveryPointInfos:DescribeTapeRecoveryPointsResponse' :: DescribeTapeRecoveryPointsResponse -> Maybe [TapeRecoveryPointInfo]
$sel:marker:DescribeTapeRecoveryPointsResponse' :: DescribeTapeRecoveryPointsResponse -> Maybe Text
$sel:gatewayARN:DescribeTapeRecoveryPointsResponse' :: DescribeTapeRecoveryPointsResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
gatewayARN
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
marker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [TapeRecoveryPointInfo]
tapeRecoveryPointInfos
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus