{-# 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.Route53AutoNaming.DeregisterInstance
(
deregisterInstance
, DeregisterInstance
, diServiceId
, diInstanceId
, deregisterInstanceResponse
, DeregisterInstanceResponse
, dirsOperationId
, dirsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.Route53AutoNaming.Types
import Network.AWS.Route53AutoNaming.Types.Product
data DeregisterInstance = DeregisterInstance'
{ _diServiceId :: !Text
, _diInstanceId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deregisterInstance
:: Text
-> Text
-> DeregisterInstance
deregisterInstance pServiceId_ pInstanceId_ =
DeregisterInstance' {_diServiceId = pServiceId_, _diInstanceId = pInstanceId_}
diServiceId :: Lens' DeregisterInstance Text
diServiceId = lens _diServiceId (\ s a -> s{_diServiceId = a})
diInstanceId :: Lens' DeregisterInstance Text
diInstanceId = lens _diInstanceId (\ s a -> s{_diInstanceId = a})
instance AWSRequest DeregisterInstance where
type Rs DeregisterInstance =
DeregisterInstanceResponse
request = postJSON route53AutoNaming
response
= receiveJSON
(\ s h x ->
DeregisterInstanceResponse' <$>
(x .?> "OperationId") <*> (pure (fromEnum s)))
instance Hashable DeregisterInstance where
instance NFData DeregisterInstance where
instance ToHeaders DeregisterInstance where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Route53AutoNaming_v20170314.DeregisterInstance" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeregisterInstance where
toJSON DeregisterInstance'{..}
= object
(catMaybes
[Just ("ServiceId" .= _diServiceId),
Just ("InstanceId" .= _diInstanceId)])
instance ToPath DeregisterInstance where
toPath = const "/"
instance ToQuery DeregisterInstance where
toQuery = const mempty
data DeregisterInstanceResponse = DeregisterInstanceResponse'
{ _dirsOperationId :: !(Maybe Text)
, _dirsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deregisterInstanceResponse
:: Int
-> DeregisterInstanceResponse
deregisterInstanceResponse pResponseStatus_ =
DeregisterInstanceResponse'
{_dirsOperationId = Nothing, _dirsResponseStatus = pResponseStatus_}
dirsOperationId :: Lens' DeregisterInstanceResponse (Maybe Text)
dirsOperationId = lens _dirsOperationId (\ s a -> s{_dirsOperationId = a})
dirsResponseStatus :: Lens' DeregisterInstanceResponse Int
dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a})
instance NFData DeregisterInstanceResponse where