{-# 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 #-}
module Network.AWS.EC2.CancelExportTask
(
cancelExportTask
, CancelExportTask
, cetExportTaskId
, cancelExportTaskResponse
, CancelExportTaskResponse
) 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
newtype CancelExportTask = CancelExportTask'
{ _cetExportTaskId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
cancelExportTask
:: Text
-> CancelExportTask
cancelExportTask pExportTaskId_ =
CancelExportTask' {_cetExportTaskId = pExportTaskId_}
cetExportTaskId :: Lens' CancelExportTask Text
cetExportTaskId = lens _cetExportTaskId (\ s a -> s{_cetExportTaskId = a})
instance AWSRequest CancelExportTask where
type Rs CancelExportTask = CancelExportTaskResponse
request = postQuery ec2
response = receiveNull CancelExportTaskResponse'
instance Hashable CancelExportTask where
instance NFData CancelExportTask where
instance ToHeaders CancelExportTask where
toHeaders = const mempty
instance ToPath CancelExportTask where
toPath = const "/"
instance ToQuery CancelExportTask where
toQuery CancelExportTask'{..}
= mconcat
["Action" =: ("CancelExportTask" :: ByteString),
"Version" =: ("2016-11-15" :: ByteString),
"ExportTaskId" =: _cetExportTaskId]
data CancelExportTaskResponse =
CancelExportTaskResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
cancelExportTaskResponse
:: CancelExportTaskResponse
cancelExportTaskResponse = CancelExportTaskResponse'
instance NFData CancelExportTaskResponse where