{-# 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.DocumentDB.DescribePendingMaintenanceActions
(
DescribePendingMaintenanceActions (..),
newDescribePendingMaintenanceActions,
describePendingMaintenanceActions_filters,
describePendingMaintenanceActions_marker,
describePendingMaintenanceActions_maxRecords,
describePendingMaintenanceActions_resourceIdentifier,
DescribePendingMaintenanceActionsResponse (..),
newDescribePendingMaintenanceActionsResponse,
describePendingMaintenanceActionsResponse_marker,
describePendingMaintenanceActionsResponse_pendingMaintenanceActions,
describePendingMaintenanceActionsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.DocumentDB.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribePendingMaintenanceActions = DescribePendingMaintenanceActions'
{
DescribePendingMaintenanceActions -> Maybe [Filter]
filters :: Prelude.Maybe [Filter],
DescribePendingMaintenanceActions -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribePendingMaintenanceActions -> Maybe Int
maxRecords :: Prelude.Maybe Prelude.Int,
DescribePendingMaintenanceActions -> Maybe Text
resourceIdentifier :: Prelude.Maybe Prelude.Text
}
deriving (DescribePendingMaintenanceActions
-> DescribePendingMaintenanceActions -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribePendingMaintenanceActions
-> DescribePendingMaintenanceActions -> Bool
$c/= :: DescribePendingMaintenanceActions
-> DescribePendingMaintenanceActions -> Bool
== :: DescribePendingMaintenanceActions
-> DescribePendingMaintenanceActions -> Bool
$c== :: DescribePendingMaintenanceActions
-> DescribePendingMaintenanceActions -> Bool
Prelude.Eq, ReadPrec [DescribePendingMaintenanceActions]
ReadPrec DescribePendingMaintenanceActions
Int -> ReadS DescribePendingMaintenanceActions
ReadS [DescribePendingMaintenanceActions]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribePendingMaintenanceActions]
$creadListPrec :: ReadPrec [DescribePendingMaintenanceActions]
readPrec :: ReadPrec DescribePendingMaintenanceActions
$creadPrec :: ReadPrec DescribePendingMaintenanceActions
readList :: ReadS [DescribePendingMaintenanceActions]
$creadList :: ReadS [DescribePendingMaintenanceActions]
readsPrec :: Int -> ReadS DescribePendingMaintenanceActions
$creadsPrec :: Int -> ReadS DescribePendingMaintenanceActions
Prelude.Read, Int -> DescribePendingMaintenanceActions -> ShowS
[DescribePendingMaintenanceActions] -> ShowS
DescribePendingMaintenanceActions -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribePendingMaintenanceActions] -> ShowS
$cshowList :: [DescribePendingMaintenanceActions] -> ShowS
show :: DescribePendingMaintenanceActions -> String
$cshow :: DescribePendingMaintenanceActions -> String
showsPrec :: Int -> DescribePendingMaintenanceActions -> ShowS
$cshowsPrec :: Int -> DescribePendingMaintenanceActions -> ShowS
Prelude.Show, forall x.
Rep DescribePendingMaintenanceActions x
-> DescribePendingMaintenanceActions
forall x.
DescribePendingMaintenanceActions
-> Rep DescribePendingMaintenanceActions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribePendingMaintenanceActions x
-> DescribePendingMaintenanceActions
$cfrom :: forall x.
DescribePendingMaintenanceActions
-> Rep DescribePendingMaintenanceActions x
Prelude.Generic)
newDescribePendingMaintenanceActions ::
DescribePendingMaintenanceActions
newDescribePendingMaintenanceActions :: DescribePendingMaintenanceActions
newDescribePendingMaintenanceActions =
DescribePendingMaintenanceActions'
{ $sel:filters:DescribePendingMaintenanceActions' :: Maybe [Filter]
filters =
forall a. Maybe a
Prelude.Nothing,
$sel:marker:DescribePendingMaintenanceActions' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:maxRecords:DescribePendingMaintenanceActions' :: Maybe Int
maxRecords = forall a. Maybe a
Prelude.Nothing,
$sel:resourceIdentifier:DescribePendingMaintenanceActions' :: Maybe Text
resourceIdentifier = forall a. Maybe a
Prelude.Nothing
}
describePendingMaintenanceActions_filters :: Lens.Lens' DescribePendingMaintenanceActions (Prelude.Maybe [Filter])
describePendingMaintenanceActions_filters :: Lens' DescribePendingMaintenanceActions (Maybe [Filter])
describePendingMaintenanceActions_filters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribePendingMaintenanceActions' {Maybe [Filter]
filters :: Maybe [Filter]
$sel:filters:DescribePendingMaintenanceActions' :: DescribePendingMaintenanceActions -> Maybe [Filter]
filters} -> Maybe [Filter]
filters) (\s :: DescribePendingMaintenanceActions
s@DescribePendingMaintenanceActions' {} Maybe [Filter]
a -> DescribePendingMaintenanceActions
s {$sel:filters:DescribePendingMaintenanceActions' :: Maybe [Filter]
filters = Maybe [Filter]
a} :: DescribePendingMaintenanceActions) 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
describePendingMaintenanceActions_marker :: Lens.Lens' DescribePendingMaintenanceActions (Prelude.Maybe Prelude.Text)
describePendingMaintenanceActions_marker :: Lens' DescribePendingMaintenanceActions (Maybe Text)
describePendingMaintenanceActions_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribePendingMaintenanceActions' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribePendingMaintenanceActions' :: DescribePendingMaintenanceActions -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribePendingMaintenanceActions
s@DescribePendingMaintenanceActions' {} Maybe Text
a -> DescribePendingMaintenanceActions
s {$sel:marker:DescribePendingMaintenanceActions' :: Maybe Text
marker = Maybe Text
a} :: DescribePendingMaintenanceActions)
describePendingMaintenanceActions_maxRecords :: Lens.Lens' DescribePendingMaintenanceActions (Prelude.Maybe Prelude.Int)
describePendingMaintenanceActions_maxRecords :: Lens' DescribePendingMaintenanceActions (Maybe Int)
describePendingMaintenanceActions_maxRecords = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribePendingMaintenanceActions' {Maybe Int
maxRecords :: Maybe Int
$sel:maxRecords:DescribePendingMaintenanceActions' :: DescribePendingMaintenanceActions -> Maybe Int
maxRecords} -> Maybe Int
maxRecords) (\s :: DescribePendingMaintenanceActions
s@DescribePendingMaintenanceActions' {} Maybe Int
a -> DescribePendingMaintenanceActions
s {$sel:maxRecords:DescribePendingMaintenanceActions' :: Maybe Int
maxRecords = Maybe Int
a} :: DescribePendingMaintenanceActions)
describePendingMaintenanceActions_resourceIdentifier :: Lens.Lens' DescribePendingMaintenanceActions (Prelude.Maybe Prelude.Text)
describePendingMaintenanceActions_resourceIdentifier :: Lens' DescribePendingMaintenanceActions (Maybe Text)
describePendingMaintenanceActions_resourceIdentifier = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribePendingMaintenanceActions' {Maybe Text
resourceIdentifier :: Maybe Text
$sel:resourceIdentifier:DescribePendingMaintenanceActions' :: DescribePendingMaintenanceActions -> Maybe Text
resourceIdentifier} -> Maybe Text
resourceIdentifier) (\s :: DescribePendingMaintenanceActions
s@DescribePendingMaintenanceActions' {} Maybe Text
a -> DescribePendingMaintenanceActions
s {$sel:resourceIdentifier:DescribePendingMaintenanceActions' :: Maybe Text
resourceIdentifier = Maybe Text
a} :: DescribePendingMaintenanceActions)
instance
Core.AWSPager
DescribePendingMaintenanceActions
where
page :: DescribePendingMaintenanceActions
-> AWSResponse DescribePendingMaintenanceActions
-> Maybe DescribePendingMaintenanceActions
page DescribePendingMaintenanceActions
rq AWSResponse DescribePendingMaintenanceActions
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribePendingMaintenanceActions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribePendingMaintenanceActionsResponse (Maybe Text)
describePendingMaintenanceActionsResponse_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 DescribePendingMaintenanceActions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
DescribePendingMaintenanceActionsResponse
(Maybe [ResourcePendingMaintenanceActions])
describePendingMaintenanceActionsResponse_pendingMaintenanceActions
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.$ DescribePendingMaintenanceActions
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribePendingMaintenanceActions (Maybe Text)
describePendingMaintenanceActions_marker
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribePendingMaintenanceActions
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribePendingMaintenanceActionsResponse (Maybe Text)
describePendingMaintenanceActionsResponse_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
DescribePendingMaintenanceActions
where
type
AWSResponse DescribePendingMaintenanceActions =
DescribePendingMaintenanceActionsResponse
request :: (Service -> Service)
-> DescribePendingMaintenanceActions
-> Request DescribePendingMaintenanceActions
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 DescribePendingMaintenanceActions
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DescribePendingMaintenanceActions)))
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
"DescribePendingMaintenanceActionsResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Text
-> Maybe [ResourcePendingMaintenanceActions]
-> Int
-> DescribePendingMaintenanceActionsResponse
DescribePendingMaintenanceActionsResponse'
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
"Marker")
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
"PendingMaintenanceActions"
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
"ResourcePendingMaintenanceActions"
)
)
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
DescribePendingMaintenanceActions
where
hashWithSalt :: Int -> DescribePendingMaintenanceActions -> Int
hashWithSalt
Int
_salt
DescribePendingMaintenanceActions' {Maybe Int
Maybe [Filter]
Maybe Text
resourceIdentifier :: Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
filters :: Maybe [Filter]
$sel:resourceIdentifier:DescribePendingMaintenanceActions' :: DescribePendingMaintenanceActions -> Maybe Text
$sel:maxRecords:DescribePendingMaintenanceActions' :: DescribePendingMaintenanceActions -> Maybe Int
$sel:marker:DescribePendingMaintenanceActions' :: DescribePendingMaintenanceActions -> Maybe Text
$sel:filters:DescribePendingMaintenanceActions' :: DescribePendingMaintenanceActions -> Maybe [Filter]
..} =
Int
_salt
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 Int
maxRecords
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
resourceIdentifier
instance
Prelude.NFData
DescribePendingMaintenanceActions
where
rnf :: DescribePendingMaintenanceActions -> ()
rnf DescribePendingMaintenanceActions' {Maybe Int
Maybe [Filter]
Maybe Text
resourceIdentifier :: Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
filters :: Maybe [Filter]
$sel:resourceIdentifier:DescribePendingMaintenanceActions' :: DescribePendingMaintenanceActions -> Maybe Text
$sel:maxRecords:DescribePendingMaintenanceActions' :: DescribePendingMaintenanceActions -> Maybe Int
$sel:marker:DescribePendingMaintenanceActions' :: DescribePendingMaintenanceActions -> Maybe Text
$sel:filters:DescribePendingMaintenanceActions' :: DescribePendingMaintenanceActions -> Maybe [Filter]
..} =
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 Int
maxRecords
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
resourceIdentifier
instance
Data.ToHeaders
DescribePendingMaintenanceActions
where
toHeaders :: DescribePendingMaintenanceActions -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
DescribePendingMaintenanceActions
where
toPath :: DescribePendingMaintenanceActions -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
DescribePendingMaintenanceActions
where
toQuery :: DescribePendingMaintenanceActions -> QueryString
toQuery DescribePendingMaintenanceActions' {Maybe Int
Maybe [Filter]
Maybe Text
resourceIdentifier :: Maybe Text
maxRecords :: Maybe Int
marker :: Maybe Text
filters :: Maybe [Filter]
$sel:resourceIdentifier:DescribePendingMaintenanceActions' :: DescribePendingMaintenanceActions -> Maybe Text
$sel:maxRecords:DescribePendingMaintenanceActions' :: DescribePendingMaintenanceActions -> Maybe Int
$sel:marker:DescribePendingMaintenanceActions' :: DescribePendingMaintenanceActions -> Maybe Text
$sel:filters:DescribePendingMaintenanceActions' :: DescribePendingMaintenanceActions -> Maybe [Filter]
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DescribePendingMaintenanceActions" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2014-10-31" :: Prelude.ByteString),
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 Int
maxRecords,
ByteString
"ResourceIdentifier" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
resourceIdentifier
]
data DescribePendingMaintenanceActionsResponse = DescribePendingMaintenanceActionsResponse'
{
DescribePendingMaintenanceActionsResponse -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
DescribePendingMaintenanceActionsResponse
-> Maybe [ResourcePendingMaintenanceActions]
pendingMaintenanceActions :: Prelude.Maybe [ResourcePendingMaintenanceActions],
DescribePendingMaintenanceActionsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribePendingMaintenanceActionsResponse
-> DescribePendingMaintenanceActionsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribePendingMaintenanceActionsResponse
-> DescribePendingMaintenanceActionsResponse -> Bool
$c/= :: DescribePendingMaintenanceActionsResponse
-> DescribePendingMaintenanceActionsResponse -> Bool
== :: DescribePendingMaintenanceActionsResponse
-> DescribePendingMaintenanceActionsResponse -> Bool
$c== :: DescribePendingMaintenanceActionsResponse
-> DescribePendingMaintenanceActionsResponse -> Bool
Prelude.Eq, ReadPrec [DescribePendingMaintenanceActionsResponse]
ReadPrec DescribePendingMaintenanceActionsResponse
Int -> ReadS DescribePendingMaintenanceActionsResponse
ReadS [DescribePendingMaintenanceActionsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribePendingMaintenanceActionsResponse]
$creadListPrec :: ReadPrec [DescribePendingMaintenanceActionsResponse]
readPrec :: ReadPrec DescribePendingMaintenanceActionsResponse
$creadPrec :: ReadPrec DescribePendingMaintenanceActionsResponse
readList :: ReadS [DescribePendingMaintenanceActionsResponse]
$creadList :: ReadS [DescribePendingMaintenanceActionsResponse]
readsPrec :: Int -> ReadS DescribePendingMaintenanceActionsResponse
$creadsPrec :: Int -> ReadS DescribePendingMaintenanceActionsResponse
Prelude.Read, Int -> DescribePendingMaintenanceActionsResponse -> ShowS
[DescribePendingMaintenanceActionsResponse] -> ShowS
DescribePendingMaintenanceActionsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribePendingMaintenanceActionsResponse] -> ShowS
$cshowList :: [DescribePendingMaintenanceActionsResponse] -> ShowS
show :: DescribePendingMaintenanceActionsResponse -> String
$cshow :: DescribePendingMaintenanceActionsResponse -> String
showsPrec :: Int -> DescribePendingMaintenanceActionsResponse -> ShowS
$cshowsPrec :: Int -> DescribePendingMaintenanceActionsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribePendingMaintenanceActionsResponse x
-> DescribePendingMaintenanceActionsResponse
forall x.
DescribePendingMaintenanceActionsResponse
-> Rep DescribePendingMaintenanceActionsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribePendingMaintenanceActionsResponse x
-> DescribePendingMaintenanceActionsResponse
$cfrom :: forall x.
DescribePendingMaintenanceActionsResponse
-> Rep DescribePendingMaintenanceActionsResponse x
Prelude.Generic)
newDescribePendingMaintenanceActionsResponse ::
Prelude.Int ->
DescribePendingMaintenanceActionsResponse
newDescribePendingMaintenanceActionsResponse :: Int -> DescribePendingMaintenanceActionsResponse
newDescribePendingMaintenanceActionsResponse
Int
pHttpStatus_ =
DescribePendingMaintenanceActionsResponse'
{ $sel:marker:DescribePendingMaintenanceActionsResponse' :: Maybe Text
marker =
forall a. Maybe a
Prelude.Nothing,
$sel:pendingMaintenanceActions:DescribePendingMaintenanceActionsResponse' :: Maybe [ResourcePendingMaintenanceActions]
pendingMaintenanceActions =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribePendingMaintenanceActionsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describePendingMaintenanceActionsResponse_marker :: Lens.Lens' DescribePendingMaintenanceActionsResponse (Prelude.Maybe Prelude.Text)
describePendingMaintenanceActionsResponse_marker :: Lens' DescribePendingMaintenanceActionsResponse (Maybe Text)
describePendingMaintenanceActionsResponse_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribePendingMaintenanceActionsResponse' {Maybe Text
marker :: Maybe Text
$sel:marker:DescribePendingMaintenanceActionsResponse' :: DescribePendingMaintenanceActionsResponse -> Maybe Text
marker} -> Maybe Text
marker) (\s :: DescribePendingMaintenanceActionsResponse
s@DescribePendingMaintenanceActionsResponse' {} Maybe Text
a -> DescribePendingMaintenanceActionsResponse
s {$sel:marker:DescribePendingMaintenanceActionsResponse' :: Maybe Text
marker = Maybe Text
a} :: DescribePendingMaintenanceActionsResponse)
describePendingMaintenanceActionsResponse_pendingMaintenanceActions :: Lens.Lens' DescribePendingMaintenanceActionsResponse (Prelude.Maybe [ResourcePendingMaintenanceActions])
describePendingMaintenanceActionsResponse_pendingMaintenanceActions :: Lens'
DescribePendingMaintenanceActionsResponse
(Maybe [ResourcePendingMaintenanceActions])
describePendingMaintenanceActionsResponse_pendingMaintenanceActions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribePendingMaintenanceActionsResponse' {Maybe [ResourcePendingMaintenanceActions]
pendingMaintenanceActions :: Maybe [ResourcePendingMaintenanceActions]
$sel:pendingMaintenanceActions:DescribePendingMaintenanceActionsResponse' :: DescribePendingMaintenanceActionsResponse
-> Maybe [ResourcePendingMaintenanceActions]
pendingMaintenanceActions} -> Maybe [ResourcePendingMaintenanceActions]
pendingMaintenanceActions) (\s :: DescribePendingMaintenanceActionsResponse
s@DescribePendingMaintenanceActionsResponse' {} Maybe [ResourcePendingMaintenanceActions]
a -> DescribePendingMaintenanceActionsResponse
s {$sel:pendingMaintenanceActions:DescribePendingMaintenanceActionsResponse' :: Maybe [ResourcePendingMaintenanceActions]
pendingMaintenanceActions = Maybe [ResourcePendingMaintenanceActions]
a} :: DescribePendingMaintenanceActionsResponse) 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
describePendingMaintenanceActionsResponse_httpStatus :: Lens.Lens' DescribePendingMaintenanceActionsResponse Prelude.Int
describePendingMaintenanceActionsResponse_httpStatus :: Lens' DescribePendingMaintenanceActionsResponse Int
describePendingMaintenanceActionsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribePendingMaintenanceActionsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribePendingMaintenanceActionsResponse' :: DescribePendingMaintenanceActionsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribePendingMaintenanceActionsResponse
s@DescribePendingMaintenanceActionsResponse' {} Int
a -> DescribePendingMaintenanceActionsResponse
s {$sel:httpStatus:DescribePendingMaintenanceActionsResponse' :: Int
httpStatus = Int
a} :: DescribePendingMaintenanceActionsResponse)
instance
Prelude.NFData
DescribePendingMaintenanceActionsResponse
where
rnf :: DescribePendingMaintenanceActionsResponse -> ()
rnf DescribePendingMaintenanceActionsResponse' {Int
Maybe [ResourcePendingMaintenanceActions]
Maybe Text
httpStatus :: Int
pendingMaintenanceActions :: Maybe [ResourcePendingMaintenanceActions]
marker :: Maybe Text
$sel:httpStatus:DescribePendingMaintenanceActionsResponse' :: DescribePendingMaintenanceActionsResponse -> Int
$sel:pendingMaintenanceActions:DescribePendingMaintenanceActionsResponse' :: DescribePendingMaintenanceActionsResponse
-> Maybe [ResourcePendingMaintenanceActions]
$sel:marker:DescribePendingMaintenanceActionsResponse' :: DescribePendingMaintenanceActionsResponse -> Maybe Text
..} =
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 [ResourcePendingMaintenanceActions]
pendingMaintenanceActions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus