{-# 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.MachineLearning.DeleteDataSource
(
deleteDataSource
, DeleteDataSource
, ddsDataSourceId
, deleteDataSourceResponse
, DeleteDataSourceResponse
, ddsrsDataSourceId
, ddsrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MachineLearning.Types
import Network.AWS.MachineLearning.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteDataSource = DeleteDataSource'
{ _ddsDataSourceId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteDataSource
:: Text
-> DeleteDataSource
deleteDataSource pDataSourceId_ =
DeleteDataSource' {_ddsDataSourceId = pDataSourceId_}
ddsDataSourceId :: Lens' DeleteDataSource Text
ddsDataSourceId = lens _ddsDataSourceId (\ s a -> s{_ddsDataSourceId = a})
instance AWSRequest DeleteDataSource where
type Rs DeleteDataSource = DeleteDataSourceResponse
request = postJSON machineLearning
response
= receiveJSON
(\ s h x ->
DeleteDataSourceResponse' <$>
(x .?> "DataSourceId") <*> (pure (fromEnum s)))
instance Hashable DeleteDataSource where
instance NFData DeleteDataSource where
instance ToHeaders DeleteDataSource where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonML_20141212.DeleteDataSource" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteDataSource where
toJSON DeleteDataSource'{..}
= object
(catMaybes
[Just ("DataSourceId" .= _ddsDataSourceId)])
instance ToPath DeleteDataSource where
toPath = const "/"
instance ToQuery DeleteDataSource where
toQuery = const mempty
data DeleteDataSourceResponse = DeleteDataSourceResponse'
{ _ddsrsDataSourceId :: !(Maybe Text)
, _ddsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteDataSourceResponse
:: Int
-> DeleteDataSourceResponse
deleteDataSourceResponse pResponseStatus_ =
DeleteDataSourceResponse'
{_ddsrsDataSourceId = Nothing, _ddsrsResponseStatus = pResponseStatus_}
ddsrsDataSourceId :: Lens' DeleteDataSourceResponse (Maybe Text)
ddsrsDataSourceId = lens _ddsrsDataSourceId (\ s a -> s{_ddsrsDataSourceId = a})
ddsrsResponseStatus :: Lens' DeleteDataSourceResponse Int
ddsrsResponseStatus = lens _ddsrsResponseStatus (\ s a -> s{_ddsrsResponseStatus = a})
instance NFData DeleteDataSourceResponse where