{-# 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.StopDataCollectionByAgentIds
(
stopDataCollectionByAgentIds
, StopDataCollectionByAgentIds
, sdcbaiAgentIds
, stopDataCollectionByAgentIdsResponse
, StopDataCollectionByAgentIdsResponse
, sdcbairsAgentsConfigurationStatus
, sdcbairsResponseStatus
) 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 StopDataCollectionByAgentIds = StopDataCollectionByAgentIds'
{ _sdcbaiAgentIds :: [Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
stopDataCollectionByAgentIds
:: StopDataCollectionByAgentIds
stopDataCollectionByAgentIds =
StopDataCollectionByAgentIds'
{ _sdcbaiAgentIds = mempty
}
sdcbaiAgentIds :: Lens' StopDataCollectionByAgentIds [Text]
sdcbaiAgentIds = lens _sdcbaiAgentIds (\ s a -> s{_sdcbaiAgentIds = a}) . _Coerce;
instance AWSRequest StopDataCollectionByAgentIds
where
type Rs StopDataCollectionByAgentIds =
StopDataCollectionByAgentIdsResponse
request = postJSON discovery
response
= receiveJSON
(\ s h x ->
StopDataCollectionByAgentIdsResponse' <$>
(x .?> "agentsConfigurationStatus" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable StopDataCollectionByAgentIds
instance NFData StopDataCollectionByAgentIds
instance ToHeaders StopDataCollectionByAgentIds where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSPoseidonService_V2015_11_01.StopDataCollectionByAgentIds"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON StopDataCollectionByAgentIds where
toJSON StopDataCollectionByAgentIds'{..}
= object
(catMaybes [Just ("agentIds" .= _sdcbaiAgentIds)])
instance ToPath StopDataCollectionByAgentIds where
toPath = const "/"
instance ToQuery StopDataCollectionByAgentIds where
toQuery = const mempty
data StopDataCollectionByAgentIdsResponse = StopDataCollectionByAgentIdsResponse'
{ _sdcbairsAgentsConfigurationStatus :: !(Maybe [AgentConfigurationStatus])
, _sdcbairsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
stopDataCollectionByAgentIdsResponse
:: Int
-> StopDataCollectionByAgentIdsResponse
stopDataCollectionByAgentIdsResponse pResponseStatus_ =
StopDataCollectionByAgentIdsResponse'
{ _sdcbairsAgentsConfigurationStatus = Nothing
, _sdcbairsResponseStatus = pResponseStatus_
}
sdcbairsAgentsConfigurationStatus :: Lens' StopDataCollectionByAgentIdsResponse [AgentConfigurationStatus]
sdcbairsAgentsConfigurationStatus = lens _sdcbairsAgentsConfigurationStatus (\ s a -> s{_sdcbairsAgentsConfigurationStatus = a}) . _Default . _Coerce;
sdcbairsResponseStatus :: Lens' StopDataCollectionByAgentIdsResponse Int
sdcbairsResponseStatus = lens _sdcbairsResponseStatus (\ s a -> s{_sdcbairsResponseStatus = a});
instance NFData StopDataCollectionByAgentIdsResponse