{-# 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.RDS.DescribeExportTasks
(
DescribeExportTasks (..),
newDescribeExportTasks,
describeExportTasks_exportTaskIdentifier,
describeExportTasks_filters,
describeExportTasks_marker,
describeExportTasks_maxRecords,
describeExportTasks_sourceArn,
describeExportTasks_sourceType,
DescribeExportTasksResponse (..),
newDescribeExportTasksResponse,
describeExportTasksResponse_exportTasks,
describeExportTasksResponse_marker,
describeExportTasksResponse_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 Amazonka.RDS.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeExportTasks = DescribeExportTasks'
{
DescribeExportTasks -> Maybe Text
exportTaskIdentifier :: Prelude.Maybe Prelude.Text,
DescribeExportTasks -> Maybe [Filter]
filters :: Prelude.Maybe [Filter],
DescribeExportTasks -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeExportTasks -> Maybe Natural
maxRecords :: Prelude.Maybe Prelude.Natural,
DescribeExportTasks -> Maybe Text
sourceArn :: Prelude.Maybe Prelude.Text,
DescribeExportTasks -> Maybe ExportSourceType
sourceType :: Prelude.Maybe ExportSourceType
}
deriving (DescribeExportTasks -> DescribeExportTasks -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeExportTasks -> DescribeExportTasks -> Bool
$c/= :: DescribeExportTasks -> DescribeExportTasks -> Bool
== :: DescribeExportTasks -> DescribeExportTasks -> Bool
$c== :: DescribeExportTasks -> DescribeExportTasks -> Bool
Prelude.Eq, ReadPrec [DescribeExportTasks]
ReadPrec DescribeExportTasks
Int -> ReadS DescribeExportTasks
ReadS [DescribeExportTasks]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeExportTasks]
$creadListPrec :: ReadPrec [DescribeExportTasks]
readPrec :: ReadPrec DescribeExportTasks
$creadPrec :: ReadPrec DescribeExportTasks
readList :: ReadS [DescribeExportTasks]
$creadList :: ReadS [DescribeExportTasks]
readsPrec :: Int -> ReadS DescribeExportTasks
$creadsPrec :: Int -> ReadS DescribeExportTasks
Prelude.Read, Int -> DescribeExportTasks -> ShowS
[DescribeExportTasks] -> ShowS
DescribeExportTasks -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeExportTasks] -> ShowS
$cshowList :: [DescribeExportTasks] -> ShowS
show :: DescribeExportTasks -> String
$cshow :: DescribeExportTasks -> String
showsPrec :: Int -> DescribeExportTasks -> ShowS
$cshowsPrec :: Int -> DescribeExportTasks -> ShowS
Prelude.Show, forall x. Rep DescribeExportTasks x -> DescribeExportTasks
forall x. DescribeExportTasks -> Rep DescribeExportTasks x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeExportTasks x -> DescribeExportTasks
$cfrom :: forall x. DescribeExportTasks -> Rep DescribeExportTasks x
Prelude.Generic)
newDescribeExportTasks ::
DescribeExportTasks
newDescribeExportTasks :: DescribeExportTasks
newDescribeExportTasks =
DescribeExportTasks'
{ $sel:exportTaskIdentifier:DescribeExportTasks' :: Maybe Text
exportTaskIdentifier =
forall a. Maybe a
Prelude.Nothing,
$sel:filters:DescribeExportTasks' :: Maybe [Filter]
filters = forall a. Maybe a
Prelude.Nothing,
$sel:marker:DescribeExportTasks' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:maxRecords:DescribeExportTasks' :: Maybe Natural
maxRecords = forall a. Maybe a
Prelude.Nothing,
$sel:sourceArn:DescribeExportTasks' :: Maybe Text
sourceArn = forall a. Maybe a
Prelude.Nothing,
$sel:sourceType:DescribeExportTasks' :: Maybe ExportSourceType
sourceType = forall a. Maybe a
Prelude.Nothing
}
describeExportTasks_exportTaskIdentifier :: Lens.Lens' DescribeExportTasks (Prelude.Maybe Prelude.Text)
describeExportTasks_exportTaskIdentifier :: Lens' DescribeExportTasks (Maybe Text)
describeExportTasks_exportTaskIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeExportTasks' {Maybe Text
exportTaskIdentifier :: Maybe Text
$sel:exportTaskIdentifier:DescribeExportTasks' :: DescribeExportTasks -> Maybe Text
exportTaskIdentifier} -> Maybe Text
exportTaskIdentifier) (\s :: DescribeExportTasks
s@DescribeExportTasks' {} Maybe Text
a -> DescribeExportTasks
s {$sel:exportTaskIdentifier:DescribeExportTasks' :: Maybe Text
exportTaskIdentifier = Maybe Text
a} :: DescribeExportTasks)
describeExportTasks_filters :: Lens.Lens' DescribeExportTasks (Prelude.Maybe [Filter])
describeExportTasks_filters :: Lens' DescribeExportTasks (Maybe [Filter])
describeExportTasks_filters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeExportTasks' {Maybe [Filter]
filters :: Maybe [Filter]
$sel:filters:DescribeExportTasks' :: DescribeExportTasks -> Maybe [Filter]
filters} -> Maybe [Filter]
filters) (\s :: DescribeExportTasks
s@DescribeExportTasks' {} Maybe [Filter]
a -> DescribeExportTasks
s {$sel:filters:DescribeExportTasks' :: Maybe [Filter]
filters = Maybe [Filter]
a} :: DescribeExportTasks) 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
describeExportTasks_marker :: Lens.Lens' DescribeExportTasks (Prelude.Maybe Prelude.Text)
describeExportTasks_marker :: Lens' DescribeExportTasks (Maybe Text)
describeExportTasks_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeExportTasks' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeExportTasks' :: DescribeExportTasks -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeExportTasks
s@DescribeExportTasks' {} Maybe Text
a -> DescribeExportTasks
s {$sel:marker:DescribeExportTasks' :: Maybe Text
marker = Maybe Text
a} :: DescribeExportTasks)
describeExportTasks_maxRecords :: Lens.Lens' DescribeExportTasks (Prelude.Maybe Prelude.Natural)
describeExportTasks_maxRecords :: Lens' DescribeExportTasks (Maybe Natural)
describeExportTasks_maxRecords = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeExportTasks' {Maybe Natural
maxRecords :: Maybe Natural
$sel:maxRecords:DescribeExportTasks' :: DescribeExportTasks -> Maybe Natural
maxRecords} -> Maybe Natural
maxRecords) (\s :: DescribeExportTasks
s@DescribeExportTasks' {} Maybe Natural
a -> DescribeExportTasks
s {$sel:maxRecords:DescribeExportTasks' :: Maybe Natural
maxRecords = Maybe Natural
a} :: DescribeExportTasks)
describeExportTasks_sourceArn :: Lens.Lens' DescribeExportTasks (Prelude.Maybe Prelude.Text)
describeExportTasks_sourceArn :: Lens' DescribeExportTasks (Maybe Text)
describeExportTasks_sourceArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeExportTasks' {Maybe Text
sourceArn :: Maybe Text
$sel:sourceArn:DescribeExportTasks' :: DescribeExportTasks -> Maybe Text
sourceArn} -> Maybe Text
sourceArn) (\s :: DescribeExportTasks
s@DescribeExportTasks' {} Maybe Text
a -> DescribeExportTasks
s {$sel:sourceArn:DescribeExportTasks' :: Maybe Text
sourceArn = Maybe Text
a} :: DescribeExportTasks)
describeExportTasks_sourceType :: Lens.Lens' DescribeExportTasks (Prelude.Maybe ExportSourceType)
describeExportTasks_sourceType :: Lens' DescribeExportTasks (Maybe ExportSourceType)
describeExportTasks_sourceType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeExportTasks' {Maybe ExportSourceType
sourceType :: Maybe ExportSourceType
$sel:sourceType:DescribeExportTasks' :: DescribeExportTasks -> Maybe ExportSourceType
sourceType} -> Maybe ExportSourceType
sourceType) (\s :: DescribeExportTasks
s@DescribeExportTasks' {} Maybe ExportSourceType
a -> DescribeExportTasks
s {$sel:sourceType:DescribeExportTasks' :: Maybe ExportSourceType
sourceType = Maybe ExportSourceType
a} :: DescribeExportTasks)
instance Core.AWSPager DescribeExportTasks where
page :: DescribeExportTasks
-> AWSResponse DescribeExportTasks -> Maybe DescribeExportTasks
page DescribeExportTasks
rq AWSResponse DescribeExportTasks
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeExportTasks
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeExportTasksResponse (Maybe Text)
describeExportTasksResponse_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 DescribeExportTasks
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeExportTasksResponse (Maybe [ExportTask])
describeExportTasksResponse_exportTasks
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.$ DescribeExportTasks
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeExportTasks (Maybe Text)
describeExportTasks_marker
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeExportTasks
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeExportTasksResponse (Maybe Text)
describeExportTasksResponse_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 DescribeExportTasks where
type
AWSResponse DescribeExportTasks =
DescribeExportTasksResponse
request :: (Service -> Service)
-> DescribeExportTasks -> Request DescribeExportTasks
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeExportTasks
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeExportTasks)))
response =
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"DescribeExportTasksResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe [ExportTask]
-> Maybe Text -> Int -> DescribeExportTasksResponse
DescribeExportTasksResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ( [Node]
x
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"ExportTasks"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= forall (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"ExportTask")
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Marker")
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 DescribeExportTasks where
hashWithSalt :: Int -> DescribeExportTasks -> Int
hashWithSalt Int
_salt DescribeExportTasks' {Maybe Natural
Maybe [Filter]
Maybe Text
Maybe ExportSourceType
sourceType :: Maybe ExportSourceType
sourceArn :: Maybe Text
maxRecords :: Maybe Natural
marker :: Maybe Text
filters :: Maybe [Filter]
exportTaskIdentifier :: Maybe Text
$sel:sourceType:DescribeExportTasks' :: DescribeExportTasks -> Maybe ExportSourceType
$sel:sourceArn:DescribeExportTasks' :: DescribeExportTasks -> Maybe Text
$sel:maxRecords:DescribeExportTasks' :: DescribeExportTasks -> Maybe Natural
$sel:marker:DescribeExportTasks' :: DescribeExportTasks -> Maybe Text
$sel:filters:DescribeExportTasks' :: DescribeExportTasks -> Maybe [Filter]
$sel:exportTaskIdentifier:DescribeExportTasks' :: DescribeExportTasks -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
exportTaskIdentifier
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Filter]
filters
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
marker
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxRecords
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
sourceArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ExportSourceType
sourceType
instance Prelude.NFData DescribeExportTasks where
rnf :: DescribeExportTasks -> ()
rnf DescribeExportTasks' {Maybe Natural
Maybe [Filter]
Maybe Text
Maybe ExportSourceType
sourceType :: Maybe ExportSourceType
sourceArn :: Maybe Text
maxRecords :: Maybe Natural
marker :: Maybe Text
filters :: Maybe [Filter]
exportTaskIdentifier :: Maybe Text
$sel:sourceType:DescribeExportTasks' :: DescribeExportTasks -> Maybe ExportSourceType
$sel:sourceArn:DescribeExportTasks' :: DescribeExportTasks -> Maybe Text
$sel:maxRecords:DescribeExportTasks' :: DescribeExportTasks -> Maybe Natural
$sel:marker:DescribeExportTasks' :: DescribeExportTasks -> Maybe Text
$sel:filters:DescribeExportTasks' :: DescribeExportTasks -> Maybe [Filter]
$sel:exportTaskIdentifier:DescribeExportTasks' :: DescribeExportTasks -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
exportTaskIdentifier
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Filter]
filters
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 Natural
maxRecords
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sourceArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ExportSourceType
sourceType
instance Data.ToHeaders DescribeExportTasks where
toHeaders :: DescribeExportTasks -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DescribeExportTasks where
toPath :: DescribeExportTasks -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeExportTasks where
toQuery :: DescribeExportTasks -> QueryString
toQuery DescribeExportTasks' {Maybe Natural
Maybe [Filter]
Maybe Text
Maybe ExportSourceType
sourceType :: Maybe ExportSourceType
sourceArn :: Maybe Text
maxRecords :: Maybe Natural
marker :: Maybe Text
filters :: Maybe [Filter]
exportTaskIdentifier :: Maybe Text
$sel:sourceType:DescribeExportTasks' :: DescribeExportTasks -> Maybe ExportSourceType
$sel:sourceArn:DescribeExportTasks' :: DescribeExportTasks -> Maybe Text
$sel:maxRecords:DescribeExportTasks' :: DescribeExportTasks -> Maybe Natural
$sel:marker:DescribeExportTasks' :: DescribeExportTasks -> Maybe Text
$sel:filters:DescribeExportTasks' :: DescribeExportTasks -> Maybe [Filter]
$sel:exportTaskIdentifier:DescribeExportTasks' :: DescribeExportTasks -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"DescribeExportTasks" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2014-10-31" :: Prelude.ByteString),
ByteString
"ExportTaskIdentifier" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
exportTaskIdentifier,
ByteString
"Filters"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
(forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"Filter" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Filter]
filters),
ByteString
"Marker" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
marker,
ByteString
"MaxRecords" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxRecords,
ByteString
"SourceArn" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
sourceArn,
ByteString
"SourceType" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe ExportSourceType
sourceType
]
data DescribeExportTasksResponse = DescribeExportTasksResponse'
{
DescribeExportTasksResponse -> Maybe [ExportTask]
exportTasks :: Prelude.Maybe [ExportTask],
DescribeExportTasksResponse -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribeExportTasksResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeExportTasksResponse -> DescribeExportTasksResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeExportTasksResponse -> DescribeExportTasksResponse -> Bool
$c/= :: DescribeExportTasksResponse -> DescribeExportTasksResponse -> Bool
== :: DescribeExportTasksResponse -> DescribeExportTasksResponse -> Bool
$c== :: DescribeExportTasksResponse -> DescribeExportTasksResponse -> Bool
Prelude.Eq, ReadPrec [DescribeExportTasksResponse]
ReadPrec DescribeExportTasksResponse
Int -> ReadS DescribeExportTasksResponse
ReadS [DescribeExportTasksResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeExportTasksResponse]
$creadListPrec :: ReadPrec [DescribeExportTasksResponse]
readPrec :: ReadPrec DescribeExportTasksResponse
$creadPrec :: ReadPrec DescribeExportTasksResponse
readList :: ReadS [DescribeExportTasksResponse]
$creadList :: ReadS [DescribeExportTasksResponse]
readsPrec :: Int -> ReadS DescribeExportTasksResponse
$creadsPrec :: Int -> ReadS DescribeExportTasksResponse
Prelude.Read, Int -> DescribeExportTasksResponse -> ShowS
[DescribeExportTasksResponse] -> ShowS
DescribeExportTasksResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeExportTasksResponse] -> ShowS
$cshowList :: [DescribeExportTasksResponse] -> ShowS
show :: DescribeExportTasksResponse -> String
$cshow :: DescribeExportTasksResponse -> String
showsPrec :: Int -> DescribeExportTasksResponse -> ShowS
$cshowsPrec :: Int -> DescribeExportTasksResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeExportTasksResponse x -> DescribeExportTasksResponse
forall x.
DescribeExportTasksResponse -> Rep DescribeExportTasksResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeExportTasksResponse x -> DescribeExportTasksResponse
$cfrom :: forall x.
DescribeExportTasksResponse -> Rep DescribeExportTasksResponse x
Prelude.Generic)
newDescribeExportTasksResponse ::
Prelude.Int ->
DescribeExportTasksResponse
newDescribeExportTasksResponse :: Int -> DescribeExportTasksResponse
newDescribeExportTasksResponse Int
pHttpStatus_ =
DescribeExportTasksResponse'
{ $sel:exportTasks:DescribeExportTasksResponse' :: Maybe [ExportTask]
exportTasks =
forall a. Maybe a
Prelude.Nothing,
$sel:marker:DescribeExportTasksResponse' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeExportTasksResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeExportTasksResponse_exportTasks :: Lens.Lens' DescribeExportTasksResponse (Prelude.Maybe [ExportTask])
describeExportTasksResponse_exportTasks :: Lens' DescribeExportTasksResponse (Maybe [ExportTask])
describeExportTasksResponse_exportTasks = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeExportTasksResponse' {Maybe [ExportTask]
exportTasks :: Maybe [ExportTask]
$sel:exportTasks:DescribeExportTasksResponse' :: DescribeExportTasksResponse -> Maybe [ExportTask]
exportTasks} -> Maybe [ExportTask]
exportTasks) (\s :: DescribeExportTasksResponse
s@DescribeExportTasksResponse' {} Maybe [ExportTask]
a -> DescribeExportTasksResponse
s {$sel:exportTasks:DescribeExportTasksResponse' :: Maybe [ExportTask]
exportTasks = Maybe [ExportTask]
a} :: DescribeExportTasksResponse) 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
describeExportTasksResponse_marker :: Lens.Lens' DescribeExportTasksResponse (Prelude.Maybe Prelude.Text)
describeExportTasksResponse_marker :: Lens' DescribeExportTasksResponse (Maybe Text)
describeExportTasksResponse_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeExportTasksResponse' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribeExportTasksResponse' :: DescribeExportTasksResponse -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribeExportTasksResponse
s@DescribeExportTasksResponse' {} Maybe Text
a -> DescribeExportTasksResponse
s {$sel:marker:DescribeExportTasksResponse' :: Maybe Text
marker = Maybe Text
a} :: DescribeExportTasksResponse)
describeExportTasksResponse_httpStatus :: Lens.Lens' DescribeExportTasksResponse Prelude.Int
describeExportTasksResponse_httpStatus :: Lens' DescribeExportTasksResponse Int
describeExportTasksResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeExportTasksResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeExportTasksResponse' :: DescribeExportTasksResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeExportTasksResponse
s@DescribeExportTasksResponse' {} Int
a -> DescribeExportTasksResponse
s {$sel:httpStatus:DescribeExportTasksResponse' :: Int
httpStatus = Int
a} :: DescribeExportTasksResponse)
instance Prelude.NFData DescribeExportTasksResponse where
rnf :: DescribeExportTasksResponse -> ()
rnf DescribeExportTasksResponse' {Int
Maybe [ExportTask]
Maybe Text
httpStatus :: Int
marker :: Maybe Text
exportTasks :: Maybe [ExportTask]
$sel:httpStatus:DescribeExportTasksResponse' :: DescribeExportTasksResponse -> Int
$sel:marker:DescribeExportTasksResponse' :: DescribeExportTasksResponse -> Maybe Text
$sel:exportTasks:DescribeExportTasksResponse' :: DescribeExportTasksResponse -> Maybe [ExportTask]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [ExportTask]
exportTasks
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 Int
httpStatus