{-# 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.GetInstances
(
getInstances
, GetInstances
, giPageToken
, getInstancesResponse
, GetInstancesResponse
, grsNextPageToken
, grsInstances
, grsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Lightsail.Types
import Network.AWS.Lightsail.Types.Product
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype GetInstances = GetInstances'
{ _giPageToken :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getInstances
:: GetInstances
getInstances = GetInstances' {_giPageToken = Nothing}
giPageToken :: Lens' GetInstances (Maybe Text)
giPageToken = lens _giPageToken (\ s a -> s{_giPageToken = a})
instance AWSPager GetInstances where
page rq rs
| stop (rs ^. grsNextPageToken) = Nothing
| stop (rs ^. grsInstances) = Nothing
| otherwise =
Just $ rq & giPageToken .~ rs ^. grsNextPageToken
instance AWSRequest GetInstances where
type Rs GetInstances = GetInstancesResponse
request = postJSON lightsail
response
= receiveJSON
(\ s h x ->
GetInstancesResponse' <$>
(x .?> "nextPageToken") <*>
(x .?> "instances" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable GetInstances where
instance NFData GetInstances where
instance ToHeaders GetInstances where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Lightsail_20161128.GetInstances" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetInstances where
toJSON GetInstances'{..}
= object
(catMaybes [("pageToken" .=) <$> _giPageToken])
instance ToPath GetInstances where
toPath = const "/"
instance ToQuery GetInstances where
toQuery = const mempty
data GetInstancesResponse = GetInstancesResponse'
{ _grsNextPageToken :: !(Maybe Text)
, _grsInstances :: !(Maybe [Instance])
, _grsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getInstancesResponse
:: Int
-> GetInstancesResponse
getInstancesResponse pResponseStatus_ =
GetInstancesResponse'
{ _grsNextPageToken = Nothing
, _grsInstances = Nothing
, _grsResponseStatus = pResponseStatus_
}
grsNextPageToken :: Lens' GetInstancesResponse (Maybe Text)
grsNextPageToken = lens _grsNextPageToken (\ s a -> s{_grsNextPageToken = a})
grsInstances :: Lens' GetInstancesResponse [Instance]
grsInstances = lens _grsInstances (\ s a -> s{_grsInstances = a}) . _Default . _Coerce
grsResponseStatus :: Lens' GetInstancesResponse Int
grsResponseStatus = lens _grsResponseStatus (\ s a -> s{_grsResponseStatus = a})
instance NFData GetInstancesResponse where