{-# 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.DeleteResolver
(
deleteResolver
, DeleteResolver
, drApiId
, drTypeName
, drFieldName
, deleteResolverResponse
, DeleteResolverResponse
, drrsResponseStatus
) 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 DeleteResolver = DeleteResolver'
{ _drApiId :: !Text
, _drTypeName :: !Text
, _drFieldName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteResolver
:: Text
-> Text
-> Text
-> DeleteResolver
deleteResolver pApiId_ pTypeName_ pFieldName_ =
DeleteResolver'
{_drApiId = pApiId_, _drTypeName = pTypeName_, _drFieldName = pFieldName_}
drApiId :: Lens' DeleteResolver Text
drApiId = lens _drApiId (\ s a -> s{_drApiId = a})
drTypeName :: Lens' DeleteResolver Text
drTypeName = lens _drTypeName (\ s a -> s{_drTypeName = a})
drFieldName :: Lens' DeleteResolver Text
drFieldName = lens _drFieldName (\ s a -> s{_drFieldName = a})
instance AWSRequest DeleteResolver where
type Rs DeleteResolver = DeleteResolverResponse
request = delete appSync
response
= receiveEmpty
(\ s h x ->
DeleteResolverResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteResolver where
instance NFData DeleteResolver where
instance ToHeaders DeleteResolver where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteResolver where
toPath DeleteResolver'{..}
= mconcat
["/v1/apis/", toBS _drApiId, "/types/",
toBS _drTypeName, "/resolvers/", toBS _drFieldName]
instance ToQuery DeleteResolver where
toQuery = const mempty
newtype DeleteResolverResponse = DeleteResolverResponse'
{ _drrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteResolverResponse
:: Int
-> DeleteResolverResponse
deleteResolverResponse pResponseStatus_ =
DeleteResolverResponse' {_drrsResponseStatus = pResponseStatus_}
drrsResponseStatus :: Lens' DeleteResolverResponse Int
drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a})
instance NFData DeleteResolverResponse where