{-# 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.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 where
instance NFData RestartAppServer where
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 where