module Network.AWS.EC2.ModifyInstanceAttribute
(
ModifyInstanceAttribute
, modifyInstanceAttribute
, mia1Attribute
, mia1BlockDeviceMappings
, mia1DisableApiTermination
, mia1DryRun
, mia1EbsOptimized
, mia1Groups
, mia1InstanceId
, mia1InstanceInitiatedShutdownBehavior
, mia1InstanceType
, mia1Kernel
, mia1Ramdisk
, mia1SourceDestCheck
, mia1SriovNetSupport
, mia1UserData
, mia1Value
, ModifyInstanceAttributeResponse
, modifyInstanceAttributeResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data ModifyInstanceAttribute = ModifyInstanceAttribute
{ _mia1Attribute :: Maybe InstanceAttributeName
, _mia1BlockDeviceMappings :: List "item" InstanceBlockDeviceMappingSpecification
, _mia1DisableApiTermination :: Maybe AttributeBooleanValue
, _mia1DryRun :: Maybe Bool
, _mia1EbsOptimized :: Maybe AttributeBooleanValue
, _mia1Groups :: List "groupId" Text
, _mia1InstanceId :: Text
, _mia1InstanceInitiatedShutdownBehavior :: Maybe AttributeValue
, _mia1InstanceType :: Maybe AttributeValue
, _mia1Kernel :: Maybe AttributeValue
, _mia1Ramdisk :: Maybe AttributeValue
, _mia1SourceDestCheck :: Maybe AttributeBooleanValue
, _mia1SriovNetSupport :: Maybe AttributeValue
, _mia1UserData :: Maybe BlobAttributeValue
, _mia1Value :: Maybe Text
} deriving (Eq, Show)
modifyInstanceAttribute :: Text
-> ModifyInstanceAttribute
modifyInstanceAttribute p1 = ModifyInstanceAttribute
{ _mia1InstanceId = p1
, _mia1DryRun = Nothing
, _mia1Attribute = Nothing
, _mia1Value = Nothing
, _mia1BlockDeviceMappings = mempty
, _mia1SourceDestCheck = Nothing
, _mia1DisableApiTermination = Nothing
, _mia1InstanceType = Nothing
, _mia1Kernel = Nothing
, _mia1Ramdisk = Nothing
, _mia1UserData = Nothing
, _mia1InstanceInitiatedShutdownBehavior = Nothing
, _mia1Groups = mempty
, _mia1EbsOptimized = Nothing
, _mia1SriovNetSupport = Nothing
}
mia1Attribute :: Lens' ModifyInstanceAttribute (Maybe InstanceAttributeName)
mia1Attribute = lens _mia1Attribute (\s a -> s { _mia1Attribute = a })
mia1BlockDeviceMappings :: Lens' ModifyInstanceAttribute [InstanceBlockDeviceMappingSpecification]
mia1BlockDeviceMappings =
lens _mia1BlockDeviceMappings (\s a -> s { _mia1BlockDeviceMappings = a })
. _List
mia1DisableApiTermination :: Lens' ModifyInstanceAttribute (Maybe AttributeBooleanValue)
mia1DisableApiTermination =
lens _mia1DisableApiTermination
(\s a -> s { _mia1DisableApiTermination = a })
mia1DryRun :: Lens' ModifyInstanceAttribute (Maybe Bool)
mia1DryRun = lens _mia1DryRun (\s a -> s { _mia1DryRun = a })
mia1EbsOptimized :: Lens' ModifyInstanceAttribute (Maybe AttributeBooleanValue)
mia1EbsOptimized = lens _mia1EbsOptimized (\s a -> s { _mia1EbsOptimized = a })
mia1Groups :: Lens' ModifyInstanceAttribute [Text]
mia1Groups = lens _mia1Groups (\s a -> s { _mia1Groups = a }) . _List
mia1InstanceId :: Lens' ModifyInstanceAttribute Text
mia1InstanceId = lens _mia1InstanceId (\s a -> s { _mia1InstanceId = a })
mia1InstanceInitiatedShutdownBehavior :: Lens' ModifyInstanceAttribute (Maybe AttributeValue)
mia1InstanceInitiatedShutdownBehavior =
lens _mia1InstanceInitiatedShutdownBehavior
(\s a -> s { _mia1InstanceInitiatedShutdownBehavior = a })
mia1InstanceType :: Lens' ModifyInstanceAttribute (Maybe AttributeValue)
mia1InstanceType = lens _mia1InstanceType (\s a -> s { _mia1InstanceType = a })
mia1Kernel :: Lens' ModifyInstanceAttribute (Maybe AttributeValue)
mia1Kernel = lens _mia1Kernel (\s a -> s { _mia1Kernel = a })
mia1Ramdisk :: Lens' ModifyInstanceAttribute (Maybe AttributeValue)
mia1Ramdisk = lens _mia1Ramdisk (\s a -> s { _mia1Ramdisk = a })
mia1SourceDestCheck :: Lens' ModifyInstanceAttribute (Maybe AttributeBooleanValue)
mia1SourceDestCheck =
lens _mia1SourceDestCheck (\s a -> s { _mia1SourceDestCheck = a })
mia1SriovNetSupport :: Lens' ModifyInstanceAttribute (Maybe AttributeValue)
mia1SriovNetSupport =
lens _mia1SriovNetSupport (\s a -> s { _mia1SriovNetSupport = a })
mia1UserData :: Lens' ModifyInstanceAttribute (Maybe BlobAttributeValue)
mia1UserData = lens _mia1UserData (\s a -> s { _mia1UserData = a })
mia1Value :: Lens' ModifyInstanceAttribute (Maybe Text)
mia1Value = lens _mia1Value (\s a -> s { _mia1Value = a })
data ModifyInstanceAttributeResponse = ModifyInstanceAttributeResponse
deriving (Eq, Ord, Show, Generic)
modifyInstanceAttributeResponse :: ModifyInstanceAttributeResponse
modifyInstanceAttributeResponse = ModifyInstanceAttributeResponse
instance ToPath ModifyInstanceAttribute where
toPath = const "/"
instance ToQuery ModifyInstanceAttribute where
toQuery ModifyInstanceAttribute{..} = mconcat
[ "attribute" =? _mia1Attribute
, "blockDeviceMapping" =? _mia1BlockDeviceMappings
, "disableApiTermination" =? _mia1DisableApiTermination
, "dryRun" =? _mia1DryRun
, "ebsOptimized" =? _mia1EbsOptimized
, "GroupId" =? _mia1Groups
, "instanceId" =? _mia1InstanceId
, "instanceInitiatedShutdownBehavior" =? _mia1InstanceInitiatedShutdownBehavior
, "instanceType" =? _mia1InstanceType
, "kernel" =? _mia1Kernel
, "ramdisk" =? _mia1Ramdisk
, "SourceDestCheck" =? _mia1SourceDestCheck
, "sriovNetSupport" =? _mia1SriovNetSupport
, "userData" =? _mia1UserData
, "value" =? _mia1Value
]
instance ToHeaders ModifyInstanceAttribute
instance AWSRequest ModifyInstanceAttribute where
type Sv ModifyInstanceAttribute = EC2
type Rs ModifyInstanceAttribute = ModifyInstanceAttributeResponse
request = post "ModifyInstanceAttribute"
response = nullResponse ModifyInstanceAttributeResponse