{-# 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.UpdateResourceDefinition
(
updateResourceDefinition
, UpdateResourceDefinition
, urdName
, urdResourceDefinitionId
, updateResourceDefinitionResponse
, UpdateResourceDefinitionResponse
, urdrsResponseStatus
) 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 UpdateResourceDefinition = UpdateResourceDefinition'
{ _urdName :: !(Maybe Text)
, _urdResourceDefinitionId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateResourceDefinition
:: Text
-> UpdateResourceDefinition
updateResourceDefinition pResourceDefinitionId_ =
UpdateResourceDefinition'
{_urdName = Nothing, _urdResourceDefinitionId = pResourceDefinitionId_}
urdName :: Lens' UpdateResourceDefinition (Maybe Text)
urdName = lens _urdName (\ s a -> s{_urdName = a})
urdResourceDefinitionId :: Lens' UpdateResourceDefinition Text
urdResourceDefinitionId = lens _urdResourceDefinitionId (\ s a -> s{_urdResourceDefinitionId = a})
instance AWSRequest UpdateResourceDefinition where
type Rs UpdateResourceDefinition =
UpdateResourceDefinitionResponse
request = putJSON greengrass
response
= receiveEmpty
(\ s h x ->
UpdateResourceDefinitionResponse' <$>
(pure (fromEnum s)))
instance Hashable UpdateResourceDefinition where
instance NFData UpdateResourceDefinition where
instance ToHeaders UpdateResourceDefinition where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateResourceDefinition where
toJSON UpdateResourceDefinition'{..}
= object (catMaybes [("Name" .=) <$> _urdName])
instance ToPath UpdateResourceDefinition where
toPath UpdateResourceDefinition'{..}
= mconcat
["/greengrass/definition/resources/",
toBS _urdResourceDefinitionId]
instance ToQuery UpdateResourceDefinition where
toQuery = const mempty
newtype UpdateResourceDefinitionResponse = UpdateResourceDefinitionResponse'
{ _urdrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateResourceDefinitionResponse
:: Int
-> UpdateResourceDefinitionResponse
updateResourceDefinitionResponse pResponseStatus_ =
UpdateResourceDefinitionResponse' {_urdrsResponseStatus = pResponseStatus_}
urdrsResponseStatus :: Lens' UpdateResourceDefinitionResponse Int
urdrsResponseStatus = lens _urdrsResponseStatus (\ s a -> s{_urdrsResponseStatus = a})
instance NFData UpdateResourceDefinitionResponse
where