{-# 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.Route53.GetTrafficPolicyInstanceCount
(
getTrafficPolicyInstanceCount
, GetTrafficPolicyInstanceCount
, getTrafficPolicyInstanceCountResponse
, GetTrafficPolicyInstanceCountResponse
, gtpicrsResponseStatus
, gtpicrsTrafficPolicyInstanceCount
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.Route53.Types
import Network.AWS.Route53.Types.Product
data GetTrafficPolicyInstanceCount =
GetTrafficPolicyInstanceCount'
deriving (Eq, Read, Show, Data, Typeable, Generic)
getTrafficPolicyInstanceCount
:: GetTrafficPolicyInstanceCount
getTrafficPolicyInstanceCount = GetTrafficPolicyInstanceCount'
instance AWSRequest GetTrafficPolicyInstanceCount
where
type Rs GetTrafficPolicyInstanceCount =
GetTrafficPolicyInstanceCountResponse
request = get route53
response
= receiveXML
(\ s h x ->
GetTrafficPolicyInstanceCountResponse' <$>
(pure (fromEnum s)) <*>
(x .@ "TrafficPolicyInstanceCount"))
instance Hashable GetTrafficPolicyInstanceCount where
instance NFData GetTrafficPolicyInstanceCount where
instance ToHeaders GetTrafficPolicyInstanceCount
where
toHeaders = const mempty
instance ToPath GetTrafficPolicyInstanceCount where
toPath
= const "/2013-04-01/trafficpolicyinstancecount"
instance ToQuery GetTrafficPolicyInstanceCount where
toQuery = const mempty
data GetTrafficPolicyInstanceCountResponse = GetTrafficPolicyInstanceCountResponse'
{ _gtpicrsResponseStatus :: !Int
, _gtpicrsTrafficPolicyInstanceCount :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getTrafficPolicyInstanceCountResponse
:: Int
-> Int
-> GetTrafficPolicyInstanceCountResponse
getTrafficPolicyInstanceCountResponse pResponseStatus_ pTrafficPolicyInstanceCount_ =
GetTrafficPolicyInstanceCountResponse'
{ _gtpicrsResponseStatus = pResponseStatus_
, _gtpicrsTrafficPolicyInstanceCount = pTrafficPolicyInstanceCount_
}
gtpicrsResponseStatus :: Lens' GetTrafficPolicyInstanceCountResponse Int
gtpicrsResponseStatus = lens _gtpicrsResponseStatus (\ s a -> s{_gtpicrsResponseStatus = a})
gtpicrsTrafficPolicyInstanceCount :: Lens' GetTrafficPolicyInstanceCountResponse Int
gtpicrsTrafficPolicyInstanceCount = lens _gtpicrsTrafficPolicyInstanceCount (\ s a -> s{_gtpicrsTrafficPolicyInstanceCount = a})
instance NFData GetTrafficPolicyInstanceCountResponse
where