{-# 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.UpdateLoggerDefinition
(
updateLoggerDefinition
, UpdateLoggerDefinition
, uldName
, uldLoggerDefinitionId
, updateLoggerDefinitionResponse
, UpdateLoggerDefinitionResponse
, uldrsResponseStatus
) 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 UpdateLoggerDefinition = UpdateLoggerDefinition'
{ _uldName :: !(Maybe Text)
, _uldLoggerDefinitionId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateLoggerDefinition
:: Text
-> UpdateLoggerDefinition
updateLoggerDefinition pLoggerDefinitionId_ =
UpdateLoggerDefinition'
{_uldName = Nothing, _uldLoggerDefinitionId = pLoggerDefinitionId_}
uldName :: Lens' UpdateLoggerDefinition (Maybe Text)
uldName = lens _uldName (\ s a -> s{_uldName = a})
uldLoggerDefinitionId :: Lens' UpdateLoggerDefinition Text
uldLoggerDefinitionId = lens _uldLoggerDefinitionId (\ s a -> s{_uldLoggerDefinitionId = a})
instance AWSRequest UpdateLoggerDefinition where
type Rs UpdateLoggerDefinition =
UpdateLoggerDefinitionResponse
request = putJSON greengrass
response
= receiveEmpty
(\ s h x ->
UpdateLoggerDefinitionResponse' <$>
(pure (fromEnum s)))
instance Hashable UpdateLoggerDefinition where
instance NFData UpdateLoggerDefinition where
instance ToHeaders UpdateLoggerDefinition where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateLoggerDefinition where
toJSON UpdateLoggerDefinition'{..}
= object (catMaybes [("Name" .=) <$> _uldName])
instance ToPath UpdateLoggerDefinition where
toPath UpdateLoggerDefinition'{..}
= mconcat
["/greengrass/definition/loggers/",
toBS _uldLoggerDefinitionId]
instance ToQuery UpdateLoggerDefinition where
toQuery = const mempty
newtype UpdateLoggerDefinitionResponse = UpdateLoggerDefinitionResponse'
{ _uldrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateLoggerDefinitionResponse
:: Int
-> UpdateLoggerDefinitionResponse
updateLoggerDefinitionResponse pResponseStatus_ =
UpdateLoggerDefinitionResponse' {_uldrsResponseStatus = pResponseStatus_}
uldrsResponseStatus :: Lens' UpdateLoggerDefinitionResponse Int
uldrsResponseStatus = lens _uldrsResponseStatus (\ s a -> s{_uldrsResponseStatus = a})
instance NFData UpdateLoggerDefinitionResponse where