{-# 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.GetResourceDefinitionVersion
(
getResourceDefinitionVersion
, GetResourceDefinitionVersion
, grdvResourceDefinitionVersionId
, grdvResourceDefinitionId
, getResourceDefinitionVersionResponse
, GetResourceDefinitionVersionResponse
, grdvrsDefinition
, grdvrsARN
, grdvrsCreationTimestamp
, grdvrsVersion
, grdvrsId
, grdvrsResponseStatus
) 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 GetResourceDefinitionVersion = GetResourceDefinitionVersion'
{ _grdvResourceDefinitionVersionId :: !Text
, _grdvResourceDefinitionId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getResourceDefinitionVersion
:: Text
-> Text
-> GetResourceDefinitionVersion
getResourceDefinitionVersion pResourceDefinitionVersionId_ pResourceDefinitionId_ =
GetResourceDefinitionVersion'
{ _grdvResourceDefinitionVersionId = pResourceDefinitionVersionId_
, _grdvResourceDefinitionId = pResourceDefinitionId_
}
grdvResourceDefinitionVersionId :: Lens' GetResourceDefinitionVersion Text
grdvResourceDefinitionVersionId = lens _grdvResourceDefinitionVersionId (\ s a -> s{_grdvResourceDefinitionVersionId = a})
grdvResourceDefinitionId :: Lens' GetResourceDefinitionVersion Text
grdvResourceDefinitionId = lens _grdvResourceDefinitionId (\ s a -> s{_grdvResourceDefinitionId = a})
instance AWSRequest GetResourceDefinitionVersion
where
type Rs GetResourceDefinitionVersion =
GetResourceDefinitionVersionResponse
request = get greengrass
response
= receiveJSON
(\ s h x ->
GetResourceDefinitionVersionResponse' <$>
(x .?> "Definition") <*> (x .?> "Arn") <*>
(x .?> "CreationTimestamp")
<*> (x .?> "Version")
<*> (x .?> "Id")
<*> (pure (fromEnum s)))
instance Hashable GetResourceDefinitionVersion where
instance NFData GetResourceDefinitionVersion where
instance ToHeaders GetResourceDefinitionVersion where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetResourceDefinitionVersion where
toPath GetResourceDefinitionVersion'{..}
= mconcat
["/greengrass/definition/resources/",
toBS _grdvResourceDefinitionId, "/versions/",
toBS _grdvResourceDefinitionVersionId]
instance ToQuery GetResourceDefinitionVersion where
toQuery = const mempty
data GetResourceDefinitionVersionResponse = GetResourceDefinitionVersionResponse'
{ _grdvrsDefinition :: !(Maybe ResourceDefinitionVersion)
, _grdvrsARN :: !(Maybe Text)
, _grdvrsCreationTimestamp :: !(Maybe Text)
, _grdvrsVersion :: !(Maybe Text)
, _grdvrsId :: !(Maybe Text)
, _grdvrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getResourceDefinitionVersionResponse
:: Int
-> GetResourceDefinitionVersionResponse
getResourceDefinitionVersionResponse pResponseStatus_ =
GetResourceDefinitionVersionResponse'
{ _grdvrsDefinition = Nothing
, _grdvrsARN = Nothing
, _grdvrsCreationTimestamp = Nothing
, _grdvrsVersion = Nothing
, _grdvrsId = Nothing
, _grdvrsResponseStatus = pResponseStatus_
}
grdvrsDefinition :: Lens' GetResourceDefinitionVersionResponse (Maybe ResourceDefinitionVersion)
grdvrsDefinition = lens _grdvrsDefinition (\ s a -> s{_grdvrsDefinition = a})
grdvrsARN :: Lens' GetResourceDefinitionVersionResponse (Maybe Text)
grdvrsARN = lens _grdvrsARN (\ s a -> s{_grdvrsARN = a})
grdvrsCreationTimestamp :: Lens' GetResourceDefinitionVersionResponse (Maybe Text)
grdvrsCreationTimestamp = lens _grdvrsCreationTimestamp (\ s a -> s{_grdvrsCreationTimestamp = a})
grdvrsVersion :: Lens' GetResourceDefinitionVersionResponse (Maybe Text)
grdvrsVersion = lens _grdvrsVersion (\ s a -> s{_grdvrsVersion = a})
grdvrsId :: Lens' GetResourceDefinitionVersionResponse (Maybe Text)
grdvrsId = lens _grdvrsId (\ s a -> s{_grdvrsId = a})
grdvrsResponseStatus :: Lens' GetResourceDefinitionVersionResponse Int
grdvrsResponseStatus = lens _grdvrsResponseStatus (\ s a -> s{_grdvrsResponseStatus = a})
instance NFData GetResourceDefinitionVersionResponse
where