{-# 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.UpdateSubscriptionDefinition
(
updateSubscriptionDefinition
, UpdateSubscriptionDefinition
, usdName
, usdSubscriptionDefinitionId
, updateSubscriptionDefinitionResponse
, UpdateSubscriptionDefinitionResponse
, usdrsResponseStatus
) 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
data UpdateSubscriptionDefinition = UpdateSubscriptionDefinition'
{ _usdName :: !(Maybe Text)
, _usdSubscriptionDefinitionId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateSubscriptionDefinition
:: Text
-> UpdateSubscriptionDefinition
updateSubscriptionDefinition pSubscriptionDefinitionId_ =
UpdateSubscriptionDefinition'
{ _usdName = Nothing
, _usdSubscriptionDefinitionId = pSubscriptionDefinitionId_
}
usdName :: Lens' UpdateSubscriptionDefinition (Maybe Text)
usdName = lens _usdName (\ s a -> s{_usdName = a})
usdSubscriptionDefinitionId :: Lens' UpdateSubscriptionDefinition Text
usdSubscriptionDefinitionId = lens _usdSubscriptionDefinitionId (\ s a -> s{_usdSubscriptionDefinitionId = a})
instance AWSRequest UpdateSubscriptionDefinition
where
type Rs UpdateSubscriptionDefinition =
UpdateSubscriptionDefinitionResponse
request = putJSON greengrass
response
= receiveEmpty
(\ s h x ->
UpdateSubscriptionDefinitionResponse' <$>
(pure (fromEnum s)))
instance Hashable UpdateSubscriptionDefinition where
instance NFData UpdateSubscriptionDefinition where
instance ToHeaders UpdateSubscriptionDefinition where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateSubscriptionDefinition where
toJSON UpdateSubscriptionDefinition'{..}
= object (catMaybes [("Name" .=) <$> _usdName])
instance ToPath UpdateSubscriptionDefinition where
toPath UpdateSubscriptionDefinition'{..}
= mconcat
["/greengrass/definition/subscriptions/",
toBS _usdSubscriptionDefinitionId]
instance ToQuery UpdateSubscriptionDefinition where
toQuery = const mempty
newtype UpdateSubscriptionDefinitionResponse = UpdateSubscriptionDefinitionResponse'
{ _usdrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateSubscriptionDefinitionResponse
:: Int
-> UpdateSubscriptionDefinitionResponse
updateSubscriptionDefinitionResponse pResponseStatus_ =
UpdateSubscriptionDefinitionResponse'
{_usdrsResponseStatus = pResponseStatus_}
usdrsResponseStatus :: Lens' UpdateSubscriptionDefinitionResponse Int
usdrsResponseStatus = lens _usdrsResponseStatus (\ s a -> s{_usdrsResponseStatus = a})
instance NFData UpdateSubscriptionDefinitionResponse
where