module Network.AWS.EC2.ResetSnapshotAttribute
(
ResetSnapshotAttribute
, resetSnapshotAttribute
, rsaAttribute
, rsaDryRun
, rsaSnapshotId
, ResetSnapshotAttributeResponse
, resetSnapshotAttributeResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data ResetSnapshotAttribute = ResetSnapshotAttribute
{ _rsaAttribute :: SnapshotAttributeName
, _rsaDryRun :: Maybe Bool
, _rsaSnapshotId :: Text
} deriving (Eq, Show)
resetSnapshotAttribute :: Text
-> SnapshotAttributeName
-> ResetSnapshotAttribute
resetSnapshotAttribute p1 p2 = ResetSnapshotAttribute
{ _rsaSnapshotId = p1
, _rsaAttribute = p2
, _rsaDryRun = Nothing
}
rsaAttribute :: Lens' ResetSnapshotAttribute SnapshotAttributeName
rsaAttribute = lens _rsaAttribute (\s a -> s { _rsaAttribute = a })
rsaDryRun :: Lens' ResetSnapshotAttribute (Maybe Bool)
rsaDryRun = lens _rsaDryRun (\s a -> s { _rsaDryRun = a })
rsaSnapshotId :: Lens' ResetSnapshotAttribute Text
rsaSnapshotId = lens _rsaSnapshotId (\s a -> s { _rsaSnapshotId = a })
data ResetSnapshotAttributeResponse = ResetSnapshotAttributeResponse
deriving (Eq, Ord, Show, Generic)
resetSnapshotAttributeResponse :: ResetSnapshotAttributeResponse
resetSnapshotAttributeResponse = ResetSnapshotAttributeResponse
instance ToPath ResetSnapshotAttribute where
toPath = const "/"
instance ToQuery ResetSnapshotAttribute where
toQuery ResetSnapshotAttribute{..} = mconcat
[ "Attribute" =? _rsaAttribute
, "dryRun" =? _rsaDryRun
, "SnapshotId" =? _rsaSnapshotId
]
instance ToHeaders ResetSnapshotAttribute
instance AWSRequest ResetSnapshotAttribute where
type Sv ResetSnapshotAttribute = EC2
type Rs ResetSnapshotAttribute = ResetSnapshotAttributeResponse
request = post "ResetSnapshotAttribute"
response = nullResponse ResetSnapshotAttributeResponse