{-# 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.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 Hashable RestoreAddressToClassic where
instance NFData RestoreAddressToClassic where
instance ToHeaders RestoreAddressToClassic where
toHeaders = const mempty
instance ToPath RestoreAddressToClassic where
toPath = const "/"
instance ToQuery RestoreAddressToClassic where
toQuery RestoreAddressToClassic'{..}
= mconcat
["Action" =:
("RestoreAddressToClassic" :: ByteString),
"Version" =: ("2016-11-15" :: 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})
instance NFData RestoreAddressToClassicResponse where