module Network.AWS.CodeDeploy.DeregisterOnPremisesInstance
(
DeregisterOnPremisesInstance
, deregisterOnPremisesInstance
, dopiInstanceName
, DeregisterOnPremisesInstanceResponse
, deregisterOnPremisesInstanceResponse
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.CodeDeploy.Types
import qualified GHC.Exts
newtype DeregisterOnPremisesInstance = DeregisterOnPremisesInstance
{ _dopiInstanceName :: Text
} deriving (Eq, Ord, Read, Show, Monoid, IsString)
deregisterOnPremisesInstance :: Text
-> DeregisterOnPremisesInstance
deregisterOnPremisesInstance p1 = DeregisterOnPremisesInstance
{ _dopiInstanceName = p1
}
dopiInstanceName :: Lens' DeregisterOnPremisesInstance Text
dopiInstanceName = lens _dopiInstanceName (\s a -> s { _dopiInstanceName = a })
data DeregisterOnPremisesInstanceResponse = DeregisterOnPremisesInstanceResponse
deriving (Eq, Ord, Read, Show, Generic)
deregisterOnPremisesInstanceResponse :: DeregisterOnPremisesInstanceResponse
deregisterOnPremisesInstanceResponse = DeregisterOnPremisesInstanceResponse
instance ToPath DeregisterOnPremisesInstance where
toPath = const "/"
instance ToQuery DeregisterOnPremisesInstance where
toQuery = const mempty
instance ToHeaders DeregisterOnPremisesInstance
instance ToJSON DeregisterOnPremisesInstance where
toJSON DeregisterOnPremisesInstance{..} = object
[ "instanceName" .= _dopiInstanceName
]
instance AWSRequest DeregisterOnPremisesInstance where
type Sv DeregisterOnPremisesInstance = CodeDeploy
type Rs DeregisterOnPremisesInstance = DeregisterOnPremisesInstanceResponse
request = post "DeregisterOnPremisesInstance"
response = nullResponse DeregisterOnPremisesInstanceResponse