{-# 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.AppSync.DeleteDataSource
(
deleteDataSource
, DeleteDataSource
, ddsApiId
, ddsName
, deleteDataSourceResponse
, DeleteDataSourceResponse
, ddsrsResponseStatus
) where
import Network.AWS.AppSync.Types
import Network.AWS.AppSync.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeleteDataSource = DeleteDataSource'
{ _ddsApiId :: !Text
, _ddsName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteDataSource
:: Text
-> Text
-> DeleteDataSource
deleteDataSource pApiId_ pName_ =
DeleteDataSource' {_ddsApiId = pApiId_, _ddsName = pName_}
ddsApiId :: Lens' DeleteDataSource Text
ddsApiId = lens _ddsApiId (\ s a -> s{_ddsApiId = a})
ddsName :: Lens' DeleteDataSource Text
ddsName = lens _ddsName (\ s a -> s{_ddsName = a})
instance AWSRequest DeleteDataSource where
type Rs DeleteDataSource = DeleteDataSourceResponse
request = delete appSync
response
= receiveEmpty
(\ s h x ->
DeleteDataSourceResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteDataSource where
instance NFData DeleteDataSource where
instance ToHeaders DeleteDataSource where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteDataSource where
toPath DeleteDataSource'{..}
= mconcat
["/v1/apis/", toBS _ddsApiId, "/datasources/",
toBS _ddsName]
instance ToQuery DeleteDataSource where
toQuery = const mempty
newtype DeleteDataSourceResponse = DeleteDataSourceResponse'
{ _ddsrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteDataSourceResponse
:: Int
-> DeleteDataSourceResponse
deleteDataSourceResponse pResponseStatus_ =
DeleteDataSourceResponse' {_ddsrsResponseStatus = pResponseStatus_}
ddsrsResponseStatus :: Lens' DeleteDataSourceResponse Int
ddsrsResponseStatus = lens _ddsrsResponseStatus (\ s a -> s{_ddsrsResponseStatus = a})
instance NFData DeleteDataSourceResponse where