module Network.AWS.Route53Domains.DisableDomainTransferLock
(
disableDomainTransferLock
, DisableDomainTransferLock
, ddtlDomainName
, disableDomainTransferLockResponse
, DisableDomainTransferLockResponse
, ddtlrsResponseStatus
, ddtlrsOperationId
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.Route53Domains.Types
import Network.AWS.Route53Domains.Types.Product
newtype DisableDomainTransferLock = DisableDomainTransferLock'
{ _ddtlDomainName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
disableDomainTransferLock
:: Text
-> DisableDomainTransferLock
disableDomainTransferLock pDomainName_ =
DisableDomainTransferLock'
{ _ddtlDomainName = pDomainName_
}
ddtlDomainName :: Lens' DisableDomainTransferLock Text
ddtlDomainName = lens _ddtlDomainName (\ s a -> s{_ddtlDomainName = a});
instance AWSRequest DisableDomainTransferLock where
type Rs DisableDomainTransferLock =
DisableDomainTransferLockResponse
request = postJSON route53Domains
response
= receiveJSON
(\ s h x ->
DisableDomainTransferLockResponse' <$>
(pure (fromEnum s)) <*> (x .:> "OperationId"))
instance Hashable DisableDomainTransferLock
instance NFData DisableDomainTransferLock
instance ToHeaders DisableDomainTransferLock where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Route53Domains_v20140515.DisableDomainTransferLock"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DisableDomainTransferLock where
toJSON DisableDomainTransferLock'{..}
= object
(catMaybes [Just ("DomainName" .= _ddtlDomainName)])
instance ToPath DisableDomainTransferLock where
toPath = const "/"
instance ToQuery DisableDomainTransferLock where
toQuery = const mempty
data DisableDomainTransferLockResponse = DisableDomainTransferLockResponse'
{ _ddtlrsResponseStatus :: !Int
, _ddtlrsOperationId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
disableDomainTransferLockResponse
:: Int
-> Text
-> DisableDomainTransferLockResponse
disableDomainTransferLockResponse pResponseStatus_ pOperationId_ =
DisableDomainTransferLockResponse'
{ _ddtlrsResponseStatus = pResponseStatus_
, _ddtlrsOperationId = pOperationId_
}
ddtlrsResponseStatus :: Lens' DisableDomainTransferLockResponse Int
ddtlrsResponseStatus = lens _ddtlrsResponseStatus (\ s a -> s{_ddtlrsResponseStatus = a});
ddtlrsOperationId :: Lens' DisableDomainTransferLockResponse Text
ddtlrsOperationId = lens _ddtlrsOperationId (\ s a -> s{_ddtlrsOperationId = a});
instance NFData DisableDomainTransferLockResponse