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.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 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
instance NFData ListOfferings
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