module Network.AWS.EC2.RestoreAddressToClassic
(
restoreAddressToClassic
, RestoreAddressToClassic
, ratcDryRun
, ratcPublicIP
, restoreAddressToClassicResponse
, RestoreAddressToClassicResponse
, ratcrsStatus
, ratcrsPublicIP
, ratcrsResponseStatus
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data RestoreAddressToClassic = RestoreAddressToClassic'
{ _ratcDryRun :: !(Maybe Bool)
, _ratcPublicIP :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
restoreAddressToClassic
:: Text
-> RestoreAddressToClassic
restoreAddressToClassic pPublicIP_ =
RestoreAddressToClassic'
{ _ratcDryRun = Nothing
, _ratcPublicIP = pPublicIP_
}
ratcDryRun :: Lens' RestoreAddressToClassic (Maybe Bool)
ratcDryRun = lens _ratcDryRun (\ s a -> s{_ratcDryRun = a});
ratcPublicIP :: Lens' RestoreAddressToClassic Text
ratcPublicIP = lens _ratcPublicIP (\ s a -> s{_ratcPublicIP = a});
instance AWSRequest RestoreAddressToClassic where
type Rs RestoreAddressToClassic =
RestoreAddressToClassicResponse
request = postQuery eC2
response
= receiveXML
(\ s h x ->
RestoreAddressToClassicResponse' <$>
(x .@? "status") <*> (x .@? "publicIp") <*>
(pure (fromEnum s)))
instance ToHeaders RestoreAddressToClassic where
toHeaders = const mempty
instance ToPath RestoreAddressToClassic where
toPath = const "/"
instance ToQuery RestoreAddressToClassic where
toQuery RestoreAddressToClassic'{..}
= mconcat
["Action" =:
("RestoreAddressToClassic" :: ByteString),
"Version" =: ("2015-10-01" :: ByteString),
"DryRun" =: _ratcDryRun, "PublicIp" =: _ratcPublicIP]
data RestoreAddressToClassicResponse = RestoreAddressToClassicResponse'
{ _ratcrsStatus :: !(Maybe AddressStatus)
, _ratcrsPublicIP :: !(Maybe Text)
, _ratcrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
restoreAddressToClassicResponse
:: Int
-> RestoreAddressToClassicResponse
restoreAddressToClassicResponse pResponseStatus_ =
RestoreAddressToClassicResponse'
{ _ratcrsStatus = Nothing
, _ratcrsPublicIP = Nothing
, _ratcrsResponseStatus = pResponseStatus_
}
ratcrsStatus :: Lens' RestoreAddressToClassicResponse (Maybe AddressStatus)
ratcrsStatus = lens _ratcrsStatus (\ s a -> s{_ratcrsStatus = a});
ratcrsPublicIP :: Lens' RestoreAddressToClassicResponse (Maybe Text)
ratcrsPublicIP = lens _ratcrsPublicIP (\ s a -> s{_ratcrsPublicIP = a});
ratcrsResponseStatus :: Lens' RestoreAddressToClassicResponse Int
ratcrsResponseStatus = lens _ratcrsResponseStatus (\ s a -> s{_ratcrsResponseStatus = a});