{-# 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.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 where
instance NFData DisableDomainTransferLock where
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
where