{-# 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 #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. -- | -- Module : Network.AWS.EC2.ModifyImageAttribute -- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Modifies the specified attribute of the specified AMI. You can specify only one attribute at a time. You can use the @Attribute@ parameter to specify the attribute or one of the following parameters: @Description@ , @LaunchPermission@ , or @ProductCode@ . -- -- -- AWS Marketplace product codes cannot be modified. Images with an AWS Marketplace product code cannot be made public. -- -- To enable the SriovNetSupport enhanced networking attribute of an image, enable SriovNetSupport on an instance and create an AMI from the instance. -- module Network.AWS.EC2.ModifyImageAttribute ( -- * Creating a Request modifyImageAttribute , ModifyImageAttribute -- * Request Lenses , miaAttribute , miaUserIds , miaUserGroups , miaValue , miaLaunchPermission , miaOperationType , miaProductCodes , miaDescription , miaDryRun , miaImageId -- * Destructuring the Response , modifyImageAttributeResponse , ModifyImageAttributeResponse ) 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 -- | Contains the parameters for ModifyImageAttribute. -- -- -- -- /See:/ 'modifyImageAttribute' smart constructor. data ModifyImageAttribute = ModifyImageAttribute' { _miaAttribute :: !(Maybe Text) , _miaUserIds :: !(Maybe [Text]) , _miaUserGroups :: !(Maybe [Text]) , _miaValue :: !(Maybe Text) , _miaLaunchPermission :: !(Maybe LaunchPermissionModifications) , _miaOperationType :: !(Maybe OperationType) , _miaProductCodes :: !(Maybe [Text]) , _miaDescription :: !(Maybe AttributeValue) , _miaDryRun :: !(Maybe Bool) , _miaImageId :: !Text } deriving (Eq, Read, Show, Data, Typeable, Generic) -- | Creates a value of 'ModifyImageAttribute' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'miaAttribute' - The name of the attribute to modify. The valid values are @description@ , @launchPermission@ , and @productCodes@ . -- -- * 'miaUserIds' - One or more AWS account IDs. This parameter can be used only when the @Attribute@ parameter is @launchPermission@ . -- -- * 'miaUserGroups' - One or more user groups. This parameter can be used only when the @Attribute@ parameter is @launchPermission@ . -- -- * 'miaValue' - The value of the attribute being modified. This parameter can be used only when the @Attribute@ parameter is @description@ or @productCodes@ . -- -- * 'miaLaunchPermission' - A new launch permission for the AMI. -- -- * 'miaOperationType' - The operation type. This parameter can be used only when the @Attribute@ parameter is @launchPermission@ . -- -- * 'miaProductCodes' - One or more DevPay product codes. After you add a product code to an AMI, it can't be removed. -- -- * 'miaDescription' - A new description for the AMI. -- -- * 'miaDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . -- -- * 'miaImageId' - The ID of the AMI. modifyImageAttribute :: Text -- ^ 'miaImageId' -> ModifyImageAttribute modifyImageAttribute pImageId_ = ModifyImageAttribute' { _miaAttribute = Nothing , _miaUserIds = Nothing , _miaUserGroups = Nothing , _miaValue = Nothing , _miaLaunchPermission = Nothing , _miaOperationType = Nothing , _miaProductCodes = Nothing , _miaDescription = Nothing , _miaDryRun = Nothing , _miaImageId = pImageId_ } -- | The name of the attribute to modify. The valid values are @description@ , @launchPermission@ , and @productCodes@ . miaAttribute :: Lens' ModifyImageAttribute (Maybe Text) miaAttribute = lens _miaAttribute (\ s a -> s{_miaAttribute = a}) -- | One or more AWS account IDs. This parameter can be used only when the @Attribute@ parameter is @launchPermission@ . miaUserIds :: Lens' ModifyImageAttribute [Text] miaUserIds = lens _miaUserIds (\ s a -> s{_miaUserIds = a}) . _Default . _Coerce -- | One or more user groups. This parameter can be used only when the @Attribute@ parameter is @launchPermission@ . miaUserGroups :: Lens' ModifyImageAttribute [Text] miaUserGroups = lens _miaUserGroups (\ s a -> s{_miaUserGroups = a}) . _Default . _Coerce -- | The value of the attribute being modified. This parameter can be used only when the @Attribute@ parameter is @description@ or @productCodes@ . miaValue :: Lens' ModifyImageAttribute (Maybe Text) miaValue = lens _miaValue (\ s a -> s{_miaValue = a}) -- | A new launch permission for the AMI. miaLaunchPermission :: Lens' ModifyImageAttribute (Maybe LaunchPermissionModifications) miaLaunchPermission = lens _miaLaunchPermission (\ s a -> s{_miaLaunchPermission = a}) -- | The operation type. This parameter can be used only when the @Attribute@ parameter is @launchPermission@ . miaOperationType :: Lens' ModifyImageAttribute (Maybe OperationType) miaOperationType = lens _miaOperationType (\ s a -> s{_miaOperationType = a}) -- | One or more DevPay product codes. After you add a product code to an AMI, it can't be removed. miaProductCodes :: Lens' ModifyImageAttribute [Text] miaProductCodes = lens _miaProductCodes (\ s a -> s{_miaProductCodes = a}) . _Default . _Coerce -- | A new description for the AMI. miaDescription :: Lens' ModifyImageAttribute (Maybe AttributeValue) miaDescription = lens _miaDescription (\ s a -> s{_miaDescription = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . miaDryRun :: Lens' ModifyImageAttribute (Maybe Bool) miaDryRun = lens _miaDryRun (\ s a -> s{_miaDryRun = a}) -- | The ID of the AMI. miaImageId :: Lens' ModifyImageAttribute Text miaImageId = lens _miaImageId (\ s a -> s{_miaImageId = a}) instance AWSRequest ModifyImageAttribute where type Rs ModifyImageAttribute = ModifyImageAttributeResponse request = postQuery ec2 response = receiveNull ModifyImageAttributeResponse' instance Hashable ModifyImageAttribute where instance NFData ModifyImageAttribute where instance ToHeaders ModifyImageAttribute where toHeaders = const mempty instance ToPath ModifyImageAttribute where toPath = const "/" instance ToQuery ModifyImageAttribute where toQuery ModifyImageAttribute'{..} = mconcat ["Action" =: ("ModifyImageAttribute" :: ByteString), "Version" =: ("2016-11-15" :: ByteString), "Attribute" =: _miaAttribute, toQuery (toQueryList "UserId" <$> _miaUserIds), toQuery (toQueryList "UserGroup" <$> _miaUserGroups), "Value" =: _miaValue, "LaunchPermission" =: _miaLaunchPermission, "OperationType" =: _miaOperationType, toQuery (toQueryList "ProductCode" <$> _miaProductCodes), "Description" =: _miaDescription, "DryRun" =: _miaDryRun, "ImageId" =: _miaImageId] -- | /See:/ 'modifyImageAttributeResponse' smart constructor. data ModifyImageAttributeResponse = ModifyImageAttributeResponse' deriving (Eq, Read, Show, Data, Typeable, Generic) -- | Creates a value of 'ModifyImageAttributeResponse' with the minimum fields required to make a request. -- modifyImageAttributeResponse :: ModifyImageAttributeResponse modifyImageAttributeResponse = ModifyImageAttributeResponse' instance NFData ModifyImageAttributeResponse where