module Network.AWS.Route53.UpdateTrafficPolicyComment
(
updateTrafficPolicyComment
, UpdateTrafficPolicyComment
, utpcId
, utpcVersion
, utpcComment
, updateTrafficPolicyCommentResponse
, UpdateTrafficPolicyCommentResponse
, utpcrsResponseStatus
, utpcrsTrafficPolicy
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.Route53.Types
import Network.AWS.Route53.Types.Product
data UpdateTrafficPolicyComment = UpdateTrafficPolicyComment'
{ _utpcId :: !Text
, _utpcVersion :: !Nat
, _utpcComment :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
updateTrafficPolicyComment
:: Text
-> Natural
-> Text
-> UpdateTrafficPolicyComment
updateTrafficPolicyComment pId_ pVersion_ pComment_ =
UpdateTrafficPolicyComment'
{ _utpcId = pId_
, _utpcVersion = _Nat # pVersion_
, _utpcComment = pComment_
}
utpcId :: Lens' UpdateTrafficPolicyComment Text
utpcId = lens _utpcId (\ s a -> s{_utpcId = a});
utpcVersion :: Lens' UpdateTrafficPolicyComment Natural
utpcVersion = lens _utpcVersion (\ s a -> s{_utpcVersion = a}) . _Nat;
utpcComment :: Lens' UpdateTrafficPolicyComment Text
utpcComment = lens _utpcComment (\ s a -> s{_utpcComment = a});
instance AWSRequest UpdateTrafficPolicyComment where
type Rs UpdateTrafficPolicyComment =
UpdateTrafficPolicyCommentResponse
request = postXML route53
response
= receiveXML
(\ s h x ->
UpdateTrafficPolicyCommentResponse' <$>
(pure (fromEnum s)) <*> (x .@ "TrafficPolicy"))
instance ToElement UpdateTrafficPolicyComment where
toElement
= mkElement
"{https://route53.amazonaws.com/doc/2013-04-01/}UpdateTrafficPolicyCommentRequest"
instance ToHeaders UpdateTrafficPolicyComment where
toHeaders = const mempty
instance ToPath UpdateTrafficPolicyComment where
toPath UpdateTrafficPolicyComment'{..}
= mconcat
["/2013-04-01/trafficpolicy/", toBS _utpcId, "/",
toBS _utpcVersion]
instance ToQuery UpdateTrafficPolicyComment where
toQuery = const mempty
instance ToXML UpdateTrafficPolicyComment where
toXML UpdateTrafficPolicyComment'{..}
= mconcat ["Comment" @= _utpcComment]
data UpdateTrafficPolicyCommentResponse = UpdateTrafficPolicyCommentResponse'
{ _utpcrsResponseStatus :: !Int
, _utpcrsTrafficPolicy :: !TrafficPolicy
} deriving (Eq,Read,Show,Data,Typeable,Generic)
updateTrafficPolicyCommentResponse
:: Int
-> TrafficPolicy
-> UpdateTrafficPolicyCommentResponse
updateTrafficPolicyCommentResponse pResponseStatus_ pTrafficPolicy_ =
UpdateTrafficPolicyCommentResponse'
{ _utpcrsResponseStatus = pResponseStatus_
, _utpcrsTrafficPolicy = pTrafficPolicy_
}
utpcrsResponseStatus :: Lens' UpdateTrafficPolicyCommentResponse Int
utpcrsResponseStatus = lens _utpcrsResponseStatus (\ s a -> s{_utpcrsResponseStatus = a});
utpcrsTrafficPolicy :: Lens' UpdateTrafficPolicyCommentResponse TrafficPolicy
utpcrsTrafficPolicy = lens _utpcrsTrafficPolicy (\ s a -> s{_utpcrsTrafficPolicy = a});