{-# 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.ListDeviceDefinitionVersions
(
listDeviceDefinitionVersions
, ListDeviceDefinitionVersions
, lddvNextToken
, lddvMaxResults
, lddvDeviceDefinitionId
, listDeviceDefinitionVersionsResponse
, ListDeviceDefinitionVersionsResponse
, lddvrsVersions
, lddvrsNextToken
, lddvrsResponseStatus
) 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 ListDeviceDefinitionVersions = ListDeviceDefinitionVersions'
{ _lddvNextToken :: !(Maybe Text)
, _lddvMaxResults :: !(Maybe Text)
, _lddvDeviceDefinitionId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listDeviceDefinitionVersions
:: Text
-> ListDeviceDefinitionVersions
listDeviceDefinitionVersions pDeviceDefinitionId_ =
ListDeviceDefinitionVersions'
{ _lddvNextToken = Nothing
, _lddvMaxResults = Nothing
, _lddvDeviceDefinitionId = pDeviceDefinitionId_
}
lddvNextToken :: Lens' ListDeviceDefinitionVersions (Maybe Text)
lddvNextToken = lens _lddvNextToken (\ s a -> s{_lddvNextToken = a})
lddvMaxResults :: Lens' ListDeviceDefinitionVersions (Maybe Text)
lddvMaxResults = lens _lddvMaxResults (\ s a -> s{_lddvMaxResults = a})
lddvDeviceDefinitionId :: Lens' ListDeviceDefinitionVersions Text
lddvDeviceDefinitionId = lens _lddvDeviceDefinitionId (\ s a -> s{_lddvDeviceDefinitionId = a})
instance AWSRequest ListDeviceDefinitionVersions
where
type Rs ListDeviceDefinitionVersions =
ListDeviceDefinitionVersionsResponse
request = get greengrass
response
= receiveJSON
(\ s h x ->
ListDeviceDefinitionVersionsResponse' <$>
(x .?> "Versions" .!@ mempty) <*> (x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable ListDeviceDefinitionVersions where
instance NFData ListDeviceDefinitionVersions where
instance ToHeaders ListDeviceDefinitionVersions where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath ListDeviceDefinitionVersions where
toPath ListDeviceDefinitionVersions'{..}
= mconcat
["/greengrass/definition/devices/",
toBS _lddvDeviceDefinitionId, "/versions"]
instance ToQuery ListDeviceDefinitionVersions where
toQuery ListDeviceDefinitionVersions'{..}
= mconcat
["NextToken" =: _lddvNextToken,
"MaxResults" =: _lddvMaxResults]
data ListDeviceDefinitionVersionsResponse = ListDeviceDefinitionVersionsResponse'
{ _lddvrsVersions :: !(Maybe [VersionInformation])
, _lddvrsNextToken :: !(Maybe Text)
, _lddvrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listDeviceDefinitionVersionsResponse
:: Int
-> ListDeviceDefinitionVersionsResponse
listDeviceDefinitionVersionsResponse pResponseStatus_ =
ListDeviceDefinitionVersionsResponse'
{ _lddvrsVersions = Nothing
, _lddvrsNextToken = Nothing
, _lddvrsResponseStatus = pResponseStatus_
}
lddvrsVersions :: Lens' ListDeviceDefinitionVersionsResponse [VersionInformation]
lddvrsVersions = lens _lddvrsVersions (\ s a -> s{_lddvrsVersions = a}) . _Default . _Coerce
lddvrsNextToken :: Lens' ListDeviceDefinitionVersionsResponse (Maybe Text)
lddvrsNextToken = lens _lddvrsNextToken (\ s a -> s{_lddvrsNextToken = a})
lddvrsResponseStatus :: Lens' ListDeviceDefinitionVersionsResponse Int
lddvrsResponseStatus = lens _lddvrsResponseStatus (\ s a -> s{_lddvrsResponseStatus = a})
instance NFData ListDeviceDefinitionVersionsResponse
where