module Network.AWS.EC2.ResetImageAttribute
(
resetImageAttribute
, ResetImageAttribute
, resDryRun
, resImageId
, resAttribute
, resetImageAttributeResponse
, ResetImageAttributeResponse
) 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 ResetImageAttribute = ResetImageAttribute'
{ _resDryRun :: !(Maybe Bool)
, _resImageId :: !Text
, _resAttribute :: !ResetImageAttributeName
} deriving (Eq,Read,Show,Data,Typeable,Generic)
resetImageAttribute
:: Text
-> ResetImageAttributeName
-> ResetImageAttribute
resetImageAttribute pImageId_ pAttribute_ =
ResetImageAttribute'
{ _resDryRun = Nothing
, _resImageId = pImageId_
, _resAttribute = pAttribute_
}
resDryRun :: Lens' ResetImageAttribute (Maybe Bool)
resDryRun = lens _resDryRun (\ s a -> s{_resDryRun = a});
resImageId :: Lens' ResetImageAttribute Text
resImageId = lens _resImageId (\ s a -> s{_resImageId = a});
resAttribute :: Lens' ResetImageAttribute ResetImageAttributeName
resAttribute = lens _resAttribute (\ s a -> s{_resAttribute = a});
instance AWSRequest ResetImageAttribute where
type Rs ResetImageAttribute =
ResetImageAttributeResponse
request = postQuery eC2
response = receiveNull ResetImageAttributeResponse'
instance ToHeaders ResetImageAttribute where
toHeaders = const mempty
instance ToPath ResetImageAttribute where
toPath = const "/"
instance ToQuery ResetImageAttribute where
toQuery ResetImageAttribute'{..}
= mconcat
["Action" =: ("ResetImageAttribute" :: ByteString),
"Version" =: ("2015-04-15" :: ByteString),
"DryRun" =: _resDryRun, "ImageId" =: _resImageId,
"Attribute" =: _resAttribute]
data ResetImageAttributeResponse =
ResetImageAttributeResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
resetImageAttributeResponse
:: ResetImageAttributeResponse
resetImageAttributeResponse = ResetImageAttributeResponse'