{-# 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.ElasticBeanstalk.DescribeEnvironmentManagedActionHistory
(
DescribeEnvironmentManagedActionHistory (..),
newDescribeEnvironmentManagedActionHistory,
describeEnvironmentManagedActionHistory_environmentId,
describeEnvironmentManagedActionHistory_environmentName,
describeEnvironmentManagedActionHistory_maxItems,
describeEnvironmentManagedActionHistory_nextToken,
DescribeEnvironmentManagedActionHistoryResponse (..),
newDescribeEnvironmentManagedActionHistoryResponse,
describeEnvironmentManagedActionHistoryResponse_managedActionHistoryItems,
describeEnvironmentManagedActionHistoryResponse_nextToken,
describeEnvironmentManagedActionHistoryResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.ElasticBeanstalk.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeEnvironmentManagedActionHistory = DescribeEnvironmentManagedActionHistory'
{
DescribeEnvironmentManagedActionHistory -> Maybe Text
environmentId :: Prelude.Maybe Prelude.Text,
DescribeEnvironmentManagedActionHistory -> Maybe Text
environmentName :: Prelude.Maybe Prelude.Text,
DescribeEnvironmentManagedActionHistory -> Maybe Natural
maxItems :: Prelude.Maybe Prelude.Natural,
DescribeEnvironmentManagedActionHistory -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text
}
deriving (DescribeEnvironmentManagedActionHistory
-> DescribeEnvironmentManagedActionHistory -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeEnvironmentManagedActionHistory
-> DescribeEnvironmentManagedActionHistory -> Bool
$c/= :: DescribeEnvironmentManagedActionHistory
-> DescribeEnvironmentManagedActionHistory -> Bool
== :: DescribeEnvironmentManagedActionHistory
-> DescribeEnvironmentManagedActionHistory -> Bool
$c== :: DescribeEnvironmentManagedActionHistory
-> DescribeEnvironmentManagedActionHistory -> Bool
Prelude.Eq, ReadPrec [DescribeEnvironmentManagedActionHistory]
ReadPrec DescribeEnvironmentManagedActionHistory
Int -> ReadS DescribeEnvironmentManagedActionHistory
ReadS [DescribeEnvironmentManagedActionHistory]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeEnvironmentManagedActionHistory]
$creadListPrec :: ReadPrec [DescribeEnvironmentManagedActionHistory]
readPrec :: ReadPrec DescribeEnvironmentManagedActionHistory
$creadPrec :: ReadPrec DescribeEnvironmentManagedActionHistory
readList :: ReadS [DescribeEnvironmentManagedActionHistory]
$creadList :: ReadS [DescribeEnvironmentManagedActionHistory]
readsPrec :: Int -> ReadS DescribeEnvironmentManagedActionHistory
$creadsPrec :: Int -> ReadS DescribeEnvironmentManagedActionHistory
Prelude.Read, Int -> DescribeEnvironmentManagedActionHistory -> ShowS
[DescribeEnvironmentManagedActionHistory] -> ShowS
DescribeEnvironmentManagedActionHistory -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeEnvironmentManagedActionHistory] -> ShowS
$cshowList :: [DescribeEnvironmentManagedActionHistory] -> ShowS
show :: DescribeEnvironmentManagedActionHistory -> String
$cshow :: DescribeEnvironmentManagedActionHistory -> String
showsPrec :: Int -> DescribeEnvironmentManagedActionHistory -> ShowS
$cshowsPrec :: Int -> DescribeEnvironmentManagedActionHistory -> ShowS
Prelude.Show, forall x.
Rep DescribeEnvironmentManagedActionHistory x
-> DescribeEnvironmentManagedActionHistory
forall x.
DescribeEnvironmentManagedActionHistory
-> Rep DescribeEnvironmentManagedActionHistory x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeEnvironmentManagedActionHistory x
-> DescribeEnvironmentManagedActionHistory
$cfrom :: forall x.
DescribeEnvironmentManagedActionHistory
-> Rep DescribeEnvironmentManagedActionHistory x
Prelude.Generic)
newDescribeEnvironmentManagedActionHistory ::
DescribeEnvironmentManagedActionHistory
newDescribeEnvironmentManagedActionHistory :: DescribeEnvironmentManagedActionHistory
newDescribeEnvironmentManagedActionHistory =
DescribeEnvironmentManagedActionHistory'
{ $sel:environmentId:DescribeEnvironmentManagedActionHistory' :: Maybe Text
environmentId =
forall a. Maybe a
Prelude.Nothing,
$sel:environmentName:DescribeEnvironmentManagedActionHistory' :: Maybe Text
environmentName = forall a. Maybe a
Prelude.Nothing,
$sel:maxItems:DescribeEnvironmentManagedActionHistory' :: Maybe Natural
maxItems = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeEnvironmentManagedActionHistory' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing
}
describeEnvironmentManagedActionHistory_environmentId :: Lens.Lens' DescribeEnvironmentManagedActionHistory (Prelude.Maybe Prelude.Text)
describeEnvironmentManagedActionHistory_environmentId :: Lens' DescribeEnvironmentManagedActionHistory (Maybe Text)
describeEnvironmentManagedActionHistory_environmentId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEnvironmentManagedActionHistory' {Maybe Text
environmentId :: Maybe Text
$sel:environmentId:DescribeEnvironmentManagedActionHistory' :: DescribeEnvironmentManagedActionHistory -> Maybe Text
environmentId} -> Maybe Text
environmentId) (\s :: DescribeEnvironmentManagedActionHistory
s@DescribeEnvironmentManagedActionHistory' {} Maybe Text
a -> DescribeEnvironmentManagedActionHistory
s {$sel:environmentId:DescribeEnvironmentManagedActionHistory' :: Maybe Text
environmentId = Maybe Text
a} :: DescribeEnvironmentManagedActionHistory)
describeEnvironmentManagedActionHistory_environmentName :: Lens.Lens' DescribeEnvironmentManagedActionHistory (Prelude.Maybe Prelude.Text)
describeEnvironmentManagedActionHistory_environmentName :: Lens' DescribeEnvironmentManagedActionHistory (Maybe Text)
describeEnvironmentManagedActionHistory_environmentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEnvironmentManagedActionHistory' {Maybe Text
environmentName :: Maybe Text
$sel:environmentName:DescribeEnvironmentManagedActionHistory' :: DescribeEnvironmentManagedActionHistory -> Maybe Text
environmentName} -> Maybe Text
environmentName) (\s :: DescribeEnvironmentManagedActionHistory
s@DescribeEnvironmentManagedActionHistory' {} Maybe Text
a -> DescribeEnvironmentManagedActionHistory
s {$sel:environmentName:DescribeEnvironmentManagedActionHistory' :: Maybe Text
environmentName = Maybe Text
a} :: DescribeEnvironmentManagedActionHistory)
describeEnvironmentManagedActionHistory_maxItems :: Lens.Lens' DescribeEnvironmentManagedActionHistory (Prelude.Maybe Prelude.Natural)
describeEnvironmentManagedActionHistory_maxItems :: Lens' DescribeEnvironmentManagedActionHistory (Maybe Natural)
describeEnvironmentManagedActionHistory_maxItems = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEnvironmentManagedActionHistory' {Maybe Natural
maxItems :: Maybe Natural
$sel:maxItems:DescribeEnvironmentManagedActionHistory' :: DescribeEnvironmentManagedActionHistory -> Maybe Natural
maxItems} -> Maybe Natural
maxItems) (\s :: DescribeEnvironmentManagedActionHistory
s@DescribeEnvironmentManagedActionHistory' {} Maybe Natural
a -> DescribeEnvironmentManagedActionHistory
s {$sel:maxItems:DescribeEnvironmentManagedActionHistory' :: Maybe Natural
maxItems = Maybe Natural
a} :: DescribeEnvironmentManagedActionHistory)
describeEnvironmentManagedActionHistory_nextToken :: Lens.Lens' DescribeEnvironmentManagedActionHistory (Prelude.Maybe Prelude.Text)
describeEnvironmentManagedActionHistory_nextToken :: Lens' DescribeEnvironmentManagedActionHistory (Maybe Text)
describeEnvironmentManagedActionHistory_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEnvironmentManagedActionHistory' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeEnvironmentManagedActionHistory' :: DescribeEnvironmentManagedActionHistory -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeEnvironmentManagedActionHistory
s@DescribeEnvironmentManagedActionHistory' {} Maybe Text
a -> DescribeEnvironmentManagedActionHistory
s {$sel:nextToken:DescribeEnvironmentManagedActionHistory' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeEnvironmentManagedActionHistory)
instance
Core.AWSPager
DescribeEnvironmentManagedActionHistory
where
page :: DescribeEnvironmentManagedActionHistory
-> AWSResponse DescribeEnvironmentManagedActionHistory
-> Maybe DescribeEnvironmentManagedActionHistory
page DescribeEnvironmentManagedActionHistory
rq AWSResponse DescribeEnvironmentManagedActionHistory
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse DescribeEnvironmentManagedActionHistory
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeEnvironmentManagedActionHistoryResponse (Maybe Text)
describeEnvironmentManagedActionHistoryResponse_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 DescribeEnvironmentManagedActionHistory
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens'
DescribeEnvironmentManagedActionHistoryResponse
(Maybe (NonEmpty ManagedActionHistoryItem))
describeEnvironmentManagedActionHistoryResponse_managedActionHistoryItems
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (p :: * -> * -> *) (f :: * -> *) s a.
(Profunctor p, Contravariant f) =>
(s -> a) -> Optic' p f s a
Lens.to forall l. IsList l => l -> [Item l]
Prelude.toList
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ DescribeEnvironmentManagedActionHistory
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' DescribeEnvironmentManagedActionHistory (Maybe Text)
describeEnvironmentManagedActionHistory_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse DescribeEnvironmentManagedActionHistory
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' DescribeEnvironmentManagedActionHistoryResponse (Maybe Text)
describeEnvironmentManagedActionHistoryResponse_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
DescribeEnvironmentManagedActionHistory
where
type
AWSResponse
DescribeEnvironmentManagedActionHistory =
DescribeEnvironmentManagedActionHistoryResponse
request :: (Service -> Service)
-> DescribeEnvironmentManagedActionHistory
-> Request DescribeEnvironmentManagedActionHistory
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 DescribeEnvironmentManagedActionHistory
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse
(AWSResponse DescribeEnvironmentManagedActionHistory)))
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
"DescribeEnvironmentManagedActionHistoryResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe (NonEmpty ManagedActionHistoryItem)
-> Maybe Text
-> Int
-> DescribeEnvironmentManagedActionHistoryResponse
DescribeEnvironmentManagedActionHistoryResponse'
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
"ManagedActionHistoryItems"
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 (NonEmpty a)
Data.parseXMLList1 Text
"member")
)
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
"NextToken")
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
DescribeEnvironmentManagedActionHistory
where
hashWithSalt :: Int -> DescribeEnvironmentManagedActionHistory -> Int
hashWithSalt
Int
_salt
DescribeEnvironmentManagedActionHistory' {Maybe Natural
Maybe Text
nextToken :: Maybe Text
maxItems :: Maybe Natural
environmentName :: Maybe Text
environmentId :: Maybe Text
$sel:nextToken:DescribeEnvironmentManagedActionHistory' :: DescribeEnvironmentManagedActionHistory -> Maybe Text
$sel:maxItems:DescribeEnvironmentManagedActionHistory' :: DescribeEnvironmentManagedActionHistory -> Maybe Natural
$sel:environmentName:DescribeEnvironmentManagedActionHistory' :: DescribeEnvironmentManagedActionHistory -> Maybe Text
$sel:environmentId:DescribeEnvironmentManagedActionHistory' :: DescribeEnvironmentManagedActionHistory -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
environmentId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
environmentName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxItems
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
instance
Prelude.NFData
DescribeEnvironmentManagedActionHistory
where
rnf :: DescribeEnvironmentManagedActionHistory -> ()
rnf DescribeEnvironmentManagedActionHistory' {Maybe Natural
Maybe Text
nextToken :: Maybe Text
maxItems :: Maybe Natural
environmentName :: Maybe Text
environmentId :: Maybe Text
$sel:nextToken:DescribeEnvironmentManagedActionHistory' :: DescribeEnvironmentManagedActionHistory -> Maybe Text
$sel:maxItems:DescribeEnvironmentManagedActionHistory' :: DescribeEnvironmentManagedActionHistory -> Maybe Natural
$sel:environmentName:DescribeEnvironmentManagedActionHistory' :: DescribeEnvironmentManagedActionHistory -> Maybe Text
$sel:environmentId:DescribeEnvironmentManagedActionHistory' :: DescribeEnvironmentManagedActionHistory -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
environmentId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
environmentName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxItems
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
instance
Data.ToHeaders
DescribeEnvironmentManagedActionHistory
where
toHeaders :: DescribeEnvironmentManagedActionHistory -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
DescribeEnvironmentManagedActionHistory
where
toPath :: DescribeEnvironmentManagedActionHistory -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
DescribeEnvironmentManagedActionHistory
where
toQuery :: DescribeEnvironmentManagedActionHistory -> QueryString
toQuery DescribeEnvironmentManagedActionHistory' {Maybe Natural
Maybe Text
nextToken :: Maybe Text
maxItems :: Maybe Natural
environmentName :: Maybe Text
environmentId :: Maybe Text
$sel:nextToken:DescribeEnvironmentManagedActionHistory' :: DescribeEnvironmentManagedActionHistory -> Maybe Text
$sel:maxItems:DescribeEnvironmentManagedActionHistory' :: DescribeEnvironmentManagedActionHistory -> Maybe Natural
$sel:environmentName:DescribeEnvironmentManagedActionHistory' :: DescribeEnvironmentManagedActionHistory -> Maybe Text
$sel:environmentId:DescribeEnvironmentManagedActionHistory' :: DescribeEnvironmentManagedActionHistory -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DescribeEnvironmentManagedActionHistory" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-12-01" :: Prelude.ByteString),
ByteString
"EnvironmentId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
environmentId,
ByteString
"EnvironmentName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
environmentName,
ByteString
"MaxItems" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxItems,
ByteString
"NextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken
]
data DescribeEnvironmentManagedActionHistoryResponse = DescribeEnvironmentManagedActionHistoryResponse'
{
DescribeEnvironmentManagedActionHistoryResponse
-> Maybe (NonEmpty ManagedActionHistoryItem)
managedActionHistoryItems :: Prelude.Maybe (Prelude.NonEmpty ManagedActionHistoryItem),
DescribeEnvironmentManagedActionHistoryResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
DescribeEnvironmentManagedActionHistoryResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeEnvironmentManagedActionHistoryResponse
-> DescribeEnvironmentManagedActionHistoryResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeEnvironmentManagedActionHistoryResponse
-> DescribeEnvironmentManagedActionHistoryResponse -> Bool
$c/= :: DescribeEnvironmentManagedActionHistoryResponse
-> DescribeEnvironmentManagedActionHistoryResponse -> Bool
== :: DescribeEnvironmentManagedActionHistoryResponse
-> DescribeEnvironmentManagedActionHistoryResponse -> Bool
$c== :: DescribeEnvironmentManagedActionHistoryResponse
-> DescribeEnvironmentManagedActionHistoryResponse -> Bool
Prelude.Eq, ReadPrec [DescribeEnvironmentManagedActionHistoryResponse]
ReadPrec DescribeEnvironmentManagedActionHistoryResponse
Int -> ReadS DescribeEnvironmentManagedActionHistoryResponse
ReadS [DescribeEnvironmentManagedActionHistoryResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeEnvironmentManagedActionHistoryResponse]
$creadListPrec :: ReadPrec [DescribeEnvironmentManagedActionHistoryResponse]
readPrec :: ReadPrec DescribeEnvironmentManagedActionHistoryResponse
$creadPrec :: ReadPrec DescribeEnvironmentManagedActionHistoryResponse
readList :: ReadS [DescribeEnvironmentManagedActionHistoryResponse]
$creadList :: ReadS [DescribeEnvironmentManagedActionHistoryResponse]
readsPrec :: Int -> ReadS DescribeEnvironmentManagedActionHistoryResponse
$creadsPrec :: Int -> ReadS DescribeEnvironmentManagedActionHistoryResponse
Prelude.Read, Int -> DescribeEnvironmentManagedActionHistoryResponse -> ShowS
[DescribeEnvironmentManagedActionHistoryResponse] -> ShowS
DescribeEnvironmentManagedActionHistoryResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeEnvironmentManagedActionHistoryResponse] -> ShowS
$cshowList :: [DescribeEnvironmentManagedActionHistoryResponse] -> ShowS
show :: DescribeEnvironmentManagedActionHistoryResponse -> String
$cshow :: DescribeEnvironmentManagedActionHistoryResponse -> String
showsPrec :: Int -> DescribeEnvironmentManagedActionHistoryResponse -> ShowS
$cshowsPrec :: Int -> DescribeEnvironmentManagedActionHistoryResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeEnvironmentManagedActionHistoryResponse x
-> DescribeEnvironmentManagedActionHistoryResponse
forall x.
DescribeEnvironmentManagedActionHistoryResponse
-> Rep DescribeEnvironmentManagedActionHistoryResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeEnvironmentManagedActionHistoryResponse x
-> DescribeEnvironmentManagedActionHistoryResponse
$cfrom :: forall x.
DescribeEnvironmentManagedActionHistoryResponse
-> Rep DescribeEnvironmentManagedActionHistoryResponse x
Prelude.Generic)
newDescribeEnvironmentManagedActionHistoryResponse ::
Prelude.Int ->
DescribeEnvironmentManagedActionHistoryResponse
newDescribeEnvironmentManagedActionHistoryResponse :: Int -> DescribeEnvironmentManagedActionHistoryResponse
newDescribeEnvironmentManagedActionHistoryResponse
Int
pHttpStatus_ =
DescribeEnvironmentManagedActionHistoryResponse'
{ $sel:managedActionHistoryItems:DescribeEnvironmentManagedActionHistoryResponse' :: Maybe (NonEmpty ManagedActionHistoryItem)
managedActionHistoryItems =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:DescribeEnvironmentManagedActionHistoryResponse' :: Maybe Text
nextToken =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeEnvironmentManagedActionHistoryResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeEnvironmentManagedActionHistoryResponse_managedActionHistoryItems :: Lens.Lens' DescribeEnvironmentManagedActionHistoryResponse (Prelude.Maybe (Prelude.NonEmpty ManagedActionHistoryItem))
describeEnvironmentManagedActionHistoryResponse_managedActionHistoryItems :: Lens'
DescribeEnvironmentManagedActionHistoryResponse
(Maybe (NonEmpty ManagedActionHistoryItem))
describeEnvironmentManagedActionHistoryResponse_managedActionHistoryItems = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEnvironmentManagedActionHistoryResponse' {Maybe (NonEmpty ManagedActionHistoryItem)
managedActionHistoryItems :: Maybe (NonEmpty ManagedActionHistoryItem)
$sel:managedActionHistoryItems:DescribeEnvironmentManagedActionHistoryResponse' :: DescribeEnvironmentManagedActionHistoryResponse
-> Maybe (NonEmpty ManagedActionHistoryItem)
managedActionHistoryItems} -> Maybe (NonEmpty ManagedActionHistoryItem)
managedActionHistoryItems) (\s :: DescribeEnvironmentManagedActionHistoryResponse
s@DescribeEnvironmentManagedActionHistoryResponse' {} Maybe (NonEmpty ManagedActionHistoryItem)
a -> DescribeEnvironmentManagedActionHistoryResponse
s {$sel:managedActionHistoryItems:DescribeEnvironmentManagedActionHistoryResponse' :: Maybe (NonEmpty ManagedActionHistoryItem)
managedActionHistoryItems = Maybe (NonEmpty ManagedActionHistoryItem)
a} :: DescribeEnvironmentManagedActionHistoryResponse) 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
describeEnvironmentManagedActionHistoryResponse_nextToken :: Lens.Lens' DescribeEnvironmentManagedActionHistoryResponse (Prelude.Maybe Prelude.Text)
describeEnvironmentManagedActionHistoryResponse_nextToken :: Lens' DescribeEnvironmentManagedActionHistoryResponse (Maybe Text)
describeEnvironmentManagedActionHistoryResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEnvironmentManagedActionHistoryResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:DescribeEnvironmentManagedActionHistoryResponse' :: DescribeEnvironmentManagedActionHistoryResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: DescribeEnvironmentManagedActionHistoryResponse
s@DescribeEnvironmentManagedActionHistoryResponse' {} Maybe Text
a -> DescribeEnvironmentManagedActionHistoryResponse
s {$sel:nextToken:DescribeEnvironmentManagedActionHistoryResponse' :: Maybe Text
nextToken = Maybe Text
a} :: DescribeEnvironmentManagedActionHistoryResponse)
describeEnvironmentManagedActionHistoryResponse_httpStatus :: Lens.Lens' DescribeEnvironmentManagedActionHistoryResponse Prelude.Int
describeEnvironmentManagedActionHistoryResponse_httpStatus :: Lens' DescribeEnvironmentManagedActionHistoryResponse Int
describeEnvironmentManagedActionHistoryResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEnvironmentManagedActionHistoryResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeEnvironmentManagedActionHistoryResponse' :: DescribeEnvironmentManagedActionHistoryResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeEnvironmentManagedActionHistoryResponse
s@DescribeEnvironmentManagedActionHistoryResponse' {} Int
a -> DescribeEnvironmentManagedActionHistoryResponse
s {$sel:httpStatus:DescribeEnvironmentManagedActionHistoryResponse' :: Int
httpStatus = Int
a} :: DescribeEnvironmentManagedActionHistoryResponse)
instance
Prelude.NFData
DescribeEnvironmentManagedActionHistoryResponse
where
rnf :: DescribeEnvironmentManagedActionHistoryResponse -> ()
rnf
DescribeEnvironmentManagedActionHistoryResponse' {Int
Maybe (NonEmpty ManagedActionHistoryItem)
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
managedActionHistoryItems :: Maybe (NonEmpty ManagedActionHistoryItem)
$sel:httpStatus:DescribeEnvironmentManagedActionHistoryResponse' :: DescribeEnvironmentManagedActionHistoryResponse -> Int
$sel:nextToken:DescribeEnvironmentManagedActionHistoryResponse' :: DescribeEnvironmentManagedActionHistoryResponse -> Maybe Text
$sel:managedActionHistoryItems:DescribeEnvironmentManagedActionHistoryResponse' :: DescribeEnvironmentManagedActionHistoryResponse
-> Maybe (NonEmpty ManagedActionHistoryItem)
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty ManagedActionHistoryItem)
managedActionHistoryItems
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 Int
httpStatus