{-# 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.GetDiscoverySummary
(
getDiscoverySummary
, GetDiscoverySummary
, getDiscoverySummaryResponse
, GetDiscoverySummaryResponse
, gdsrsServers
, gdsrsServersMappedtoTags
, gdsrsServersMappedToApplications
, gdsrsConnectorSummary
, gdsrsAgentSummary
, gdsrsApplications
, gdsrsResponseStatus
) 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
data GetDiscoverySummary =
GetDiscoverySummary'
deriving (Eq, Read, Show, Data, Typeable, Generic)
getDiscoverySummary
:: GetDiscoverySummary
getDiscoverySummary = GetDiscoverySummary'
instance AWSRequest GetDiscoverySummary where
type Rs GetDiscoverySummary =
GetDiscoverySummaryResponse
request = postJSON discovery
response
= receiveJSON
(\ s h x ->
GetDiscoverySummaryResponse' <$>
(x .?> "servers") <*> (x .?> "serversMappedtoTags")
<*> (x .?> "serversMappedToApplications")
<*> (x .?> "connectorSummary")
<*> (x .?> "agentSummary")
<*> (x .?> "applications")
<*> (pure (fromEnum s)))
instance Hashable GetDiscoverySummary where
instance NFData GetDiscoverySummary where
instance ToHeaders GetDiscoverySummary where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSPoseidonService_V2015_11_01.GetDiscoverySummary"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetDiscoverySummary where
toJSON = const (Object mempty)
instance ToPath GetDiscoverySummary where
toPath = const "/"
instance ToQuery GetDiscoverySummary where
toQuery = const mempty
data GetDiscoverySummaryResponse = GetDiscoverySummaryResponse'
{ _gdsrsServers :: !(Maybe Integer)
, _gdsrsServersMappedtoTags :: !(Maybe Integer)
, _gdsrsServersMappedToApplications :: !(Maybe Integer)
, _gdsrsConnectorSummary :: !(Maybe CustomerConnectorInfo)
, _gdsrsAgentSummary :: !(Maybe CustomerAgentInfo)
, _gdsrsApplications :: !(Maybe Integer)
, _gdsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getDiscoverySummaryResponse
:: Int
-> GetDiscoverySummaryResponse
getDiscoverySummaryResponse pResponseStatus_ =
GetDiscoverySummaryResponse'
{ _gdsrsServers = Nothing
, _gdsrsServersMappedtoTags = Nothing
, _gdsrsServersMappedToApplications = Nothing
, _gdsrsConnectorSummary = Nothing
, _gdsrsAgentSummary = Nothing
, _gdsrsApplications = Nothing
, _gdsrsResponseStatus = pResponseStatus_
}
gdsrsServers :: Lens' GetDiscoverySummaryResponse (Maybe Integer)
gdsrsServers = lens _gdsrsServers (\ s a -> s{_gdsrsServers = a})
gdsrsServersMappedtoTags :: Lens' GetDiscoverySummaryResponse (Maybe Integer)
gdsrsServersMappedtoTags = lens _gdsrsServersMappedtoTags (\ s a -> s{_gdsrsServersMappedtoTags = a})
gdsrsServersMappedToApplications :: Lens' GetDiscoverySummaryResponse (Maybe Integer)
gdsrsServersMappedToApplications = lens _gdsrsServersMappedToApplications (\ s a -> s{_gdsrsServersMappedToApplications = a})
gdsrsConnectorSummary :: Lens' GetDiscoverySummaryResponse (Maybe CustomerConnectorInfo)
gdsrsConnectorSummary = lens _gdsrsConnectorSummary (\ s a -> s{_gdsrsConnectorSummary = a})
gdsrsAgentSummary :: Lens' GetDiscoverySummaryResponse (Maybe CustomerAgentInfo)
gdsrsAgentSummary = lens _gdsrsAgentSummary (\ s a -> s{_gdsrsAgentSummary = a})
gdsrsApplications :: Lens' GetDiscoverySummaryResponse (Maybe Integer)
gdsrsApplications = lens _gdsrsApplications (\ s a -> s{_gdsrsApplications = a})
gdsrsResponseStatus :: Lens' GetDiscoverySummaryResponse Int
gdsrsResponseStatus = lens _gdsrsResponseStatus (\ s a -> s{_gdsrsResponseStatus = a})
instance NFData GetDiscoverySummaryResponse where