{-# 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.Lightsail.GetLoadBalancers
(
getLoadBalancers
, GetLoadBalancers
, glbPageToken
, getLoadBalancersResponse
, GetLoadBalancersResponse
, glbsrsNextPageToken
, glbsrsLoadBalancers
, glbsrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Lightsail.Types
import Network.AWS.Lightsail.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype GetLoadBalancers = GetLoadBalancers'
{ _glbPageToken :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getLoadBalancers
:: GetLoadBalancers
getLoadBalancers = GetLoadBalancers' {_glbPageToken = Nothing}
glbPageToken :: Lens' GetLoadBalancers (Maybe Text)
glbPageToken = lens _glbPageToken (\ s a -> s{_glbPageToken = a})
instance AWSRequest GetLoadBalancers where
type Rs GetLoadBalancers = GetLoadBalancersResponse
request = postJSON lightsail
response
= receiveJSON
(\ s h x ->
GetLoadBalancersResponse' <$>
(x .?> "nextPageToken") <*>
(x .?> "loadBalancers" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable GetLoadBalancers where
instance NFData GetLoadBalancers where
instance ToHeaders GetLoadBalancers where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Lightsail_20161128.GetLoadBalancers" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetLoadBalancers where
toJSON GetLoadBalancers'{..}
= object
(catMaybes [("pageToken" .=) <$> _glbPageToken])
instance ToPath GetLoadBalancers where
toPath = const "/"
instance ToQuery GetLoadBalancers where
toQuery = const mempty
data GetLoadBalancersResponse = GetLoadBalancersResponse'
{ _glbsrsNextPageToken :: !(Maybe Text)
, _glbsrsLoadBalancers :: !(Maybe [LoadBalancer])
, _glbsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getLoadBalancersResponse
:: Int
-> GetLoadBalancersResponse
getLoadBalancersResponse pResponseStatus_ =
GetLoadBalancersResponse'
{ _glbsrsNextPageToken = Nothing
, _glbsrsLoadBalancers = Nothing
, _glbsrsResponseStatus = pResponseStatus_
}
glbsrsNextPageToken :: Lens' GetLoadBalancersResponse (Maybe Text)
glbsrsNextPageToken = lens _glbsrsNextPageToken (\ s a -> s{_glbsrsNextPageToken = a})
glbsrsLoadBalancers :: Lens' GetLoadBalancersResponse [LoadBalancer]
glbsrsLoadBalancers = lens _glbsrsLoadBalancers (\ s a -> s{_glbsrsLoadBalancers = a}) . _Default . _Coerce
glbsrsResponseStatus :: Lens' GetLoadBalancersResponse Int
glbsrsResponseStatus = lens _glbsrsResponseStatus (\ s a -> s{_glbsrsResponseStatus = a})
instance NFData GetLoadBalancersResponse where