{-# 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.RequestEnvironmentInfo
(
RequestEnvironmentInfo (..),
newRequestEnvironmentInfo,
requestEnvironmentInfo_environmentId,
requestEnvironmentInfo_environmentName,
requestEnvironmentInfo_infoType,
RequestEnvironmentInfoResponse (..),
newRequestEnvironmentInfoResponse,
)
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 RequestEnvironmentInfo = RequestEnvironmentInfo'
{
RequestEnvironmentInfo -> Maybe Text
environmentId :: Prelude.Maybe Prelude.Text,
RequestEnvironmentInfo -> Maybe Text
environmentName :: Prelude.Maybe Prelude.Text,
RequestEnvironmentInfo -> EnvironmentInfoType
infoType :: EnvironmentInfoType
}
deriving (RequestEnvironmentInfo -> RequestEnvironmentInfo -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RequestEnvironmentInfo -> RequestEnvironmentInfo -> Bool
$c/= :: RequestEnvironmentInfo -> RequestEnvironmentInfo -> Bool
== :: RequestEnvironmentInfo -> RequestEnvironmentInfo -> Bool
$c== :: RequestEnvironmentInfo -> RequestEnvironmentInfo -> Bool
Prelude.Eq, ReadPrec [RequestEnvironmentInfo]
ReadPrec RequestEnvironmentInfo
Int -> ReadS RequestEnvironmentInfo
ReadS [RequestEnvironmentInfo]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RequestEnvironmentInfo]
$creadListPrec :: ReadPrec [RequestEnvironmentInfo]
readPrec :: ReadPrec RequestEnvironmentInfo
$creadPrec :: ReadPrec RequestEnvironmentInfo
readList :: ReadS [RequestEnvironmentInfo]
$creadList :: ReadS [RequestEnvironmentInfo]
readsPrec :: Int -> ReadS RequestEnvironmentInfo
$creadsPrec :: Int -> ReadS RequestEnvironmentInfo
Prelude.Read, Int -> RequestEnvironmentInfo -> ShowS
[RequestEnvironmentInfo] -> ShowS
RequestEnvironmentInfo -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RequestEnvironmentInfo] -> ShowS
$cshowList :: [RequestEnvironmentInfo] -> ShowS
show :: RequestEnvironmentInfo -> String
$cshow :: RequestEnvironmentInfo -> String
showsPrec :: Int -> RequestEnvironmentInfo -> ShowS
$cshowsPrec :: Int -> RequestEnvironmentInfo -> ShowS
Prelude.Show, forall x. Rep RequestEnvironmentInfo x -> RequestEnvironmentInfo
forall x. RequestEnvironmentInfo -> Rep RequestEnvironmentInfo x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep RequestEnvironmentInfo x -> RequestEnvironmentInfo
$cfrom :: forall x. RequestEnvironmentInfo -> Rep RequestEnvironmentInfo x
Prelude.Generic)
newRequestEnvironmentInfo ::
EnvironmentInfoType ->
RequestEnvironmentInfo
newRequestEnvironmentInfo :: EnvironmentInfoType -> RequestEnvironmentInfo
newRequestEnvironmentInfo EnvironmentInfoType
pInfoType_ =
RequestEnvironmentInfo'
{ $sel:environmentId:RequestEnvironmentInfo' :: Maybe Text
environmentId =
forall a. Maybe a
Prelude.Nothing,
$sel:environmentName:RequestEnvironmentInfo' :: Maybe Text
environmentName = forall a. Maybe a
Prelude.Nothing,
$sel:infoType:RequestEnvironmentInfo' :: EnvironmentInfoType
infoType = EnvironmentInfoType
pInfoType_
}
requestEnvironmentInfo_environmentId :: Lens.Lens' RequestEnvironmentInfo (Prelude.Maybe Prelude.Text)
requestEnvironmentInfo_environmentId :: Lens' RequestEnvironmentInfo (Maybe Text)
requestEnvironmentInfo_environmentId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RequestEnvironmentInfo' {Maybe Text
environmentId :: Maybe Text
$sel:environmentId:RequestEnvironmentInfo' :: RequestEnvironmentInfo -> Maybe Text
environmentId} -> Maybe Text
environmentId) (\s :: RequestEnvironmentInfo
s@RequestEnvironmentInfo' {} Maybe Text
a -> RequestEnvironmentInfo
s {$sel:environmentId:RequestEnvironmentInfo' :: Maybe Text
environmentId = Maybe Text
a} :: RequestEnvironmentInfo)
requestEnvironmentInfo_environmentName :: Lens.Lens' RequestEnvironmentInfo (Prelude.Maybe Prelude.Text)
requestEnvironmentInfo_environmentName :: Lens' RequestEnvironmentInfo (Maybe Text)
requestEnvironmentInfo_environmentName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RequestEnvironmentInfo' {Maybe Text
environmentName :: Maybe Text
$sel:environmentName:RequestEnvironmentInfo' :: RequestEnvironmentInfo -> Maybe Text
environmentName} -> Maybe Text
environmentName) (\s :: RequestEnvironmentInfo
s@RequestEnvironmentInfo' {} Maybe Text
a -> RequestEnvironmentInfo
s {$sel:environmentName:RequestEnvironmentInfo' :: Maybe Text
environmentName = Maybe Text
a} :: RequestEnvironmentInfo)
requestEnvironmentInfo_infoType :: Lens.Lens' RequestEnvironmentInfo EnvironmentInfoType
requestEnvironmentInfo_infoType :: Lens' RequestEnvironmentInfo EnvironmentInfoType
requestEnvironmentInfo_infoType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\RequestEnvironmentInfo' {EnvironmentInfoType
infoType :: EnvironmentInfoType
$sel:infoType:RequestEnvironmentInfo' :: RequestEnvironmentInfo -> EnvironmentInfoType
infoType} -> EnvironmentInfoType
infoType) (\s :: RequestEnvironmentInfo
s@RequestEnvironmentInfo' {} EnvironmentInfoType
a -> RequestEnvironmentInfo
s {$sel:infoType:RequestEnvironmentInfo' :: EnvironmentInfoType
infoType = EnvironmentInfoType
a} :: RequestEnvironmentInfo)
instance Core.AWSRequest RequestEnvironmentInfo where
type
AWSResponse RequestEnvironmentInfo =
RequestEnvironmentInfoResponse
request :: (Service -> Service)
-> RequestEnvironmentInfo -> Request RequestEnvironmentInfo
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 RequestEnvironmentInfo
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse RequestEnvironmentInfo)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
RequestEnvironmentInfoResponse
RequestEnvironmentInfoResponse'
instance Prelude.Hashable RequestEnvironmentInfo where
hashWithSalt :: Int -> RequestEnvironmentInfo -> Int
hashWithSalt Int
_salt RequestEnvironmentInfo' {Maybe Text
EnvironmentInfoType
infoType :: EnvironmentInfoType
environmentName :: Maybe Text
environmentId :: Maybe Text
$sel:infoType:RequestEnvironmentInfo' :: RequestEnvironmentInfo -> EnvironmentInfoType
$sel:environmentName:RequestEnvironmentInfo' :: RequestEnvironmentInfo -> Maybe Text
$sel:environmentId:RequestEnvironmentInfo' :: RequestEnvironmentInfo -> 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` EnvironmentInfoType
infoType
instance Prelude.NFData RequestEnvironmentInfo where
rnf :: RequestEnvironmentInfo -> ()
rnf RequestEnvironmentInfo' {Maybe Text
EnvironmentInfoType
infoType :: EnvironmentInfoType
environmentName :: Maybe Text
environmentId :: Maybe Text
$sel:infoType:RequestEnvironmentInfo' :: RequestEnvironmentInfo -> EnvironmentInfoType
$sel:environmentName:RequestEnvironmentInfo' :: RequestEnvironmentInfo -> Maybe Text
$sel:environmentId:RequestEnvironmentInfo' :: RequestEnvironmentInfo -> 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 EnvironmentInfoType
infoType
instance Data.ToHeaders RequestEnvironmentInfo where
toHeaders :: RequestEnvironmentInfo -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath RequestEnvironmentInfo where
toPath :: RequestEnvironmentInfo -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery RequestEnvironmentInfo where
toQuery :: RequestEnvironmentInfo -> QueryString
toQuery RequestEnvironmentInfo' {Maybe Text
EnvironmentInfoType
infoType :: EnvironmentInfoType
environmentName :: Maybe Text
environmentId :: Maybe Text
$sel:infoType:RequestEnvironmentInfo' :: RequestEnvironmentInfo -> EnvironmentInfoType
$sel:environmentName:RequestEnvironmentInfo' :: RequestEnvironmentInfo -> Maybe Text
$sel:environmentId:RequestEnvironmentInfo' :: RequestEnvironmentInfo -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"RequestEnvironmentInfo" :: 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
"InfoType" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: EnvironmentInfoType
infoType
]
data RequestEnvironmentInfoResponse = RequestEnvironmentInfoResponse'
{
}
deriving (RequestEnvironmentInfoResponse
-> RequestEnvironmentInfoResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RequestEnvironmentInfoResponse
-> RequestEnvironmentInfoResponse -> Bool
$c/= :: RequestEnvironmentInfoResponse
-> RequestEnvironmentInfoResponse -> Bool
== :: RequestEnvironmentInfoResponse
-> RequestEnvironmentInfoResponse -> Bool
$c== :: RequestEnvironmentInfoResponse
-> RequestEnvironmentInfoResponse -> Bool
Prelude.Eq, ReadPrec [RequestEnvironmentInfoResponse]
ReadPrec RequestEnvironmentInfoResponse
Int -> ReadS RequestEnvironmentInfoResponse
ReadS [RequestEnvironmentInfoResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [RequestEnvironmentInfoResponse]
$creadListPrec :: ReadPrec [RequestEnvironmentInfoResponse]
readPrec :: ReadPrec RequestEnvironmentInfoResponse
$creadPrec :: ReadPrec RequestEnvironmentInfoResponse
readList :: ReadS [RequestEnvironmentInfoResponse]
$creadList :: ReadS [RequestEnvironmentInfoResponse]
readsPrec :: Int -> ReadS RequestEnvironmentInfoResponse
$creadsPrec :: Int -> ReadS RequestEnvironmentInfoResponse
Prelude.Read, Int -> RequestEnvironmentInfoResponse -> ShowS
[RequestEnvironmentInfoResponse] -> ShowS
RequestEnvironmentInfoResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RequestEnvironmentInfoResponse] -> ShowS
$cshowList :: [RequestEnvironmentInfoResponse] -> ShowS
show :: RequestEnvironmentInfoResponse -> String
$cshow :: RequestEnvironmentInfoResponse -> String
showsPrec :: Int -> RequestEnvironmentInfoResponse -> ShowS
$cshowsPrec :: Int -> RequestEnvironmentInfoResponse -> ShowS
Prelude.Show, forall x.
Rep RequestEnvironmentInfoResponse x
-> RequestEnvironmentInfoResponse
forall x.
RequestEnvironmentInfoResponse
-> Rep RequestEnvironmentInfoResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep RequestEnvironmentInfoResponse x
-> RequestEnvironmentInfoResponse
$cfrom :: forall x.
RequestEnvironmentInfoResponse
-> Rep RequestEnvironmentInfoResponse x
Prelude.Generic)
newRequestEnvironmentInfoResponse ::
RequestEnvironmentInfoResponse
newRequestEnvironmentInfoResponse :: RequestEnvironmentInfoResponse
newRequestEnvironmentInfoResponse =
RequestEnvironmentInfoResponse
RequestEnvironmentInfoResponse'
instance
Prelude.NFData
RequestEnvironmentInfoResponse
where
rnf :: RequestEnvironmentInfoResponse -> ()
rnf RequestEnvironmentInfoResponse
_ = ()