{-# 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.DeviceFarm.ListVPCEConfigurations
(
listVPCEConfigurations
, ListVPCEConfigurations
, lvecNextToken
, lvecMaxResults
, listVPCEConfigurationsResponse
, ListVPCEConfigurationsResponse
, lvecrsNextToken
, lvecrsVpceConfigurations
, lvecrsResponseStatus
) where
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListVPCEConfigurations = ListVPCEConfigurations'
{ _lvecNextToken :: !(Maybe Text)
, _lvecMaxResults :: !(Maybe Int)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listVPCEConfigurations
:: ListVPCEConfigurations
listVPCEConfigurations =
ListVPCEConfigurations' {_lvecNextToken = Nothing, _lvecMaxResults = Nothing}
lvecNextToken :: Lens' ListVPCEConfigurations (Maybe Text)
lvecNextToken = lens _lvecNextToken (\ s a -> s{_lvecNextToken = a})
lvecMaxResults :: Lens' ListVPCEConfigurations (Maybe Int)
lvecMaxResults = lens _lvecMaxResults (\ s a -> s{_lvecMaxResults = a})
instance AWSRequest ListVPCEConfigurations where
type Rs ListVPCEConfigurations =
ListVPCEConfigurationsResponse
request = postJSON deviceFarm
response
= receiveJSON
(\ s h x ->
ListVPCEConfigurationsResponse' <$>
(x .?> "nextToken") <*>
(x .?> "vpceConfigurations" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListVPCEConfigurations where
instance NFData ListVPCEConfigurations where
instance ToHeaders ListVPCEConfigurations where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DeviceFarm_20150623.ListVPCEConfigurations" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListVPCEConfigurations where
toJSON ListVPCEConfigurations'{..}
= object
(catMaybes
[("nextToken" .=) <$> _lvecNextToken,
("maxResults" .=) <$> _lvecMaxResults])
instance ToPath ListVPCEConfigurations where
toPath = const "/"
instance ToQuery ListVPCEConfigurations where
toQuery = const mempty
data ListVPCEConfigurationsResponse = ListVPCEConfigurationsResponse'
{ _lvecrsNextToken :: !(Maybe Text)
, _lvecrsVpceConfigurations :: !(Maybe [VPCEConfiguration])
, _lvecrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listVPCEConfigurationsResponse
:: Int
-> ListVPCEConfigurationsResponse
listVPCEConfigurationsResponse pResponseStatus_ =
ListVPCEConfigurationsResponse'
{ _lvecrsNextToken = Nothing
, _lvecrsVpceConfigurations = Nothing
, _lvecrsResponseStatus = pResponseStatus_
}
lvecrsNextToken :: Lens' ListVPCEConfigurationsResponse (Maybe Text)
lvecrsNextToken = lens _lvecrsNextToken (\ s a -> s{_lvecrsNextToken = a})
lvecrsVpceConfigurations :: Lens' ListVPCEConfigurationsResponse [VPCEConfiguration]
lvecrsVpceConfigurations = lens _lvecrsVpceConfigurations (\ s a -> s{_lvecrsVpceConfigurations = a}) . _Default . _Coerce
lvecrsResponseStatus :: Lens' ListVPCEConfigurationsResponse Int
lvecrsResponseStatus = lens _lvecrsResponseStatus (\ s a -> s{_lvecrsResponseStatus = a})
instance NFData ListVPCEConfigurationsResponse where