{-# 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.DeleteGraphqlAPI
(
deleteGraphqlAPI
, DeleteGraphqlAPI
, dgaApiId
, deleteGraphqlAPIResponse
, DeleteGraphqlAPIResponse
, dgarsResponseStatus
) 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
newtype DeleteGraphqlAPI = DeleteGraphqlAPI'
{ _dgaApiId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteGraphqlAPI
:: Text
-> DeleteGraphqlAPI
deleteGraphqlAPI pApiId_ = DeleteGraphqlAPI' {_dgaApiId = pApiId_}
dgaApiId :: Lens' DeleteGraphqlAPI Text
dgaApiId = lens _dgaApiId (\ s a -> s{_dgaApiId = a})
instance AWSRequest DeleteGraphqlAPI where
type Rs DeleteGraphqlAPI = DeleteGraphqlAPIResponse
request = delete appSync
response
= receiveEmpty
(\ s h x ->
DeleteGraphqlAPIResponse' <$> (pure (fromEnum s)))
instance Hashable DeleteGraphqlAPI where
instance NFData DeleteGraphqlAPI where
instance ToHeaders DeleteGraphqlAPI where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteGraphqlAPI where
toPath DeleteGraphqlAPI'{..}
= mconcat ["/v1/apis/", toBS _dgaApiId]
instance ToQuery DeleteGraphqlAPI where
toQuery = const mempty
newtype DeleteGraphqlAPIResponse = DeleteGraphqlAPIResponse'
{ _dgarsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteGraphqlAPIResponse
:: Int
-> DeleteGraphqlAPIResponse
deleteGraphqlAPIResponse pResponseStatus_ =
DeleteGraphqlAPIResponse' {_dgarsResponseStatus = pResponseStatus_}
dgarsResponseStatus :: Lens' DeleteGraphqlAPIResponse Int
dgarsResponseStatus = lens _dgarsResponseStatus (\ s a -> s{_dgarsResponseStatus = a})
instance NFData DeleteGraphqlAPIResponse where