{-# 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.GetLoggerDefinitionVersion
(
getLoggerDefinitionVersion
, GetLoggerDefinitionVersion
, gldvLoggerDefinitionVersionId
, gldvLoggerDefinitionId
, getLoggerDefinitionVersionResponse
, GetLoggerDefinitionVersionResponse
, gldvrsDefinition
, gldvrsARN
, gldvrsCreationTimestamp
, gldvrsVersion
, gldvrsId
, gldvrsResponseStatus
) 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 GetLoggerDefinitionVersion = GetLoggerDefinitionVersion'
{ _gldvLoggerDefinitionVersionId :: !Text
, _gldvLoggerDefinitionId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getLoggerDefinitionVersion
:: Text
-> Text
-> GetLoggerDefinitionVersion
getLoggerDefinitionVersion pLoggerDefinitionVersionId_ pLoggerDefinitionId_ =
GetLoggerDefinitionVersion'
{ _gldvLoggerDefinitionVersionId = pLoggerDefinitionVersionId_
, _gldvLoggerDefinitionId = pLoggerDefinitionId_
}
gldvLoggerDefinitionVersionId :: Lens' GetLoggerDefinitionVersion Text
gldvLoggerDefinitionVersionId = lens _gldvLoggerDefinitionVersionId (\ s a -> s{_gldvLoggerDefinitionVersionId = a})
gldvLoggerDefinitionId :: Lens' GetLoggerDefinitionVersion Text
gldvLoggerDefinitionId = lens _gldvLoggerDefinitionId (\ s a -> s{_gldvLoggerDefinitionId = a})
instance AWSRequest GetLoggerDefinitionVersion where
type Rs GetLoggerDefinitionVersion =
GetLoggerDefinitionVersionResponse
request = get greengrass
response
= receiveJSON
(\ s h x ->
GetLoggerDefinitionVersionResponse' <$>
(x .?> "Definition") <*> (x .?> "Arn") <*>
(x .?> "CreationTimestamp")
<*> (x .?> "Version")
<*> (x .?> "Id")
<*> (pure (fromEnum s)))
instance Hashable GetLoggerDefinitionVersion where
instance NFData GetLoggerDefinitionVersion where
instance ToHeaders GetLoggerDefinitionVersion where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetLoggerDefinitionVersion where
toPath GetLoggerDefinitionVersion'{..}
= mconcat
["/greengrass/definition/loggers/",
toBS _gldvLoggerDefinitionId, "/versions/",
toBS _gldvLoggerDefinitionVersionId]
instance ToQuery GetLoggerDefinitionVersion where
toQuery = const mempty
data GetLoggerDefinitionVersionResponse = GetLoggerDefinitionVersionResponse'
{ _gldvrsDefinition :: !(Maybe LoggerDefinitionVersion)
, _gldvrsARN :: !(Maybe Text)
, _gldvrsCreationTimestamp :: !(Maybe Text)
, _gldvrsVersion :: !(Maybe Text)
, _gldvrsId :: !(Maybe Text)
, _gldvrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getLoggerDefinitionVersionResponse
:: Int
-> GetLoggerDefinitionVersionResponse
getLoggerDefinitionVersionResponse pResponseStatus_ =
GetLoggerDefinitionVersionResponse'
{ _gldvrsDefinition = Nothing
, _gldvrsARN = Nothing
, _gldvrsCreationTimestamp = Nothing
, _gldvrsVersion = Nothing
, _gldvrsId = Nothing
, _gldvrsResponseStatus = pResponseStatus_
}
gldvrsDefinition :: Lens' GetLoggerDefinitionVersionResponse (Maybe LoggerDefinitionVersion)
gldvrsDefinition = lens _gldvrsDefinition (\ s a -> s{_gldvrsDefinition = a})
gldvrsARN :: Lens' GetLoggerDefinitionVersionResponse (Maybe Text)
gldvrsARN = lens _gldvrsARN (\ s a -> s{_gldvrsARN = a})
gldvrsCreationTimestamp :: Lens' GetLoggerDefinitionVersionResponse (Maybe Text)
gldvrsCreationTimestamp = lens _gldvrsCreationTimestamp (\ s a -> s{_gldvrsCreationTimestamp = a})
gldvrsVersion :: Lens' GetLoggerDefinitionVersionResponse (Maybe Text)
gldvrsVersion = lens _gldvrsVersion (\ s a -> s{_gldvrsVersion = a})
gldvrsId :: Lens' GetLoggerDefinitionVersionResponse (Maybe Text)
gldvrsId = lens _gldvrsId (\ s a -> s{_gldvrsId = a})
gldvrsResponseStatus :: Lens' GetLoggerDefinitionVersionResponse Int
gldvrsResponseStatus = lens _gldvrsResponseStatus (\ s a -> s{_gldvrsResponseStatus = a})
instance NFData GetLoggerDefinitionVersionResponse
where