{-# 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.DeviceFarm.ListOfferings
(
listOfferings
, ListOfferings
, loNextToken
, listOfferingsResponse
, ListOfferingsResponse
, lorsNextToken
, lorsOfferings
, lorsResponseStatus
) where
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
import Network.AWS.Pager
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype ListOfferings = ListOfferings'
{ _loNextToken :: Maybe Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listOfferings
:: ListOfferings
listOfferings = ListOfferings' {_loNextToken = Nothing}
loNextToken :: Lens' ListOfferings (Maybe Text)
loNextToken = lens _loNextToken (\ s a -> s{_loNextToken = a})
instance AWSPager ListOfferings where
page rq rs
| stop (rs ^. lorsNextToken) = Nothing
| stop (rs ^. lorsOfferings) = Nothing
| otherwise =
Just $ rq & loNextToken .~ rs ^. lorsNextToken
instance AWSRequest ListOfferings where
type Rs ListOfferings = ListOfferingsResponse
request = postJSON deviceFarm
response
= receiveJSON
(\ s h x ->
ListOfferingsResponse' <$>
(x .?> "nextToken") <*>
(x .?> "offerings" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable ListOfferings where
instance NFData ListOfferings where
instance ToHeaders ListOfferings where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DeviceFarm_20150623.ListOfferings" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ListOfferings where
toJSON ListOfferings'{..}
= object
(catMaybes [("nextToken" .=) <$> _loNextToken])
instance ToPath ListOfferings where
toPath = const "/"
instance ToQuery ListOfferings where
toQuery = const mempty
data ListOfferingsResponse = ListOfferingsResponse'
{ _lorsNextToken :: !(Maybe Text)
, _lorsOfferings :: !(Maybe [Offering])
, _lorsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listOfferingsResponse
:: Int
-> ListOfferingsResponse
listOfferingsResponse pResponseStatus_ =
ListOfferingsResponse'
{ _lorsNextToken = Nothing
, _lorsOfferings = Nothing
, _lorsResponseStatus = pResponseStatus_
}
lorsNextToken :: Lens' ListOfferingsResponse (Maybe Text)
lorsNextToken = lens _lorsNextToken (\ s a -> s{_lorsNextToken = a})
lorsOfferings :: Lens' ListOfferingsResponse [Offering]
lorsOfferings = lens _lorsOfferings (\ s a -> s{_lorsOfferings = a}) . _Default . _Coerce
lorsResponseStatus :: Lens' ListOfferingsResponse Int
lorsResponseStatus = lens _lorsResponseStatus (\ s a -> s{_lorsResponseStatus = a})
instance NFData ListOfferingsResponse where