module Network.AWS.EC2.DescribeSnapshotAttribute
(
DescribeSnapshotAttribute
, describeSnapshotAttribute
, dsaAttribute
, dsaDryRun
, dsaSnapshotId
, DescribeSnapshotAttributeResponse
, describeSnapshotAttributeResponse
, dsarCreateVolumePermissions
, dsarProductCodes
, dsarSnapshotId
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data DescribeSnapshotAttribute = DescribeSnapshotAttribute
{ _dsaAttribute :: SnapshotAttributeName
, _dsaDryRun :: Maybe Bool
, _dsaSnapshotId :: Text
} deriving (Eq, Read, Show)
describeSnapshotAttribute :: Text
-> SnapshotAttributeName
-> DescribeSnapshotAttribute
describeSnapshotAttribute p1 p2 = DescribeSnapshotAttribute
{ _dsaSnapshotId = p1
, _dsaAttribute = p2
, _dsaDryRun = Nothing
}
dsaAttribute :: Lens' DescribeSnapshotAttribute SnapshotAttributeName
dsaAttribute = lens _dsaAttribute (\s a -> s { _dsaAttribute = a })
dsaDryRun :: Lens' DescribeSnapshotAttribute (Maybe Bool)
dsaDryRun = lens _dsaDryRun (\s a -> s { _dsaDryRun = a })
dsaSnapshotId :: Lens' DescribeSnapshotAttribute Text
dsaSnapshotId = lens _dsaSnapshotId (\s a -> s { _dsaSnapshotId = a })
data DescribeSnapshotAttributeResponse = DescribeSnapshotAttributeResponse
{ _dsarCreateVolumePermissions :: List "item" CreateVolumePermission
, _dsarProductCodes :: List "item" ProductCode
, _dsarSnapshotId :: Maybe Text
} deriving (Eq, Read, Show)
describeSnapshotAttributeResponse :: DescribeSnapshotAttributeResponse
describeSnapshotAttributeResponse = DescribeSnapshotAttributeResponse
{ _dsarSnapshotId = Nothing
, _dsarCreateVolumePermissions = mempty
, _dsarProductCodes = mempty
}
dsarCreateVolumePermissions :: Lens' DescribeSnapshotAttributeResponse [CreateVolumePermission]
dsarCreateVolumePermissions =
lens _dsarCreateVolumePermissions
(\s a -> s { _dsarCreateVolumePermissions = a })
. _List
dsarProductCodes :: Lens' DescribeSnapshotAttributeResponse [ProductCode]
dsarProductCodes = lens _dsarProductCodes (\s a -> s { _dsarProductCodes = a }) . _List
dsarSnapshotId :: Lens' DescribeSnapshotAttributeResponse (Maybe Text)
dsarSnapshotId = lens _dsarSnapshotId (\s a -> s { _dsarSnapshotId = a })
instance ToPath DescribeSnapshotAttribute where
toPath = const "/"
instance ToQuery DescribeSnapshotAttribute where
toQuery DescribeSnapshotAttribute{..} = mconcat
[ "Attribute" =? _dsaAttribute
, "DryRun" =? _dsaDryRun
, "SnapshotId" =? _dsaSnapshotId
]
instance ToHeaders DescribeSnapshotAttribute
instance AWSRequest DescribeSnapshotAttribute where
type Sv DescribeSnapshotAttribute = EC2
type Rs DescribeSnapshotAttribute = DescribeSnapshotAttributeResponse
request = post "DescribeSnapshotAttribute"
response = xmlResponse
instance FromXML DescribeSnapshotAttributeResponse where
parseXML x = DescribeSnapshotAttributeResponse
<$> x .@? "createVolumePermission" .!@ mempty
<*> x .@? "productCodes" .!@ mempty
<*> x .@? "snapshotId"