module Network.AWS.EC2.CancelBundleTask
(
CancelBundleTask
, cancelBundleTask
, cbtBundleId
, cbtDryRun
, CancelBundleTaskResponse
, cancelBundleTaskResponse
, cbtrBundleTask
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data CancelBundleTask = CancelBundleTask
{ _cbtBundleId :: Text
, _cbtDryRun :: Maybe Bool
} deriving (Eq, Ord, Show)
cancelBundleTask :: Text
-> CancelBundleTask
cancelBundleTask p1 = CancelBundleTask
{ _cbtBundleId = p1
, _cbtDryRun = Nothing
}
cbtBundleId :: Lens' CancelBundleTask Text
cbtBundleId = lens _cbtBundleId (\s a -> s { _cbtBundleId = a })
cbtDryRun :: Lens' CancelBundleTask (Maybe Bool)
cbtDryRun = lens _cbtDryRun (\s a -> s { _cbtDryRun = a })
newtype CancelBundleTaskResponse = CancelBundleTaskResponse
{ _cbtrBundleTask :: Maybe BundleTask
} deriving (Eq, Show)
cancelBundleTaskResponse :: CancelBundleTaskResponse
cancelBundleTaskResponse = CancelBundleTaskResponse
{ _cbtrBundleTask = Nothing
}
cbtrBundleTask :: Lens' CancelBundleTaskResponse (Maybe BundleTask)
cbtrBundleTask = lens _cbtrBundleTask (\s a -> s { _cbtrBundleTask = a })
instance ToPath CancelBundleTask where
toPath = const "/"
instance ToQuery CancelBundleTask where
toQuery CancelBundleTask{..} = mconcat
[ "BundleId" =? _cbtBundleId
, "dryRun" =? _cbtDryRun
]
instance ToHeaders CancelBundleTask
instance AWSRequest CancelBundleTask where
type Sv CancelBundleTask = EC2
type Rs CancelBundleTask = CancelBundleTaskResponse
request = post "CancelBundleTask"
response = xmlResponse
instance FromXML CancelBundleTaskResponse where
parseXML x = CancelBundleTaskResponse
<$> x .@? "bundleInstanceTask"