module Network.AWS.EC2.RestoreAddressToClassic
(
restoreAddressToClassic
, RestoreAddressToClassic
, ratcDryRun
, ratcPublicIP
, restoreAddressToClassicResponse
, RestoreAddressToClassicResponse
, ratcrsPublicIP
, ratcrsStatus
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
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 .@? "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-04-15" :: ByteString),
"DryRun" =: _ratcDryRun, "PublicIp" =: _ratcPublicIP]
data RestoreAddressToClassicResponse = RestoreAddressToClassicResponse'
{ _ratcrsPublicIP :: !(Maybe Text)
, _ratcrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
restoreAddressToClassicResponse
:: Int
-> RestoreAddressToClassicResponse
restoreAddressToClassicResponse pStatus_ =
RestoreAddressToClassicResponse'
{ _ratcrsPublicIP = Nothing
, _ratcrsStatus = pStatus_
}
ratcrsPublicIP :: Lens' RestoreAddressToClassicResponse (Maybe Text)
ratcrsPublicIP = lens _ratcrsPublicIP (\ s a -> s{_ratcrsPublicIP = a});
ratcrsStatus :: Lens' RestoreAddressToClassicResponse Int
ratcrsStatus = lens _ratcrsStatus (\ s a -> s{_ratcrsStatus = a});