{-# 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.GetLoggerDefinition
(
getLoggerDefinition
, GetLoggerDefinition
, gldLoggerDefinitionId
, getLoggerDefinitionResponse
, GetLoggerDefinitionResponse
, gldrsLatestVersionARN
, gldrsARN
, gldrsName
, gldrsCreationTimestamp
, gldrsId
, gldrsLatestVersion
, gldrsLastUpdatedTimestamp
, gldrsResponseStatus
) 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
newtype GetLoggerDefinition = GetLoggerDefinition'
{ _gldLoggerDefinitionId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getLoggerDefinition
:: Text
-> GetLoggerDefinition
getLoggerDefinition pLoggerDefinitionId_ =
GetLoggerDefinition' {_gldLoggerDefinitionId = pLoggerDefinitionId_}
gldLoggerDefinitionId :: Lens' GetLoggerDefinition Text
gldLoggerDefinitionId = lens _gldLoggerDefinitionId (\ s a -> s{_gldLoggerDefinitionId = a})
instance AWSRequest GetLoggerDefinition where
type Rs GetLoggerDefinition =
GetLoggerDefinitionResponse
request = get greengrass
response
= receiveJSON
(\ s h x ->
GetLoggerDefinitionResponse' <$>
(x .?> "LatestVersionArn") <*> (x .?> "Arn") <*>
(x .?> "Name")
<*> (x .?> "CreationTimestamp")
<*> (x .?> "Id")
<*> (x .?> "LatestVersion")
<*> (x .?> "LastUpdatedTimestamp")
<*> (pure (fromEnum s)))
instance Hashable GetLoggerDefinition where
instance NFData GetLoggerDefinition where
instance ToHeaders GetLoggerDefinition where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetLoggerDefinition where
toPath GetLoggerDefinition'{..}
= mconcat
["/greengrass/definition/loggers/",
toBS _gldLoggerDefinitionId]
instance ToQuery GetLoggerDefinition where
toQuery = const mempty
data GetLoggerDefinitionResponse = GetLoggerDefinitionResponse'
{ _gldrsLatestVersionARN :: !(Maybe Text)
, _gldrsARN :: !(Maybe Text)
, _gldrsName :: !(Maybe Text)
, _gldrsCreationTimestamp :: !(Maybe Text)
, _gldrsId :: !(Maybe Text)
, _gldrsLatestVersion :: !(Maybe Text)
, _gldrsLastUpdatedTimestamp :: !(Maybe Text)
, _gldrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getLoggerDefinitionResponse
:: Int
-> GetLoggerDefinitionResponse
getLoggerDefinitionResponse pResponseStatus_ =
GetLoggerDefinitionResponse'
{ _gldrsLatestVersionARN = Nothing
, _gldrsARN = Nothing
, _gldrsName = Nothing
, _gldrsCreationTimestamp = Nothing
, _gldrsId = Nothing
, _gldrsLatestVersion = Nothing
, _gldrsLastUpdatedTimestamp = Nothing
, _gldrsResponseStatus = pResponseStatus_
}
gldrsLatestVersionARN :: Lens' GetLoggerDefinitionResponse (Maybe Text)
gldrsLatestVersionARN = lens _gldrsLatestVersionARN (\ s a -> s{_gldrsLatestVersionARN = a})
gldrsARN :: Lens' GetLoggerDefinitionResponse (Maybe Text)
gldrsARN = lens _gldrsARN (\ s a -> s{_gldrsARN = a})
gldrsName :: Lens' GetLoggerDefinitionResponse (Maybe Text)
gldrsName = lens _gldrsName (\ s a -> s{_gldrsName = a})
gldrsCreationTimestamp :: Lens' GetLoggerDefinitionResponse (Maybe Text)
gldrsCreationTimestamp = lens _gldrsCreationTimestamp (\ s a -> s{_gldrsCreationTimestamp = a})
gldrsId :: Lens' GetLoggerDefinitionResponse (Maybe Text)
gldrsId = lens _gldrsId (\ s a -> s{_gldrsId = a})
gldrsLatestVersion :: Lens' GetLoggerDefinitionResponse (Maybe Text)
gldrsLatestVersion = lens _gldrsLatestVersion (\ s a -> s{_gldrsLatestVersion = a})
gldrsLastUpdatedTimestamp :: Lens' GetLoggerDefinitionResponse (Maybe Text)
gldrsLastUpdatedTimestamp = lens _gldrsLastUpdatedTimestamp (\ s a -> s{_gldrsLastUpdatedTimestamp = a})
gldrsResponseStatus :: Lens' GetLoggerDefinitionResponse Int
gldrsResponseStatus = lens _gldrsResponseStatus (\ s a -> s{_gldrsResponseStatus = a})
instance NFData GetLoggerDefinitionResponse where