{-# 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.DescribeVolumeAttribute
(
describeVolumeAttribute
, DescribeVolumeAttribute
, dvaAttribute
, dvaDryRun
, dvaVolumeId
, describeVolumeAttributeResponse
, DescribeVolumeAttributeResponse
, dvarsVolumeId
, dvarsProductCodes
, dvarsAutoEnableIO
, dvarsResponseStatus
) 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 DescribeVolumeAttribute = DescribeVolumeAttribute'
{ _dvaAttribute :: !(Maybe VolumeAttributeName)
, _dvaDryRun :: !(Maybe Bool)
, _dvaVolumeId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeVolumeAttribute
:: Text
-> DescribeVolumeAttribute
describeVolumeAttribute pVolumeId_ =
DescribeVolumeAttribute'
{_dvaAttribute = Nothing, _dvaDryRun = Nothing, _dvaVolumeId = pVolumeId_}
dvaAttribute :: Lens' DescribeVolumeAttribute (Maybe VolumeAttributeName)
dvaAttribute = lens _dvaAttribute (\ s a -> s{_dvaAttribute = a})
dvaDryRun :: Lens' DescribeVolumeAttribute (Maybe Bool)
dvaDryRun = lens _dvaDryRun (\ s a -> s{_dvaDryRun = a})
dvaVolumeId :: Lens' DescribeVolumeAttribute Text
dvaVolumeId = lens _dvaVolumeId (\ s a -> s{_dvaVolumeId = a})
instance AWSRequest DescribeVolumeAttribute where
type Rs DescribeVolumeAttribute =
DescribeVolumeAttributeResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
DescribeVolumeAttributeResponse' <$>
(x .@? "volumeId") <*>
(x .@? "productCodes" .!@ mempty >>=
may (parseXMLList "item"))
<*> (x .@? "autoEnableIO")
<*> (pure (fromEnum s)))
instance Hashable DescribeVolumeAttribute where
instance NFData DescribeVolumeAttribute where
instance ToHeaders DescribeVolumeAttribute where
toHeaders = const mempty
instance ToPath DescribeVolumeAttribute where
toPath = const "/"
instance ToQuery DescribeVolumeAttribute where
toQuery DescribeVolumeAttribute'{..}
= mconcat
["Action" =:
("DescribeVolumeAttribute" :: ByteString),
"Version" =: ("2016-11-15" :: ByteString),
"Attribute" =: _dvaAttribute, "DryRun" =: _dvaDryRun,
"VolumeId" =: _dvaVolumeId]
data DescribeVolumeAttributeResponse = DescribeVolumeAttributeResponse'
{ _dvarsVolumeId :: !(Maybe Text)
, _dvarsProductCodes :: !(Maybe [ProductCode])
, _dvarsAutoEnableIO :: !(Maybe AttributeBooleanValue)
, _dvarsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeVolumeAttributeResponse
:: Int
-> DescribeVolumeAttributeResponse
describeVolumeAttributeResponse pResponseStatus_ =
DescribeVolumeAttributeResponse'
{ _dvarsVolumeId = Nothing
, _dvarsProductCodes = Nothing
, _dvarsAutoEnableIO = Nothing
, _dvarsResponseStatus = pResponseStatus_
}
dvarsVolumeId :: Lens' DescribeVolumeAttributeResponse (Maybe Text)
dvarsVolumeId = lens _dvarsVolumeId (\ s a -> s{_dvarsVolumeId = a})
dvarsProductCodes :: Lens' DescribeVolumeAttributeResponse [ProductCode]
dvarsProductCodes = lens _dvarsProductCodes (\ s a -> s{_dvarsProductCodes = a}) . _Default . _Coerce
dvarsAutoEnableIO :: Lens' DescribeVolumeAttributeResponse (Maybe AttributeBooleanValue)
dvarsAutoEnableIO = lens _dvarsAutoEnableIO (\ s a -> s{_dvarsAutoEnableIO = a})
dvarsResponseStatus :: Lens' DescribeVolumeAttributeResponse Int
dvarsResponseStatus = lens _dvarsResponseStatus (\ s a -> s{_dvarsResponseStatus = a})
instance NFData DescribeVolumeAttributeResponse where