{-# 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.CodeDeploy.SkipWaitTimeForInstanceTermination
(
skipWaitTimeForInstanceTermination
, SkipWaitTimeForInstanceTermination
, swtfitDeploymentId
, skipWaitTimeForInstanceTerminationResponse
, SkipWaitTimeForInstanceTerminationResponse
) where
import Network.AWS.CodeDeploy.Types
import Network.AWS.CodeDeploy.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype SkipWaitTimeForInstanceTermination = SkipWaitTimeForInstanceTermination'
{ _swtfitDeploymentId :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
skipWaitTimeForInstanceTermination
:: SkipWaitTimeForInstanceTermination
skipWaitTimeForInstanceTermination =
SkipWaitTimeForInstanceTermination' {_swtfitDeploymentId = Nothing}
swtfitDeploymentId :: Lens' SkipWaitTimeForInstanceTermination (Maybe Text)
swtfitDeploymentId = lens _swtfitDeploymentId (\ s a -> s{_swtfitDeploymentId = a})
instance AWSRequest
SkipWaitTimeForInstanceTermination
where
type Rs SkipWaitTimeForInstanceTermination =
SkipWaitTimeForInstanceTerminationResponse
request = postJSON codeDeploy
response
= receiveNull
SkipWaitTimeForInstanceTerminationResponse'
instance Hashable SkipWaitTimeForInstanceTermination
where
instance NFData SkipWaitTimeForInstanceTermination
where
instance ToHeaders SkipWaitTimeForInstanceTermination
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeDeploy_20141006.SkipWaitTimeForInstanceTermination"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON SkipWaitTimeForInstanceTermination
where
toJSON SkipWaitTimeForInstanceTermination'{..}
= object
(catMaybes
[("deploymentId" .=) <$> _swtfitDeploymentId])
instance ToPath SkipWaitTimeForInstanceTermination
where
toPath = const "/"
instance ToQuery SkipWaitTimeForInstanceTermination
where
toQuery = const mempty
data SkipWaitTimeForInstanceTerminationResponse =
SkipWaitTimeForInstanceTerminationResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
skipWaitTimeForInstanceTerminationResponse
:: SkipWaitTimeForInstanceTerminationResponse
skipWaitTimeForInstanceTerminationResponse =
SkipWaitTimeForInstanceTerminationResponse'
instance NFData
SkipWaitTimeForInstanceTerminationResponse
where