module Network.AWS.Greengrass.CreateLoggerDefinitionVersion
(
createLoggerDefinitionVersion
, CreateLoggerDefinitionVersion
, cldvLoggers
, cldvAmznClientToken
, cldvLoggerDefinitionId
, createLoggerDefinitionVersionResponse
, CreateLoggerDefinitionVersionResponse
, cldvrsARN
, cldvrsCreationTimestamp
, cldvrsVersion
, cldvrsId
, cldvrsResponseStatus
) 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 CreateLoggerDefinitionVersion = CreateLoggerDefinitionVersion'
{ _cldvLoggers :: !(Maybe [GreengrassLogger])
, _cldvAmznClientToken :: !(Maybe Text)
, _cldvLoggerDefinitionId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createLoggerDefinitionVersion
:: Text
-> CreateLoggerDefinitionVersion
createLoggerDefinitionVersion pLoggerDefinitionId_ =
CreateLoggerDefinitionVersion'
{ _cldvLoggers = Nothing
, _cldvAmznClientToken = Nothing
, _cldvLoggerDefinitionId = pLoggerDefinitionId_
}
cldvLoggers :: Lens' CreateLoggerDefinitionVersion [GreengrassLogger]
cldvLoggers = lens _cldvLoggers (\ s a -> s{_cldvLoggers = a}) . _Default . _Coerce;
cldvAmznClientToken :: Lens' CreateLoggerDefinitionVersion (Maybe Text)
cldvAmznClientToken = lens _cldvAmznClientToken (\ s a -> s{_cldvAmznClientToken = a});
cldvLoggerDefinitionId :: Lens' CreateLoggerDefinitionVersion Text
cldvLoggerDefinitionId = lens _cldvLoggerDefinitionId (\ s a -> s{_cldvLoggerDefinitionId = a});
instance AWSRequest CreateLoggerDefinitionVersion
where
type Rs CreateLoggerDefinitionVersion =
CreateLoggerDefinitionVersionResponse
request = postJSON greengrass
response
= receiveJSON
(\ s h x ->
CreateLoggerDefinitionVersionResponse' <$>
(x .?> "Arn") <*> (x .?> "CreationTimestamp") <*>
(x .?> "Version")
<*> (x .?> "Id")
<*> (pure (fromEnum s)))
instance Hashable CreateLoggerDefinitionVersion where
instance NFData CreateLoggerDefinitionVersion where
instance ToHeaders CreateLoggerDefinitionVersion
where
toHeaders CreateLoggerDefinitionVersion'{..}
= mconcat
["X-Amzn-Client-Token" =# _cldvAmznClientToken,
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)]
instance ToJSON CreateLoggerDefinitionVersion where
toJSON CreateLoggerDefinitionVersion'{..}
= object
(catMaybes [("Loggers" .=) <$> _cldvLoggers])
instance ToPath CreateLoggerDefinitionVersion where
toPath CreateLoggerDefinitionVersion'{..}
= mconcat
["/greengrass/definition/loggers/",
toBS _cldvLoggerDefinitionId, "/versions"]
instance ToQuery CreateLoggerDefinitionVersion where
toQuery = const mempty
data CreateLoggerDefinitionVersionResponse = CreateLoggerDefinitionVersionResponse'
{ _cldvrsARN :: !(Maybe Text)
, _cldvrsCreationTimestamp :: !(Maybe Text)
, _cldvrsVersion :: !(Maybe Text)
, _cldvrsId :: !(Maybe Text)
, _cldvrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createLoggerDefinitionVersionResponse
:: Int
-> CreateLoggerDefinitionVersionResponse
createLoggerDefinitionVersionResponse pResponseStatus_ =
CreateLoggerDefinitionVersionResponse'
{ _cldvrsARN = Nothing
, _cldvrsCreationTimestamp = Nothing
, _cldvrsVersion = Nothing
, _cldvrsId = Nothing
, _cldvrsResponseStatus = pResponseStatus_
}
cldvrsARN :: Lens' CreateLoggerDefinitionVersionResponse (Maybe Text)
cldvrsARN = lens _cldvrsARN (\ s a -> s{_cldvrsARN = a});
cldvrsCreationTimestamp :: Lens' CreateLoggerDefinitionVersionResponse (Maybe Text)
cldvrsCreationTimestamp = lens _cldvrsCreationTimestamp (\ s a -> s{_cldvrsCreationTimestamp = a});
cldvrsVersion :: Lens' CreateLoggerDefinitionVersionResponse (Maybe Text)
cldvrsVersion = lens _cldvrsVersion (\ s a -> s{_cldvrsVersion = a});
cldvrsId :: Lens' CreateLoggerDefinitionVersionResponse (Maybe Text)
cldvrsId = lens _cldvrsId (\ s a -> s{_cldvrsId = a});
cldvrsResponseStatus :: Lens' CreateLoggerDefinitionVersionResponse Int
cldvrsResponseStatus = lens _cldvrsResponseStatus (\ s a -> s{_cldvrsResponseStatus = a});
instance NFData CreateLoggerDefinitionVersionResponse
where