{-# 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.UpdateDomainContactPrivacy
(
updateDomainContactPrivacy
, UpdateDomainContactPrivacy
, udcpTechPrivacy
, udcpRegistrantPrivacy
, udcpAdminPrivacy
, udcpDomainName
, updateDomainContactPrivacyResponse
, UpdateDomainContactPrivacyResponse
, udcprsResponseStatus
, udcprsOperationId
) 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
data UpdateDomainContactPrivacy = UpdateDomainContactPrivacy'
{ _udcpTechPrivacy :: !(Maybe Bool)
, _udcpRegistrantPrivacy :: !(Maybe Bool)
, _udcpAdminPrivacy :: !(Maybe Bool)
, _udcpDomainName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
updateDomainContactPrivacy
:: Text
-> UpdateDomainContactPrivacy
updateDomainContactPrivacy pDomainName_ =
UpdateDomainContactPrivacy'
{ _udcpTechPrivacy = Nothing
, _udcpRegistrantPrivacy = Nothing
, _udcpAdminPrivacy = Nothing
, _udcpDomainName = pDomainName_
}
udcpTechPrivacy :: Lens' UpdateDomainContactPrivacy (Maybe Bool)
udcpTechPrivacy = lens _udcpTechPrivacy (\ s a -> s{_udcpTechPrivacy = a});
udcpRegistrantPrivacy :: Lens' UpdateDomainContactPrivacy (Maybe Bool)
udcpRegistrantPrivacy = lens _udcpRegistrantPrivacy (\ s a -> s{_udcpRegistrantPrivacy = a});
udcpAdminPrivacy :: Lens' UpdateDomainContactPrivacy (Maybe Bool)
udcpAdminPrivacy = lens _udcpAdminPrivacy (\ s a -> s{_udcpAdminPrivacy = a});
udcpDomainName :: Lens' UpdateDomainContactPrivacy Text
udcpDomainName = lens _udcpDomainName (\ s a -> s{_udcpDomainName = a});
instance AWSRequest UpdateDomainContactPrivacy where
type Rs UpdateDomainContactPrivacy =
UpdateDomainContactPrivacyResponse
request = postJSON route53Domains
response
= receiveJSON
(\ s h x ->
UpdateDomainContactPrivacyResponse' <$>
(pure (fromEnum s)) <*> (x .:> "OperationId"))
instance Hashable UpdateDomainContactPrivacy
instance NFData UpdateDomainContactPrivacy
instance ToHeaders UpdateDomainContactPrivacy where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Route53Domains_v20140515.UpdateDomainContactPrivacy"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateDomainContactPrivacy where
toJSON UpdateDomainContactPrivacy'{..}
= object
(catMaybes
[("TechPrivacy" .=) <$> _udcpTechPrivacy,
("RegistrantPrivacy" .=) <$> _udcpRegistrantPrivacy,
("AdminPrivacy" .=) <$> _udcpAdminPrivacy,
Just ("DomainName" .= _udcpDomainName)])
instance ToPath UpdateDomainContactPrivacy where
toPath = const "/"
instance ToQuery UpdateDomainContactPrivacy where
toQuery = const mempty
data UpdateDomainContactPrivacyResponse = UpdateDomainContactPrivacyResponse'
{ _udcprsResponseStatus :: !Int
, _udcprsOperationId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
updateDomainContactPrivacyResponse
:: Int
-> Text
-> UpdateDomainContactPrivacyResponse
updateDomainContactPrivacyResponse pResponseStatus_ pOperationId_ =
UpdateDomainContactPrivacyResponse'
{ _udcprsResponseStatus = pResponseStatus_
, _udcprsOperationId = pOperationId_
}
udcprsResponseStatus :: Lens' UpdateDomainContactPrivacyResponse Int
udcprsResponseStatus = lens _udcprsResponseStatus (\ s a -> s{_udcprsResponseStatus = a});
udcprsOperationId :: Lens' UpdateDomainContactPrivacyResponse Text
udcprsOperationId = lens _udcprsOperationId (\ s a -> s{_udcprsOperationId = a});
instance NFData UpdateDomainContactPrivacyResponse