module Network.AWS.ElasticBeanstalk.RestartAppServer
(
restartAppServer
, RestartAppServer
, rasEnvironmentName
, rasEnvironmentId
, restartAppServerResponse
, RestartAppServerResponse
) 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 RestartAppServer = RestartAppServer'
{ _rasEnvironmentName :: !(Maybe Text)
, _rasEnvironmentId :: !(Maybe Text)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
restartAppServer
:: RestartAppServer
restartAppServer =
RestartAppServer'
{ _rasEnvironmentName = Nothing
, _rasEnvironmentId = Nothing
}
rasEnvironmentName :: Lens' RestartAppServer (Maybe Text)
rasEnvironmentName = lens _rasEnvironmentName (\ s a -> s{_rasEnvironmentName = a});
rasEnvironmentId :: Lens' RestartAppServer (Maybe Text)
rasEnvironmentId = lens _rasEnvironmentId (\ s a -> s{_rasEnvironmentId = a});
instance AWSRequest RestartAppServer where
type Rs RestartAppServer = RestartAppServerResponse
request = postQuery elasticBeanstalk
response = receiveNull RestartAppServerResponse'
instance Hashable RestartAppServer
instance NFData RestartAppServer
instance ToHeaders RestartAppServer where
toHeaders = const mempty
instance ToPath RestartAppServer where
toPath = const "/"
instance ToQuery RestartAppServer where
toQuery RestartAppServer'{..}
= mconcat
["Action" =: ("RestartAppServer" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"EnvironmentName" =: _rasEnvironmentName,
"EnvironmentId" =: _rasEnvironmentId]
data RestartAppServerResponse =
RestartAppServerResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
restartAppServerResponse
:: RestartAppServerResponse
restartAppServerResponse = RestartAppServerResponse'
instance NFData RestartAppServerResponse