{-# 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.DescribeEnvironmentManagedActions
(
DescribeEnvironmentManagedActions (..),
newDescribeEnvironmentManagedActions,
describeEnvironmentManagedActions_environmentId,
describeEnvironmentManagedActions_environmentName,
describeEnvironmentManagedActions_status,
DescribeEnvironmentManagedActionsResponse (..),
newDescribeEnvironmentManagedActionsResponse,
describeEnvironmentManagedActionsResponse_managedActions,
describeEnvironmentManagedActionsResponse_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 DescribeEnvironmentManagedActions = DescribeEnvironmentManagedActions'
{
DescribeEnvironmentManagedActions -> Maybe Text
environmentId :: Prelude.Maybe Prelude.Text,
DescribeEnvironmentManagedActions -> Maybe Text
environmentName :: Prelude.Maybe Prelude.Text,
DescribeEnvironmentManagedActions -> Maybe ActionStatus
status :: Prelude.Maybe ActionStatus
}
deriving (DescribeEnvironmentManagedActions
-> DescribeEnvironmentManagedActions -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeEnvironmentManagedActions
-> DescribeEnvironmentManagedActions -> Bool
$c/= :: DescribeEnvironmentManagedActions
-> DescribeEnvironmentManagedActions -> Bool
== :: DescribeEnvironmentManagedActions
-> DescribeEnvironmentManagedActions -> Bool
$c== :: DescribeEnvironmentManagedActions
-> DescribeEnvironmentManagedActions -> Bool
Prelude.Eq, ReadPrec [DescribeEnvironmentManagedActions]
ReadPrec DescribeEnvironmentManagedActions
Int -> ReadS DescribeEnvironmentManagedActions
ReadS [DescribeEnvironmentManagedActions]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeEnvironmentManagedActions]
$creadListPrec :: ReadPrec [DescribeEnvironmentManagedActions]
readPrec :: ReadPrec DescribeEnvironmentManagedActions
$creadPrec :: ReadPrec DescribeEnvironmentManagedActions
readList :: ReadS [DescribeEnvironmentManagedActions]
$creadList :: ReadS [DescribeEnvironmentManagedActions]
readsPrec :: Int -> ReadS DescribeEnvironmentManagedActions
$creadsPrec :: Int -> ReadS DescribeEnvironmentManagedActions
Prelude.Read, Int -> DescribeEnvironmentManagedActions -> ShowS
[DescribeEnvironmentManagedActions] -> ShowS
DescribeEnvironmentManagedActions -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeEnvironmentManagedActions] -> ShowS
$cshowList :: [DescribeEnvironmentManagedActions] -> ShowS
show :: DescribeEnvironmentManagedActions -> String
$cshow :: DescribeEnvironmentManagedActions -> String
showsPrec :: Int -> DescribeEnvironmentManagedActions -> ShowS
$cshowsPrec :: Int -> DescribeEnvironmentManagedActions -> ShowS
Prelude.Show, forall x.
Rep DescribeEnvironmentManagedActions x
-> DescribeEnvironmentManagedActions
forall x.
DescribeEnvironmentManagedActions
-> Rep DescribeEnvironmentManagedActions x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeEnvironmentManagedActions x
-> DescribeEnvironmentManagedActions
$cfrom :: forall x.
DescribeEnvironmentManagedActions
-> Rep DescribeEnvironmentManagedActions x
Prelude.Generic)
newDescribeEnvironmentManagedActions ::
DescribeEnvironmentManagedActions
newDescribeEnvironmentManagedActions :: DescribeEnvironmentManagedActions
newDescribeEnvironmentManagedActions =
DescribeEnvironmentManagedActions'
{ $sel:environmentId:DescribeEnvironmentManagedActions' :: Maybe Text
environmentId =
forall a. Maybe a
Prelude.Nothing,
$sel:environmentName:DescribeEnvironmentManagedActions' :: Maybe Text
environmentName = forall a. Maybe a
Prelude.Nothing,
$sel:status:DescribeEnvironmentManagedActions' :: Maybe ActionStatus
status = forall a. Maybe a
Prelude.Nothing
}
describeEnvironmentManagedActions_environmentId :: Lens.Lens' DescribeEnvironmentManagedActions (Prelude.Maybe Prelude.Text)
describeEnvironmentManagedActions_environmentId :: Lens' DescribeEnvironmentManagedActions (Maybe Text)
describeEnvironmentManagedActions_environmentId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEnvironmentManagedActions' {Maybe Text
environmentId :: Maybe Text
$sel:environmentId:DescribeEnvironmentManagedActions' :: DescribeEnvironmentManagedActions -> Maybe Text
environmentId} -> Maybe Text
environmentId) (\s :: DescribeEnvironmentManagedActions
s@DescribeEnvironmentManagedActions' {} Maybe Text
a -> DescribeEnvironmentManagedActions
s {$sel:environmentId:DescribeEnvironmentManagedActions' :: Maybe Text
environmentId = Maybe Text
a} :: DescribeEnvironmentManagedActions)
describeEnvironmentManagedActions_environmentName :: Lens.Lens' DescribeEnvironmentManagedActions (Prelude.Maybe Prelude.Text)
describeEnvironmentManagedActions_environmentName :: Lens' DescribeEnvironmentManagedActions (Maybe Text)
describeEnvironmentManagedActions_environmentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEnvironmentManagedActions' {Maybe Text
environmentName :: Maybe Text
$sel:environmentName:DescribeEnvironmentManagedActions' :: DescribeEnvironmentManagedActions -> Maybe Text
environmentName} -> Maybe Text
environmentName) (\s :: DescribeEnvironmentManagedActions
s@DescribeEnvironmentManagedActions' {} Maybe Text
a -> DescribeEnvironmentManagedActions
s {$sel:environmentName:DescribeEnvironmentManagedActions' :: Maybe Text
environmentName = Maybe Text
a} :: DescribeEnvironmentManagedActions)
describeEnvironmentManagedActions_status :: Lens.Lens' DescribeEnvironmentManagedActions (Prelude.Maybe ActionStatus)
describeEnvironmentManagedActions_status :: Lens' DescribeEnvironmentManagedActions (Maybe ActionStatus)
describeEnvironmentManagedActions_status = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEnvironmentManagedActions' {Maybe ActionStatus
status :: Maybe ActionStatus
$sel:status:DescribeEnvironmentManagedActions' :: DescribeEnvironmentManagedActions -> Maybe ActionStatus
status} -> Maybe ActionStatus
status) (\s :: DescribeEnvironmentManagedActions
s@DescribeEnvironmentManagedActions' {} Maybe ActionStatus
a -> DescribeEnvironmentManagedActions
s {$sel:status:DescribeEnvironmentManagedActions' :: Maybe ActionStatus
status = Maybe ActionStatus
a} :: DescribeEnvironmentManagedActions)
instance
Core.AWSRequest
DescribeEnvironmentManagedActions
where
type
AWSResponse DescribeEnvironmentManagedActions =
DescribeEnvironmentManagedActionsResponse
request :: (Service -> Service)
-> DescribeEnvironmentManagedActions
-> Request DescribeEnvironmentManagedActions
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 DescribeEnvironmentManagedActions
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DescribeEnvironmentManagedActions)))
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
"DescribeEnvironmentManagedActionsResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe (NonEmpty ManagedAction)
-> Int -> DescribeEnvironmentManagedActionsResponse
DescribeEnvironmentManagedActionsResponse'
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
"ManagedActions"
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.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance
Prelude.Hashable
DescribeEnvironmentManagedActions
where
hashWithSalt :: Int -> DescribeEnvironmentManagedActions -> Int
hashWithSalt
Int
_salt
DescribeEnvironmentManagedActions' {Maybe Text
Maybe ActionStatus
status :: Maybe ActionStatus
environmentName :: Maybe Text
environmentId :: Maybe Text
$sel:status:DescribeEnvironmentManagedActions' :: DescribeEnvironmentManagedActions -> Maybe ActionStatus
$sel:environmentName:DescribeEnvironmentManagedActions' :: DescribeEnvironmentManagedActions -> Maybe Text
$sel:environmentId:DescribeEnvironmentManagedActions' :: DescribeEnvironmentManagedActions -> 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 ActionStatus
status
instance
Prelude.NFData
DescribeEnvironmentManagedActions
where
rnf :: DescribeEnvironmentManagedActions -> ()
rnf DescribeEnvironmentManagedActions' {Maybe Text
Maybe ActionStatus
status :: Maybe ActionStatus
environmentName :: Maybe Text
environmentId :: Maybe Text
$sel:status:DescribeEnvironmentManagedActions' :: DescribeEnvironmentManagedActions -> Maybe ActionStatus
$sel:environmentName:DescribeEnvironmentManagedActions' :: DescribeEnvironmentManagedActions -> Maybe Text
$sel:environmentId:DescribeEnvironmentManagedActions' :: DescribeEnvironmentManagedActions -> 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 ActionStatus
status
instance
Data.ToHeaders
DescribeEnvironmentManagedActions
where
toHeaders :: DescribeEnvironmentManagedActions -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
DescribeEnvironmentManagedActions
where
toPath :: DescribeEnvironmentManagedActions -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
DescribeEnvironmentManagedActions
where
toQuery :: DescribeEnvironmentManagedActions -> QueryString
toQuery DescribeEnvironmentManagedActions' {Maybe Text
Maybe ActionStatus
status :: Maybe ActionStatus
environmentName :: Maybe Text
environmentId :: Maybe Text
$sel:status:DescribeEnvironmentManagedActions' :: DescribeEnvironmentManagedActions -> Maybe ActionStatus
$sel:environmentName:DescribeEnvironmentManagedActions' :: DescribeEnvironmentManagedActions -> Maybe Text
$sel:environmentId:DescribeEnvironmentManagedActions' :: DescribeEnvironmentManagedActions -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"DescribeEnvironmentManagedActions" ::
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
"Status" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe ActionStatus
status
]
data DescribeEnvironmentManagedActionsResponse = DescribeEnvironmentManagedActionsResponse'
{
DescribeEnvironmentManagedActionsResponse
-> Maybe (NonEmpty ManagedAction)
managedActions :: Prelude.Maybe (Prelude.NonEmpty ManagedAction),
DescribeEnvironmentManagedActionsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeEnvironmentManagedActionsResponse
-> DescribeEnvironmentManagedActionsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeEnvironmentManagedActionsResponse
-> DescribeEnvironmentManagedActionsResponse -> Bool
$c/= :: DescribeEnvironmentManagedActionsResponse
-> DescribeEnvironmentManagedActionsResponse -> Bool
== :: DescribeEnvironmentManagedActionsResponse
-> DescribeEnvironmentManagedActionsResponse -> Bool
$c== :: DescribeEnvironmentManagedActionsResponse
-> DescribeEnvironmentManagedActionsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeEnvironmentManagedActionsResponse]
ReadPrec DescribeEnvironmentManagedActionsResponse
Int -> ReadS DescribeEnvironmentManagedActionsResponse
ReadS [DescribeEnvironmentManagedActionsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeEnvironmentManagedActionsResponse]
$creadListPrec :: ReadPrec [DescribeEnvironmentManagedActionsResponse]
readPrec :: ReadPrec DescribeEnvironmentManagedActionsResponse
$creadPrec :: ReadPrec DescribeEnvironmentManagedActionsResponse
readList :: ReadS [DescribeEnvironmentManagedActionsResponse]
$creadList :: ReadS [DescribeEnvironmentManagedActionsResponse]
readsPrec :: Int -> ReadS DescribeEnvironmentManagedActionsResponse
$creadsPrec :: Int -> ReadS DescribeEnvironmentManagedActionsResponse
Prelude.Read, Int -> DescribeEnvironmentManagedActionsResponse -> ShowS
[DescribeEnvironmentManagedActionsResponse] -> ShowS
DescribeEnvironmentManagedActionsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeEnvironmentManagedActionsResponse] -> ShowS
$cshowList :: [DescribeEnvironmentManagedActionsResponse] -> ShowS
show :: DescribeEnvironmentManagedActionsResponse -> String
$cshow :: DescribeEnvironmentManagedActionsResponse -> String
showsPrec :: Int -> DescribeEnvironmentManagedActionsResponse -> ShowS
$cshowsPrec :: Int -> DescribeEnvironmentManagedActionsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeEnvironmentManagedActionsResponse x
-> DescribeEnvironmentManagedActionsResponse
forall x.
DescribeEnvironmentManagedActionsResponse
-> Rep DescribeEnvironmentManagedActionsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeEnvironmentManagedActionsResponse x
-> DescribeEnvironmentManagedActionsResponse
$cfrom :: forall x.
DescribeEnvironmentManagedActionsResponse
-> Rep DescribeEnvironmentManagedActionsResponse x
Prelude.Generic)
newDescribeEnvironmentManagedActionsResponse ::
Prelude.Int ->
DescribeEnvironmentManagedActionsResponse
newDescribeEnvironmentManagedActionsResponse :: Int -> DescribeEnvironmentManagedActionsResponse
newDescribeEnvironmentManagedActionsResponse
Int
pHttpStatus_ =
DescribeEnvironmentManagedActionsResponse'
{ $sel:managedActions:DescribeEnvironmentManagedActionsResponse' :: Maybe (NonEmpty ManagedAction)
managedActions =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeEnvironmentManagedActionsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeEnvironmentManagedActionsResponse_managedActions :: Lens.Lens' DescribeEnvironmentManagedActionsResponse (Prelude.Maybe (Prelude.NonEmpty ManagedAction))
describeEnvironmentManagedActionsResponse_managedActions :: Lens'
DescribeEnvironmentManagedActionsResponse
(Maybe (NonEmpty ManagedAction))
describeEnvironmentManagedActionsResponse_managedActions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEnvironmentManagedActionsResponse' {Maybe (NonEmpty ManagedAction)
managedActions :: Maybe (NonEmpty ManagedAction)
$sel:managedActions:DescribeEnvironmentManagedActionsResponse' :: DescribeEnvironmentManagedActionsResponse
-> Maybe (NonEmpty ManagedAction)
managedActions} -> Maybe (NonEmpty ManagedAction)
managedActions) (\s :: DescribeEnvironmentManagedActionsResponse
s@DescribeEnvironmentManagedActionsResponse' {} Maybe (NonEmpty ManagedAction)
a -> DescribeEnvironmentManagedActionsResponse
s {$sel:managedActions:DescribeEnvironmentManagedActionsResponse' :: Maybe (NonEmpty ManagedAction)
managedActions = Maybe (NonEmpty ManagedAction)
a} :: DescribeEnvironmentManagedActionsResponse) 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
describeEnvironmentManagedActionsResponse_httpStatus :: Lens.Lens' DescribeEnvironmentManagedActionsResponse Prelude.Int
describeEnvironmentManagedActionsResponse_httpStatus :: Lens' DescribeEnvironmentManagedActionsResponse Int
describeEnvironmentManagedActionsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeEnvironmentManagedActionsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeEnvironmentManagedActionsResponse' :: DescribeEnvironmentManagedActionsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeEnvironmentManagedActionsResponse
s@DescribeEnvironmentManagedActionsResponse' {} Int
a -> DescribeEnvironmentManagedActionsResponse
s {$sel:httpStatus:DescribeEnvironmentManagedActionsResponse' :: Int
httpStatus = Int
a} :: DescribeEnvironmentManagedActionsResponse)
instance
Prelude.NFData
DescribeEnvironmentManagedActionsResponse
where
rnf :: DescribeEnvironmentManagedActionsResponse -> ()
rnf DescribeEnvironmentManagedActionsResponse' {Int
Maybe (NonEmpty ManagedAction)
httpStatus :: Int
managedActions :: Maybe (NonEmpty ManagedAction)
$sel:httpStatus:DescribeEnvironmentManagedActionsResponse' :: DescribeEnvironmentManagedActionsResponse -> Int
$sel:managedActions:DescribeEnvironmentManagedActionsResponse' :: DescribeEnvironmentManagedActionsResponse
-> Maybe (NonEmpty ManagedAction)
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe (NonEmpty ManagedAction)
managedActions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus