{-# 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.Discovery.StartDataCollectionByAgentIds
(
startDataCollectionByAgentIds
, StartDataCollectionByAgentIds
, sAgentIds
, startDataCollectionByAgentIdsResponse
, StartDataCollectionByAgentIdsResponse
, srsAgentsConfigurationStatus
, srsResponseStatus
) where
import Network.AWS.Discovery.Types
import Network.AWS.Discovery.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype StartDataCollectionByAgentIds = StartDataCollectionByAgentIds'
{ _sAgentIds :: [Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
startDataCollectionByAgentIds
:: StartDataCollectionByAgentIds
startDataCollectionByAgentIds =
StartDataCollectionByAgentIds' {_sAgentIds = mempty}
sAgentIds :: Lens' StartDataCollectionByAgentIds [Text]
sAgentIds = lens _sAgentIds (\ s a -> s{_sAgentIds = a}) . _Coerce
instance AWSRequest StartDataCollectionByAgentIds
where
type Rs StartDataCollectionByAgentIds =
StartDataCollectionByAgentIdsResponse
request = postJSON discovery
response
= receiveJSON
(\ s h x ->
StartDataCollectionByAgentIdsResponse' <$>
(x .?> "agentsConfigurationStatus" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable StartDataCollectionByAgentIds where
instance NFData StartDataCollectionByAgentIds where
instance ToHeaders StartDataCollectionByAgentIds
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSPoseidonService_V2015_11_01.StartDataCollectionByAgentIds"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON StartDataCollectionByAgentIds where
toJSON StartDataCollectionByAgentIds'{..}
= object
(catMaybes [Just ("agentIds" .= _sAgentIds)])
instance ToPath StartDataCollectionByAgentIds where
toPath = const "/"
instance ToQuery StartDataCollectionByAgentIds where
toQuery = const mempty
data StartDataCollectionByAgentIdsResponse = StartDataCollectionByAgentIdsResponse'
{ _srsAgentsConfigurationStatus :: !(Maybe [AgentConfigurationStatus])
, _srsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
startDataCollectionByAgentIdsResponse
:: Int
-> StartDataCollectionByAgentIdsResponse
startDataCollectionByAgentIdsResponse pResponseStatus_ =
StartDataCollectionByAgentIdsResponse'
{ _srsAgentsConfigurationStatus = Nothing
, _srsResponseStatus = pResponseStatus_
}
srsAgentsConfigurationStatus :: Lens' StartDataCollectionByAgentIdsResponse [AgentConfigurationStatus]
srsAgentsConfigurationStatus = lens _srsAgentsConfigurationStatus (\ s a -> s{_srsAgentsConfigurationStatus = a}) . _Default . _Coerce
srsResponseStatus :: Lens' StartDataCollectionByAgentIdsResponse Int
srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a})
instance NFData StartDataCollectionByAgentIdsResponse
where