module Network.AWS.EC2.DeleteFlowLogs
(
deleteFlowLogs
, DeleteFlowLogs
, dflFlowLogIds
, deleteFlowLogsResponse
, DeleteFlowLogsResponse
, dflrsUnsuccessful
, dflrsStatus
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteFlowLogs = DeleteFlowLogs'
{ _dflFlowLogIds :: [Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteFlowLogs
:: DeleteFlowLogs
deleteFlowLogs =
DeleteFlowLogs'
{ _dflFlowLogIds = mempty
}
dflFlowLogIds :: Lens' DeleteFlowLogs [Text]
dflFlowLogIds = lens _dflFlowLogIds (\ s a -> s{_dflFlowLogIds = a}) . _Coerce;
instance AWSRequest DeleteFlowLogs where
type Sv DeleteFlowLogs = EC2
type Rs DeleteFlowLogs = DeleteFlowLogsResponse
request = post
response
= receiveXML
(\ s h x ->
DeleteFlowLogsResponse' <$>
(x .@? "unsuccessful" .!@ mempty >>=
may (parseXMLList "item"))
<*> (pure (fromEnum s)))
instance ToHeaders DeleteFlowLogs where
toHeaders = const mempty
instance ToPath DeleteFlowLogs where
toPath = const "/"
instance ToQuery DeleteFlowLogs where
toQuery DeleteFlowLogs'{..}
= mconcat
["Action" =: ("DeleteFlowLogs" :: ByteString),
"Version" =: ("2015-04-15" :: ByteString),
toQueryList "item" _dflFlowLogIds]
data DeleteFlowLogsResponse = DeleteFlowLogsResponse'
{ _dflrsUnsuccessful :: !(Maybe [UnsuccessfulItem])
, _dflrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteFlowLogsResponse
:: Int
-> DeleteFlowLogsResponse
deleteFlowLogsResponse pStatus_ =
DeleteFlowLogsResponse'
{ _dflrsUnsuccessful = Nothing
, _dflrsStatus = pStatus_
}
dflrsUnsuccessful :: Lens' DeleteFlowLogsResponse [UnsuccessfulItem]
dflrsUnsuccessful = lens _dflrsUnsuccessful (\ s a -> s{_dflrsUnsuccessful = a}) . _Default . _Coerce;
dflrsStatus :: Lens' DeleteFlowLogsResponse Int
dflrsStatus = lens _dflrsStatus (\ s a -> s{_dflrsStatus = a});