{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.ElasticBeanstalk.RequestEnvironmentInfo
(
requestEnvironmentInfo
, RequestEnvironmentInfo
, reiEnvironmentName
, reiEnvironmentId
, reiInfoType
, requestEnvironmentInfoResponse
, RequestEnvironmentInfoResponse
) where
import Network.AWS.ElasticBeanstalk.Types
import Network.AWS.ElasticBeanstalk.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data RequestEnvironmentInfo = RequestEnvironmentInfo'
{ _reiEnvironmentName :: !(Maybe Text)
, _reiEnvironmentId :: !(Maybe Text)
, _reiInfoType :: !EnvironmentInfoType
} deriving (Eq,Read,Show,Data,Typeable,Generic)
requestEnvironmentInfo
:: EnvironmentInfoType
-> RequestEnvironmentInfo
requestEnvironmentInfo pInfoType_ =
RequestEnvironmentInfo'
{ _reiEnvironmentName = Nothing
, _reiEnvironmentId = Nothing
, _reiInfoType = pInfoType_
}
reiEnvironmentName :: Lens' RequestEnvironmentInfo (Maybe Text)
reiEnvironmentName = lens _reiEnvironmentName (\ s a -> s{_reiEnvironmentName = a});
reiEnvironmentId :: Lens' RequestEnvironmentInfo (Maybe Text)
reiEnvironmentId = lens _reiEnvironmentId (\ s a -> s{_reiEnvironmentId = a});
reiInfoType :: Lens' RequestEnvironmentInfo EnvironmentInfoType
reiInfoType = lens _reiInfoType (\ s a -> s{_reiInfoType = a});
instance AWSRequest RequestEnvironmentInfo where
type Rs RequestEnvironmentInfo =
RequestEnvironmentInfoResponse
request = postQuery elasticBeanstalk
response
= receiveNull RequestEnvironmentInfoResponse'
instance Hashable RequestEnvironmentInfo
instance NFData RequestEnvironmentInfo
instance ToHeaders RequestEnvironmentInfo where
toHeaders = const mempty
instance ToPath RequestEnvironmentInfo where
toPath = const "/"
instance ToQuery RequestEnvironmentInfo where
toQuery RequestEnvironmentInfo'{..}
= mconcat
["Action" =:
("RequestEnvironmentInfo" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"EnvironmentName" =: _reiEnvironmentName,
"EnvironmentId" =: _reiEnvironmentId,
"InfoType" =: _reiInfoType]
data RequestEnvironmentInfoResponse =
RequestEnvironmentInfoResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
requestEnvironmentInfoResponse
:: RequestEnvironmentInfoResponse
requestEnvironmentInfoResponse = RequestEnvironmentInfoResponse'
instance NFData RequestEnvironmentInfoResponse