{-# 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.Greengrass.DeleteSubscriptionDefinition
(
deleteSubscriptionDefinition
, DeleteSubscriptionDefinition
, dsdSubscriptionDefinitionId
, deleteSubscriptionDefinitionResponse
, DeleteSubscriptionDefinitionResponse
, dsdrsResponseStatus
) where
import Network.AWS.Greengrass.Types
import Network.AWS.Greengrass.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteSubscriptionDefinition = DeleteSubscriptionDefinition'
{ _dsdSubscriptionDefinitionId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteSubscriptionDefinition
:: Text
-> DeleteSubscriptionDefinition
deleteSubscriptionDefinition pSubscriptionDefinitionId_ =
DeleteSubscriptionDefinition'
{_dsdSubscriptionDefinitionId = pSubscriptionDefinitionId_}
dsdSubscriptionDefinitionId :: Lens' DeleteSubscriptionDefinition Text
dsdSubscriptionDefinitionId = lens _dsdSubscriptionDefinitionId (\ s a -> s{_dsdSubscriptionDefinitionId = a})
instance AWSRequest DeleteSubscriptionDefinition
where
type Rs DeleteSubscriptionDefinition =
DeleteSubscriptionDefinitionResponse
request = delete greengrass
response
= receiveEmpty
(\ s h x ->
DeleteSubscriptionDefinitionResponse' <$>
(pure (fromEnum s)))
instance Hashable DeleteSubscriptionDefinition where
instance NFData DeleteSubscriptionDefinition where
instance ToHeaders DeleteSubscriptionDefinition where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath DeleteSubscriptionDefinition where
toPath DeleteSubscriptionDefinition'{..}
= mconcat
["/greengrass/definition/subscriptions/",
toBS _dsdSubscriptionDefinitionId]
instance ToQuery DeleteSubscriptionDefinition where
toQuery = const mempty
newtype DeleteSubscriptionDefinitionResponse = DeleteSubscriptionDefinitionResponse'
{ _dsdrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteSubscriptionDefinitionResponse
:: Int
-> DeleteSubscriptionDefinitionResponse
deleteSubscriptionDefinitionResponse pResponseStatus_ =
DeleteSubscriptionDefinitionResponse'
{_dsdrsResponseStatus = pResponseStatus_}
dsdrsResponseStatus :: Lens' DeleteSubscriptionDefinitionResponse Int
dsdrsResponseStatus = lens _dsdrsResponseStatus (\ s a -> s{_dsdrsResponseStatus = a})
instance NFData DeleteSubscriptionDefinitionResponse
where