{-# 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.MediaStoreData.ListItems
(
listItems
, ListItems
, liPath
, liNextToken
, liMaxResults
, listItemsResponse
, ListItemsResponse
, lirsItems
, lirsNextToken
, lirsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MediaStoreData.Types
import Network.AWS.MediaStoreData.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ListItems = ListItems'
{ _liPath :: !(Maybe Text)
, _liNextToken :: !(Maybe Text)
, _liMaxResults :: !(Maybe Nat)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listItems
:: ListItems
listItems =
ListItems'
{_liPath = Nothing, _liNextToken = Nothing, _liMaxResults = Nothing}
liPath :: Lens' ListItems (Maybe Text)
liPath = lens _liPath (\ s a -> s{_liPath = a})
liNextToken :: Lens' ListItems (Maybe Text)
liNextToken = lens _liNextToken (\ s a -> s{_liNextToken = a})
liMaxResults :: Lens' ListItems (Maybe Natural)
liMaxResults = lens _liMaxResults (\ s a -> s{_liMaxResults = a}) . mapping _Nat
instance AWSRequest ListItems where
type Rs ListItems = ListItemsResponse
request = get mediaStoreData
response
= receiveJSON
(\ s h x ->
ListItemsResponse' <$>
(x .?> "Items" .!@ mempty) <*> (x .?> "NextToken")
<*> (pure (fromEnum s)))
instance Hashable ListItems where
instance NFData ListItems where
instance ToHeaders ListItems where
toHeaders = const mempty
instance ToPath ListItems where
toPath = const "/"
instance ToQuery ListItems where
toQuery ListItems'{..}
= mconcat
["Path" =: _liPath, "NextToken" =: _liNextToken,
"MaxResults" =: _liMaxResults]
data ListItemsResponse = ListItemsResponse'
{ _lirsItems :: !(Maybe [Item])
, _lirsNextToken :: !(Maybe Text)
, _lirsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
listItemsResponse
:: Int
-> ListItemsResponse
listItemsResponse pResponseStatus_ =
ListItemsResponse'
{ _lirsItems = Nothing
, _lirsNextToken = Nothing
, _lirsResponseStatus = pResponseStatus_
}
lirsItems :: Lens' ListItemsResponse [Item]
lirsItems = lens _lirsItems (\ s a -> s{_lirsItems = a}) . _Default . _Coerce
lirsNextToken :: Lens' ListItemsResponse (Maybe Text)
lirsNextToken = lens _lirsNextToken (\ s a -> s{_lirsNextToken = a})
lirsResponseStatus :: Lens' ListItemsResponse Int
lirsResponseStatus = lens _lirsResponseStatus (\ s a -> s{_lirsResponseStatus = a})
instance NFData ListItemsResponse where