module Network.AWS.EC2.DescribeInstanceAttribute
(
describeInstanceAttribute
, DescribeInstanceAttribute
, diaDryRun
, diaAttribute
, diaInstanceId
, describeInstanceAttributeResponse
, DescribeInstanceAttributeResponse
, desrsInstanceId
, desrsGroups
, desrsEnaSupport
, desrsSourceDestCheck
, desrsDisableAPITermination
, desrsRAMDiskId
, desrsKernelId
, desrsRootDeviceName
, desrsInstanceType
, desrsSRIOVNetSupport
, desrsEBSOptimized
, desrsUserData
, desrsInstanceInitiatedShutdownBehavior
, desrsProductCodes
, desrsBlockDeviceMappings
, desrsResponseStatus
) 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 DescribeInstanceAttribute = DescribeInstanceAttribute'
{ _diaDryRun :: !(Maybe Bool)
, _diaAttribute :: !InstanceAttributeName
, _diaInstanceId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeInstanceAttribute
:: InstanceAttributeName
-> Text
-> DescribeInstanceAttribute
describeInstanceAttribute pAttribute_ pInstanceId_ =
DescribeInstanceAttribute'
{ _diaDryRun = Nothing
, _diaAttribute = pAttribute_
, _diaInstanceId = pInstanceId_
}
diaDryRun :: Lens' DescribeInstanceAttribute (Maybe Bool)
diaDryRun = lens _diaDryRun (\ s a -> s{_diaDryRun = a});
diaAttribute :: Lens' DescribeInstanceAttribute InstanceAttributeName
diaAttribute = lens _diaAttribute (\ s a -> s{_diaAttribute = a});
diaInstanceId :: Lens' DescribeInstanceAttribute Text
diaInstanceId = lens _diaInstanceId (\ s a -> s{_diaInstanceId = a});
instance AWSRequest DescribeInstanceAttribute where
type Rs DescribeInstanceAttribute =
DescribeInstanceAttributeResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
DescribeInstanceAttributeResponse' <$>
(x .@? "instanceId") <*>
(x .@? "groupSet" .!@ mempty >>=
may (parseXMLList "item"))
<*> (x .@? "enaSupport")
<*> (x .@? "sourceDestCheck")
<*> (x .@? "disableApiTermination")
<*> (x .@? "ramdisk")
<*> (x .@? "kernel")
<*> (x .@? "rootDeviceName")
<*> (x .@? "instanceType")
<*> (x .@? "sriovNetSupport")
<*> (x .@? "ebsOptimized")
<*> (x .@? "userData")
<*> (x .@? "instanceInitiatedShutdownBehavior")
<*>
(x .@? "productCodes" .!@ mempty >>=
may (parseXMLList "item"))
<*>
(x .@? "blockDeviceMapping" .!@ mempty >>=
may (parseXMLList "item"))
<*> (pure (fromEnum s)))
instance Hashable DescribeInstanceAttribute where
instance NFData DescribeInstanceAttribute where
instance ToHeaders DescribeInstanceAttribute where
toHeaders = const mempty
instance ToPath DescribeInstanceAttribute where
toPath = const "/"
instance ToQuery DescribeInstanceAttribute where
toQuery DescribeInstanceAttribute'{..}
= mconcat
["Action" =:
("DescribeInstanceAttribute" :: ByteString),
"Version" =: ("2016-11-15" :: ByteString),
"DryRun" =: _diaDryRun, "Attribute" =: _diaAttribute,
"InstanceId" =: _diaInstanceId]
data DescribeInstanceAttributeResponse = DescribeInstanceAttributeResponse'
{ _desrsInstanceId :: !(Maybe Text)
, _desrsGroups :: !(Maybe [GroupIdentifier])
, _desrsEnaSupport :: !(Maybe AttributeBooleanValue)
, _desrsSourceDestCheck :: !(Maybe AttributeBooleanValue)
, _desrsDisableAPITermination :: !(Maybe AttributeBooleanValue)
, _desrsRAMDiskId :: !(Maybe AttributeValue)
, _desrsKernelId :: !(Maybe AttributeValue)
, _desrsRootDeviceName :: !(Maybe AttributeValue)
, _desrsInstanceType :: !(Maybe AttributeValue)
, _desrsSRIOVNetSupport :: !(Maybe AttributeValue)
, _desrsEBSOptimized :: !(Maybe AttributeBooleanValue)
, _desrsUserData :: !(Maybe AttributeValue)
, _desrsInstanceInitiatedShutdownBehavior :: !(Maybe AttributeValue)
, _desrsProductCodes :: !(Maybe [ProductCode])
, _desrsBlockDeviceMappings :: !(Maybe [InstanceBlockDeviceMapping])
, _desrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeInstanceAttributeResponse
:: Int
-> DescribeInstanceAttributeResponse
describeInstanceAttributeResponse pResponseStatus_ =
DescribeInstanceAttributeResponse'
{ _desrsInstanceId = Nothing
, _desrsGroups = Nothing
, _desrsEnaSupport = Nothing
, _desrsSourceDestCheck = Nothing
, _desrsDisableAPITermination = Nothing
, _desrsRAMDiskId = Nothing
, _desrsKernelId = Nothing
, _desrsRootDeviceName = Nothing
, _desrsInstanceType = Nothing
, _desrsSRIOVNetSupport = Nothing
, _desrsEBSOptimized = Nothing
, _desrsUserData = Nothing
, _desrsInstanceInitiatedShutdownBehavior = Nothing
, _desrsProductCodes = Nothing
, _desrsBlockDeviceMappings = Nothing
, _desrsResponseStatus = pResponseStatus_
}
desrsInstanceId :: Lens' DescribeInstanceAttributeResponse (Maybe Text)
desrsInstanceId = lens _desrsInstanceId (\ s a -> s{_desrsInstanceId = a});
desrsGroups :: Lens' DescribeInstanceAttributeResponse [GroupIdentifier]
desrsGroups = lens _desrsGroups (\ s a -> s{_desrsGroups = a}) . _Default . _Coerce;
desrsEnaSupport :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeBooleanValue)
desrsEnaSupport = lens _desrsEnaSupport (\ s a -> s{_desrsEnaSupport = a});
desrsSourceDestCheck :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeBooleanValue)
desrsSourceDestCheck = lens _desrsSourceDestCheck (\ s a -> s{_desrsSourceDestCheck = a});
desrsDisableAPITermination :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeBooleanValue)
desrsDisableAPITermination = lens _desrsDisableAPITermination (\ s a -> s{_desrsDisableAPITermination = a});
desrsRAMDiskId :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue)
desrsRAMDiskId = lens _desrsRAMDiskId (\ s a -> s{_desrsRAMDiskId = a});
desrsKernelId :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue)
desrsKernelId = lens _desrsKernelId (\ s a -> s{_desrsKernelId = a});
desrsRootDeviceName :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue)
desrsRootDeviceName = lens _desrsRootDeviceName (\ s a -> s{_desrsRootDeviceName = a});
desrsInstanceType :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue)
desrsInstanceType = lens _desrsInstanceType (\ s a -> s{_desrsInstanceType = a});
desrsSRIOVNetSupport :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue)
desrsSRIOVNetSupport = lens _desrsSRIOVNetSupport (\ s a -> s{_desrsSRIOVNetSupport = a});
desrsEBSOptimized :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeBooleanValue)
desrsEBSOptimized = lens _desrsEBSOptimized (\ s a -> s{_desrsEBSOptimized = a});
desrsUserData :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue)
desrsUserData = lens _desrsUserData (\ s a -> s{_desrsUserData = a});
desrsInstanceInitiatedShutdownBehavior :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue)
desrsInstanceInitiatedShutdownBehavior = lens _desrsInstanceInitiatedShutdownBehavior (\ s a -> s{_desrsInstanceInitiatedShutdownBehavior = a});
desrsProductCodes :: Lens' DescribeInstanceAttributeResponse [ProductCode]
desrsProductCodes = lens _desrsProductCodes (\ s a -> s{_desrsProductCodes = a}) . _Default . _Coerce;
desrsBlockDeviceMappings :: Lens' DescribeInstanceAttributeResponse [InstanceBlockDeviceMapping]
desrsBlockDeviceMappings = lens _desrsBlockDeviceMappings (\ s a -> s{_desrsBlockDeviceMappings = a}) . _Default . _Coerce;
desrsResponseStatus :: Lens' DescribeInstanceAttributeResponse Int
desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});
instance NFData DescribeInstanceAttributeResponse
where