module Network.AWS.EC2.ResetImageAttribute
(
ResetImageAttribute
, resetImageAttribute
, ria1Attribute
, ria1DryRun
, ria1ImageId
, ResetImageAttributeResponse
, resetImageAttributeResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data ResetImageAttribute = ResetImageAttribute
{ _ria1Attribute :: ResetImageAttributeName
, _ria1DryRun :: Maybe Bool
, _ria1ImageId :: Text
} deriving (Eq, Show)
resetImageAttribute :: Text
-> ResetImageAttributeName
-> ResetImageAttribute
resetImageAttribute p1 p2 = ResetImageAttribute
{ _ria1ImageId = p1
, _ria1Attribute = p2
, _ria1DryRun = Nothing
}
ria1Attribute :: Lens' ResetImageAttribute ResetImageAttributeName
ria1Attribute = lens _ria1Attribute (\s a -> s { _ria1Attribute = a })
ria1DryRun :: Lens' ResetImageAttribute (Maybe Bool)
ria1DryRun = lens _ria1DryRun (\s a -> s { _ria1DryRun = a })
ria1ImageId :: Lens' ResetImageAttribute Text
ria1ImageId = lens _ria1ImageId (\s a -> s { _ria1ImageId = a })
data ResetImageAttributeResponse = ResetImageAttributeResponse
deriving (Eq, Ord, Show, Generic)
resetImageAttributeResponse :: ResetImageAttributeResponse
resetImageAttributeResponse = ResetImageAttributeResponse
instance ToPath ResetImageAttribute where
toPath = const "/"
instance ToQuery ResetImageAttribute where
toQuery ResetImageAttribute{..} = mconcat
[ "Attribute" =? _ria1Attribute
, "dryRun" =? _ria1DryRun
, "ImageId" =? _ria1ImageId
]
instance ToHeaders ResetImageAttribute
instance AWSRequest ResetImageAttribute where
type Sv ResetImageAttribute = EC2
type Rs ResetImageAttribute = ResetImageAttributeResponse
request = post "ResetImageAttribute"
response = nullResponse ResetImageAttributeResponse