{-# 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.Config.DescribeRemediationExecutionStatus
(
DescribeRemediationExecutionStatus (..),
newDescribeRemediationExecutionStatus,
describeRemediationExecutionStatus_limit,
describeRemediationExecutionStatus_nextToken,
describeRemediationExecutionStatus_resourceKeys,
describeRemediationExecutionStatus_configRuleName,
DescribeRemediationExecutionStatusResponse (..),
newDescribeRemediationExecutionStatusResponse,
describeRemediationExecutionStatusResponse_nextToken,
describeRemediationExecutionStatusResponse_remediationExecutionStatuses,
describeRemediationExecutionStatusResponse_httpStatus,
)
where
import Amazonka.Config.Types
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
data DescribeRemediationExecutionStatus = DescribeRemediationExecutionStatus'
{
DescribeRemediationExecutionStatus -> Maybe Natural
limit :: Prelude.Maybe Prelude.Natural,
DescribeRemediationExecutionStatus -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeRemediationExecutionStatus -> Maybe (NonEmpty ResourceKey)
resourceKeys :: Prelude.Maybe (Prelude.NonEmpty ResourceKey),
DescribeRemediationExecutionStatus -> Text
configRuleName :: Prelude.Text
}
deriving (DescribeRemediationExecutionStatus
-> DescribeRemediationExecutionStatus -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeRemediationExecutionStatus
-> DescribeRemediationExecutionStatus -> Bool
$c/= :: DescribeRemediationExecutionStatus
-> DescribeRemediationExecutionStatus -> Bool
== :: DescribeRemediationExecutionStatus
-> DescribeRemediationExecutionStatus -> Bool
$c== :: DescribeRemediationExecutionStatus
-> DescribeRemediationExecutionStatus -> Bool
Prelude.Eq, ReadPrec [DescribeRemediationExecutionStatus]
ReadPrec DescribeRemediationExecutionStatus
Int -> ReadS DescribeRemediationExecutionStatus
ReadS [DescribeRemediationExecutionStatus]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeRemediationExecutionStatus]
$creadListPrec :: ReadPrec [DescribeRemediationExecutionStatus]
readPrec :: ReadPrec DescribeRemediationExecutionStatus
$creadPrec :: ReadPrec DescribeRemediationExecutionStatus
readList :: ReadS [DescribeRemediationExecutionStatus]
$creadList :: ReadS [DescribeRemediationExecutionStatus]
readsPrec :: Int -> ReadS DescribeRemediationExecutionStatus
$creadsPrec :: Int -> ReadS DescribeRemediationExecutionStatus
Prelude.Read, Int -> DescribeRemediationExecutionStatus -> ShowS
[DescribeRemediationExecutionStatus] -> ShowS
DescribeRemediationExecutionStatus -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeRemediationExecutionStatus] -> ShowS
$cshowList :: [DescribeRemediationExecutionStatus] -> ShowS
show :: DescribeRemediationExecutionStatus -> String
$cshow :: DescribeRemediationExecutionStatus -> String
showsPrec :: Int -> DescribeRemediationExecutionStatus -> ShowS
$cshowsPrec :: Int -> DescribeRemediationExecutionStatus -> ShowS
Prelude.Show, forall x.
Rep DescribeRemediationExecutionStatus x
-> DescribeRemediationExecutionStatus
forall x.
DescribeRemediationExecutionStatus
-> Rep DescribeRemediationExecutionStatus x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeRemediationExecutionStatus x
-> DescribeRemediationExecutionStatus
$cfrom :: forall x.
DescribeRemediationExecutionStatus
-> Rep DescribeRemediationExecutionStatus x
Prelude.Generic)
newDescribeRemediationExecutionStatus ::
Prelude.Text ->
DescribeRemediationExecutionStatus
newDescribeRemediationExecutionStatus :: Text -> DescribeRemediationExecutionStatus
newDescribeRemediationExecutionStatus
Text
pConfigRuleName_ =
DescribeRemediationExecutionStatus'
{ $sel:limit:DescribeRemediationExecutionStatus' :: Maybe Natural
limit =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeRemediationExecutionStatus' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:resourceKeys:DescribeRemediationExecutionStatus' :: Maybe (NonEmpty ResourceKey)
resourceKeys = forall a. Maybe a
Prelude.Nothing,
$sel:configRuleName:DescribeRemediationExecutionStatus' :: Text
configRuleName = Text
pConfigRuleName_
}
describeRemediationExecutionStatus_limit :: Lens.Lens' DescribeRemediationExecutionStatus (Prelude.Maybe Prelude.Natural)
describeRemediationExecutionStatus_limit :: Lens' DescribeRemediationExecutionStatus (Maybe Natural)
describeRemediationExecutionStatus_limit = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRemediationExecutionStatus' {Maybe Natural
limit :: Maybe Natural
$sel:limit:DescribeRemediationExecutionStatus' :: DescribeRemediationExecutionStatus -> Maybe Natural
limit} -> Maybe Natural
limit) (\s :: DescribeRemediationExecutionStatus
s@DescribeRemediationExecutionStatus' {} Maybe Natural
a -> DescribeRemediationExecutionStatus
s {$sel:limit:DescribeRemediationExecutionStatus' :: Maybe Natural
limit = Maybe Natural
a} :: DescribeRemediationExecutionStatus)
describeRemediationExecutionStatus_nextToken :: Lens.Lens' DescribeRemediationExecutionStatus (Prelude.Maybe Prelude.Text)
describeRemediationExecutionStatus_nextToken :: Lens' DescribeRemediationExecutionStatus (Maybe Text)
describeRemediationExecutionStatus_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRemediationExecutionStatus' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeRemediationExecutionStatus' :: DescribeRemediationExecutionStatus -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeRemediationExecutionStatus
s@DescribeRemediationExecutionStatus' {} Maybe Text
a -> DescribeRemediationExecutionStatus
s {$sel:nextToken:DescribeRemediationExecutionStatus' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeRemediationExecutionStatus)
describeRemediationExecutionStatus_resourceKeys :: Lens.Lens' DescribeRemediationExecutionStatus (Prelude.Maybe (Prelude.NonEmpty ResourceKey))
describeRemediationExecutionStatus_resourceKeys :: Lens'
DescribeRemediationExecutionStatus (Maybe (NonEmpty ResourceKey))
describeRemediationExecutionStatus_resourceKeys = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRemediationExecutionStatus' {Maybe (NonEmpty ResourceKey)
resourceKeys :: Maybe (NonEmpty ResourceKey)
$sel:resourceKeys:DescribeRemediationExecutionStatus' :: DescribeRemediationExecutionStatus -> Maybe (NonEmpty ResourceKey)
resourceKeys} -> Maybe (NonEmpty ResourceKey)
resourceKeys) (\s :: DescribeRemediationExecutionStatus
s@DescribeRemediationExecutionStatus' {} Maybe (NonEmpty ResourceKey)
a -> DescribeRemediationExecutionStatus
s {$sel:resourceKeys:DescribeRemediationExecutionStatus' :: Maybe (NonEmpty ResourceKey)
resourceKeys = Maybe (NonEmpty ResourceKey)
a} :: DescribeRemediationExecutionStatus) 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
describeRemediationExecutionStatus_configRuleName :: Lens.Lens' DescribeRemediationExecutionStatus Prelude.Text
describeRemediationExecutionStatus_configRuleName :: Lens' DescribeRemediationExecutionStatus Text
describeRemediationExecutionStatus_configRuleName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRemediationExecutionStatus' {Text
configRuleName :: Text
$sel:configRuleName:DescribeRemediationExecutionStatus' :: DescribeRemediationExecutionStatus -> Text
configRuleName} -> Text
configRuleName) (\s :: DescribeRemediationExecutionStatus
s@DescribeRemediationExecutionStatus' {} Text
a -> DescribeRemediationExecutionStatus
s {$sel:configRuleName:DescribeRemediationExecutionStatus' :: Text
configRuleName = Text
a} :: DescribeRemediationExecutionStatus)
instance
Core.AWSPager
DescribeRemediationExecutionStatus
where
page :: DescribeRemediationExecutionStatus
-> AWSResponse DescribeRemediationExecutionStatus
-> Maybe DescribeRemediationExecutionStatus
page DescribeRemediationExecutionStatus
rq AWSResponse DescribeRemediationExecutionStatus
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeRemediationExecutionStatus
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeRemediationExecutionStatusResponse (Maybe Text)
describeRemediationExecutionStatusResponse_nextToken
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 DescribeRemediationExecutionStatus
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
DescribeRemediationExecutionStatusResponse
(Maybe [RemediationExecutionStatus])
describeRemediationExecutionStatusResponse_remediationExecutionStatuses
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.$ DescribeRemediationExecutionStatus
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeRemediationExecutionStatus (Maybe Text)
describeRemediationExecutionStatus_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeRemediationExecutionStatus
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeRemediationExecutionStatusResponse (Maybe Text)
describeRemediationExecutionStatusResponse_nextToken
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
DescribeRemediationExecutionStatus
where
type
AWSResponse DescribeRemediationExecutionStatus =
DescribeRemediationExecutionStatusResponse
request :: (Service -> Service)
-> DescribeRemediationExecutionStatus
-> Request DescribeRemediationExecutionStatus
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 DescribeRemediationExecutionStatus
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DescribeRemediationExecutionStatus)))
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 [RemediationExecutionStatus]
-> Int
-> DescribeRemediationExecutionStatusResponse
DescribeRemediationExecutionStatusResponse'
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
"NextToken")
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
"RemediationExecutionStatuses"
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
DescribeRemediationExecutionStatus
where
hashWithSalt :: Int -> DescribeRemediationExecutionStatus -> Int
hashWithSalt
Int
_salt
DescribeRemediationExecutionStatus' {Maybe Natural
Maybe (NonEmpty ResourceKey)
Maybe Text
Text
configRuleName :: Text
resourceKeys :: Maybe (NonEmpty ResourceKey)
nextToken :: Maybe Text
limit :: Maybe Natural
$sel:configRuleName:DescribeRemediationExecutionStatus' :: DescribeRemediationExecutionStatus -> Text
$sel:resourceKeys:DescribeRemediationExecutionStatus' :: DescribeRemediationExecutionStatus -> Maybe (NonEmpty ResourceKey)
$sel:nextToken:DescribeRemediationExecutionStatus' :: DescribeRemediationExecutionStatus -> Maybe Text
$sel:limit:DescribeRemediationExecutionStatus' :: DescribeRemediationExecutionStatus -> 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
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (NonEmpty ResourceKey)
resourceKeys
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
configRuleName
instance
Prelude.NFData
DescribeRemediationExecutionStatus
where
rnf :: DescribeRemediationExecutionStatus -> ()
rnf DescribeRemediationExecutionStatus' {Maybe Natural
Maybe (NonEmpty ResourceKey)
Maybe Text
Text
configRuleName :: Text
resourceKeys :: Maybe (NonEmpty ResourceKey)
nextToken :: Maybe Text
limit :: Maybe Natural
$sel:configRuleName:DescribeRemediationExecutionStatus' :: DescribeRemediationExecutionStatus -> Text
$sel:resourceKeys:DescribeRemediationExecutionStatus' :: DescribeRemediationExecutionStatus -> Maybe (NonEmpty ResourceKey)
$sel:nextToken:DescribeRemediationExecutionStatus' :: DescribeRemediationExecutionStatus -> Maybe Text
$sel:limit:DescribeRemediationExecutionStatus' :: DescribeRemediationExecutionStatus -> 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
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty ResourceKey)
resourceKeys
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
configRuleName
instance
Data.ToHeaders
DescribeRemediationExecutionStatus
where
toHeaders :: DescribeRemediationExecutionStatus -> 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
"StarlingDoveService.DescribeRemediationExecutionStatus" ::
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
DescribeRemediationExecutionStatus
where
toJSON :: DescribeRemediationExecutionStatus -> Value
toJSON DescribeRemediationExecutionStatus' {Maybe Natural
Maybe (NonEmpty ResourceKey)
Maybe Text
Text
configRuleName :: Text
resourceKeys :: Maybe (NonEmpty ResourceKey)
nextToken :: Maybe Text
limit :: Maybe Natural
$sel:configRuleName:DescribeRemediationExecutionStatus' :: DescribeRemediationExecutionStatus -> Text
$sel:resourceKeys:DescribeRemediationExecutionStatus' :: DescribeRemediationExecutionStatus -> Maybe (NonEmpty ResourceKey)
$sel:nextToken:DescribeRemediationExecutionStatus' :: DescribeRemediationExecutionStatus -> Maybe Text
$sel:limit:DescribeRemediationExecutionStatus' :: DescribeRemediationExecutionStatus -> 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
"NextToken" 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
nextToken,
(Key
"ResourceKeys" 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 (NonEmpty ResourceKey)
resourceKeys,
forall a. a -> Maybe a
Prelude.Just
(Key
"ConfigRuleName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
configRuleName)
]
)
instance
Data.ToPath
DescribeRemediationExecutionStatus
where
toPath :: DescribeRemediationExecutionStatus -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
DescribeRemediationExecutionStatus
where
toQuery :: DescribeRemediationExecutionStatus -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeRemediationExecutionStatusResponse = DescribeRemediationExecutionStatusResponse'
{
DescribeRemediationExecutionStatusResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeRemediationExecutionStatusResponse
-> Maybe [RemediationExecutionStatus]
remediationExecutionStatuses :: Prelude.Maybe [RemediationExecutionStatus],
DescribeRemediationExecutionStatusResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeRemediationExecutionStatusResponse
-> DescribeRemediationExecutionStatusResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeRemediationExecutionStatusResponse
-> DescribeRemediationExecutionStatusResponse -> Bool
$c/= :: DescribeRemediationExecutionStatusResponse
-> DescribeRemediationExecutionStatusResponse -> Bool
== :: DescribeRemediationExecutionStatusResponse
-> DescribeRemediationExecutionStatusResponse -> Bool
$c== :: DescribeRemediationExecutionStatusResponse
-> DescribeRemediationExecutionStatusResponse -> Bool
Prelude.Eq, ReadPrec [DescribeRemediationExecutionStatusResponse]
ReadPrec DescribeRemediationExecutionStatusResponse
Int -> ReadS DescribeRemediationExecutionStatusResponse
ReadS [DescribeRemediationExecutionStatusResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeRemediationExecutionStatusResponse]
$creadListPrec :: ReadPrec [DescribeRemediationExecutionStatusResponse]
readPrec :: ReadPrec DescribeRemediationExecutionStatusResponse
$creadPrec :: ReadPrec DescribeRemediationExecutionStatusResponse
readList :: ReadS [DescribeRemediationExecutionStatusResponse]
$creadList :: ReadS [DescribeRemediationExecutionStatusResponse]
readsPrec :: Int -> ReadS DescribeRemediationExecutionStatusResponse
$creadsPrec :: Int -> ReadS DescribeRemediationExecutionStatusResponse
Prelude.Read, Int -> DescribeRemediationExecutionStatusResponse -> ShowS
[DescribeRemediationExecutionStatusResponse] -> ShowS
DescribeRemediationExecutionStatusResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeRemediationExecutionStatusResponse] -> ShowS
$cshowList :: [DescribeRemediationExecutionStatusResponse] -> ShowS
show :: DescribeRemediationExecutionStatusResponse -> String
$cshow :: DescribeRemediationExecutionStatusResponse -> String
showsPrec :: Int -> DescribeRemediationExecutionStatusResponse -> ShowS
$cshowsPrec :: Int -> DescribeRemediationExecutionStatusResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeRemediationExecutionStatusResponse x
-> DescribeRemediationExecutionStatusResponse
forall x.
DescribeRemediationExecutionStatusResponse
-> Rep DescribeRemediationExecutionStatusResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeRemediationExecutionStatusResponse x
-> DescribeRemediationExecutionStatusResponse
$cfrom :: forall x.
DescribeRemediationExecutionStatusResponse
-> Rep DescribeRemediationExecutionStatusResponse x
Prelude.Generic)
newDescribeRemediationExecutionStatusResponse ::
Prelude.Int ->
DescribeRemediationExecutionStatusResponse
newDescribeRemediationExecutionStatusResponse :: Int -> DescribeRemediationExecutionStatusResponse
newDescribeRemediationExecutionStatusResponse
Int
pHttpStatus_ =
DescribeRemediationExecutionStatusResponse'
{ $sel:nextToken:DescribeRemediationExecutionStatusResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:remediationExecutionStatuses:DescribeRemediationExecutionStatusResponse' :: Maybe [RemediationExecutionStatus]
remediationExecutionStatuses =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeRemediationExecutionStatusResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeRemediationExecutionStatusResponse_nextToken :: Lens.Lens' DescribeRemediationExecutionStatusResponse (Prelude.Maybe Prelude.Text)
describeRemediationExecutionStatusResponse_nextToken :: Lens' DescribeRemediationExecutionStatusResponse (Maybe Text)
describeRemediationExecutionStatusResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRemediationExecutionStatusResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeRemediationExecutionStatusResponse' :: DescribeRemediationExecutionStatusResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeRemediationExecutionStatusResponse
s@DescribeRemediationExecutionStatusResponse' {} Maybe Text
a -> DescribeRemediationExecutionStatusResponse
s {$sel:nextToken:DescribeRemediationExecutionStatusResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeRemediationExecutionStatusResponse)
describeRemediationExecutionStatusResponse_remediationExecutionStatuses :: Lens.Lens' DescribeRemediationExecutionStatusResponse (Prelude.Maybe [RemediationExecutionStatus])
describeRemediationExecutionStatusResponse_remediationExecutionStatuses :: Lens'
DescribeRemediationExecutionStatusResponse
(Maybe [RemediationExecutionStatus])
describeRemediationExecutionStatusResponse_remediationExecutionStatuses = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRemediationExecutionStatusResponse' {Maybe [RemediationExecutionStatus]
remediationExecutionStatuses :: Maybe [RemediationExecutionStatus]
$sel:remediationExecutionStatuses:DescribeRemediationExecutionStatusResponse' :: DescribeRemediationExecutionStatusResponse
-> Maybe [RemediationExecutionStatus]
remediationExecutionStatuses} -> Maybe [RemediationExecutionStatus]
remediationExecutionStatuses) (\s :: DescribeRemediationExecutionStatusResponse
s@DescribeRemediationExecutionStatusResponse' {} Maybe [RemediationExecutionStatus]
a -> DescribeRemediationExecutionStatusResponse
s {$sel:remediationExecutionStatuses:DescribeRemediationExecutionStatusResponse' :: Maybe [RemediationExecutionStatus]
remediationExecutionStatuses = Maybe [RemediationExecutionStatus]
a} :: DescribeRemediationExecutionStatusResponse) 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
describeRemediationExecutionStatusResponse_httpStatus :: Lens.Lens' DescribeRemediationExecutionStatusResponse Prelude.Int
describeRemediationExecutionStatusResponse_httpStatus :: Lens' DescribeRemediationExecutionStatusResponse Int
describeRemediationExecutionStatusResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeRemediationExecutionStatusResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeRemediationExecutionStatusResponse' :: DescribeRemediationExecutionStatusResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeRemediationExecutionStatusResponse
s@DescribeRemediationExecutionStatusResponse' {} Int
a -> DescribeRemediationExecutionStatusResponse
s {$sel:httpStatus:DescribeRemediationExecutionStatusResponse' :: Int
httpStatus = Int
a} :: DescribeRemediationExecutionStatusResponse)
instance
Prelude.NFData
DescribeRemediationExecutionStatusResponse
where
rnf :: DescribeRemediationExecutionStatusResponse -> ()
rnf DescribeRemediationExecutionStatusResponse' {Int
Maybe [RemediationExecutionStatus]
Maybe Text
httpStatus :: Int
remediationExecutionStatuses :: Maybe [RemediationExecutionStatus]
nextToken :: Maybe Text
$sel:httpStatus:DescribeRemediationExecutionStatusResponse' :: DescribeRemediationExecutionStatusResponse -> Int
$sel:remediationExecutionStatuses:DescribeRemediationExecutionStatusResponse' :: DescribeRemediationExecutionStatusResponse
-> Maybe [RemediationExecutionStatus]
$sel:nextToken:DescribeRemediationExecutionStatusResponse' :: DescribeRemediationExecutionStatusResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [RemediationExecutionStatus]
remediationExecutionStatuses
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus