{-# 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.ResetInstanceAttribute
(
resetInstanceAttribute
, ResetInstanceAttribute
, riaDryRun
, riaInstanceId
, riaAttribute
, resetInstanceAttributeResponse
, ResetInstanceAttributeResponse
) 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 ResetInstanceAttribute = ResetInstanceAttribute'
{ _riaDryRun :: !(Maybe Bool)
, _riaInstanceId :: !Text
, _riaAttribute :: !InstanceAttributeName
} deriving (Eq,Read,Show,Data,Typeable,Generic)
resetInstanceAttribute
:: Text
-> InstanceAttributeName
-> ResetInstanceAttribute
resetInstanceAttribute pInstanceId_ pAttribute_ =
ResetInstanceAttribute'
{ _riaDryRun = Nothing
, _riaInstanceId = pInstanceId_
, _riaAttribute = pAttribute_
}
riaDryRun :: Lens' ResetInstanceAttribute (Maybe Bool)
riaDryRun = lens _riaDryRun (\ s a -> s{_riaDryRun = a});
riaInstanceId :: Lens' ResetInstanceAttribute Text
riaInstanceId = lens _riaInstanceId (\ s a -> s{_riaInstanceId = a});
riaAttribute :: Lens' ResetInstanceAttribute InstanceAttributeName
riaAttribute = lens _riaAttribute (\ s a -> s{_riaAttribute = a});
instance AWSRequest ResetInstanceAttribute where
type Rs ResetInstanceAttribute =
ResetInstanceAttributeResponse
request = postQuery ec2
response
= receiveNull ResetInstanceAttributeResponse'
instance Hashable ResetInstanceAttribute
instance NFData ResetInstanceAttribute
instance ToHeaders ResetInstanceAttribute where
toHeaders = const mempty
instance ToPath ResetInstanceAttribute where
toPath = const "/"
instance ToQuery ResetInstanceAttribute where
toQuery ResetInstanceAttribute'{..}
= mconcat
["Action" =:
("ResetInstanceAttribute" :: ByteString),
"Version" =: ("2016-04-01" :: ByteString),
"DryRun" =: _riaDryRun,
"InstanceId" =: _riaInstanceId,
"Attribute" =: _riaAttribute]
data ResetInstanceAttributeResponse =
ResetInstanceAttributeResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
resetInstanceAttributeResponse
:: ResetInstanceAttributeResponse
resetInstanceAttributeResponse = ResetInstanceAttributeResponse'
instance NFData ResetInstanceAttributeResponse