module Network.AWS.CodeDeploy.DeregisterOnPremisesInstance
(
deregisterOnPremisesInstance
, DeregisterOnPremisesInstance
, dopiInstanceName
, deregisterOnPremisesInstanceResponse
, DeregisterOnPremisesInstanceResponse
) where
import Network.AWS.CodeDeploy.Types
import Network.AWS.CodeDeploy.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeregisterOnPremisesInstance = DeregisterOnPremisesInstance'
{ _dopiInstanceName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deregisterOnPremisesInstance
:: Text
-> DeregisterOnPremisesInstance
deregisterOnPremisesInstance pInstanceName_ =
DeregisterOnPremisesInstance'
{ _dopiInstanceName = pInstanceName_
}
dopiInstanceName :: Lens' DeregisterOnPremisesInstance Text
dopiInstanceName = lens _dopiInstanceName (\ s a -> s{_dopiInstanceName = a});
instance AWSRequest DeregisterOnPremisesInstance
where
type Rs DeregisterOnPremisesInstance =
DeregisterOnPremisesInstanceResponse
request = postJSON codeDeploy
response
= receiveNull DeregisterOnPremisesInstanceResponse'
instance ToHeaders DeregisterOnPremisesInstance where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeDeploy_20141006.DeregisterOnPremisesInstance"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeregisterOnPremisesInstance where
toJSON DeregisterOnPremisesInstance'{..}
= object
(catMaybes
[Just ("instanceName" .= _dopiInstanceName)])
instance ToPath DeregisterOnPremisesInstance where
toPath = const "/"
instance ToQuery DeregisterOnPremisesInstance where
toQuery = const mempty
data DeregisterOnPremisesInstanceResponse =
DeregisterOnPremisesInstanceResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deregisterOnPremisesInstanceResponse
:: DeregisterOnPremisesInstanceResponse
deregisterOnPremisesInstanceResponse = DeregisterOnPremisesInstanceResponse'