module Network.Google.Resource.MapsEngine.Tables.List
(
TablesListResource
, tablesList
, TablesList
, tlCreatedAfter
, tlCreatorEmail
, tlRole
, tlBbox
, tlProcessingStatus
, tlModifiedAfter
, tlModifiedBefore
, tlPageToken
, tlProjectId
, tlSearch
, tlMaxResults
, tlTags
, tlCreatedBefore
) where
import Network.Google.MapsEngine.Types
import Network.Google.Prelude
type TablesListResource =
"mapsengine" :>
"v1" :>
"tables" :>
QueryParam "createdAfter" DateTime' :>
QueryParam "creatorEmail" Text :>
QueryParam "role" TablesListRole :>
QueryParam "bbox" Text :>
QueryParam "processingStatus"
TablesListProcessingStatus
:>
QueryParam "modifiedAfter" DateTime' :>
QueryParam "modifiedBefore" DateTime' :>
QueryParam "pageToken" Text :>
QueryParam "projectId" Text :>
QueryParam "search" Text :>
QueryParam "maxResults" (Textual Word32) :>
QueryParam "tags" Text :>
QueryParam "createdBefore" DateTime' :>
QueryParam "alt" AltJSON :>
Get '[JSON] TablesListResponse
data TablesList = TablesList
{ _tlCreatedAfter :: !(Maybe DateTime')
, _tlCreatorEmail :: !(Maybe Text)
, _tlRole :: !(Maybe TablesListRole)
, _tlBbox :: !(Maybe Text)
, _tlProcessingStatus :: !(Maybe TablesListProcessingStatus)
, _tlModifiedAfter :: !(Maybe DateTime')
, _tlModifiedBefore :: !(Maybe DateTime')
, _tlPageToken :: !(Maybe Text)
, _tlProjectId :: !(Maybe Text)
, _tlSearch :: !(Maybe Text)
, _tlMaxResults :: !(Maybe (Textual Word32))
, _tlTags :: !(Maybe Text)
, _tlCreatedBefore :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
tablesList
:: TablesList
tablesList =
TablesList
{ _tlCreatedAfter = Nothing
, _tlCreatorEmail = Nothing
, _tlRole = Nothing
, _tlBbox = Nothing
, _tlProcessingStatus = Nothing
, _tlModifiedAfter = Nothing
, _tlModifiedBefore = Nothing
, _tlPageToken = Nothing
, _tlProjectId = Nothing
, _tlSearch = Nothing
, _tlMaxResults = Nothing
, _tlTags = Nothing
, _tlCreatedBefore = Nothing
}
tlCreatedAfter :: Lens' TablesList (Maybe UTCTime)
tlCreatedAfter
= lens _tlCreatedAfter
(\ s a -> s{_tlCreatedAfter = a})
. mapping _DateTime
tlCreatorEmail :: Lens' TablesList (Maybe Text)
tlCreatorEmail
= lens _tlCreatorEmail
(\ s a -> s{_tlCreatorEmail = a})
tlRole :: Lens' TablesList (Maybe TablesListRole)
tlRole = lens _tlRole (\ s a -> s{_tlRole = a})
tlBbox :: Lens' TablesList (Maybe Text)
tlBbox = lens _tlBbox (\ s a -> s{_tlBbox = a})
tlProcessingStatus :: Lens' TablesList (Maybe TablesListProcessingStatus)
tlProcessingStatus
= lens _tlProcessingStatus
(\ s a -> s{_tlProcessingStatus = a})
tlModifiedAfter :: Lens' TablesList (Maybe UTCTime)
tlModifiedAfter
= lens _tlModifiedAfter
(\ s a -> s{_tlModifiedAfter = a})
. mapping _DateTime
tlModifiedBefore :: Lens' TablesList (Maybe UTCTime)
tlModifiedBefore
= lens _tlModifiedBefore
(\ s a -> s{_tlModifiedBefore = a})
. mapping _DateTime
tlPageToken :: Lens' TablesList (Maybe Text)
tlPageToken
= lens _tlPageToken (\ s a -> s{_tlPageToken = a})
tlProjectId :: Lens' TablesList (Maybe Text)
tlProjectId
= lens _tlProjectId (\ s a -> s{_tlProjectId = a})
tlSearch :: Lens' TablesList (Maybe Text)
tlSearch = lens _tlSearch (\ s a -> s{_tlSearch = a})
tlMaxResults :: Lens' TablesList (Maybe Word32)
tlMaxResults
= lens _tlMaxResults (\ s a -> s{_tlMaxResults = a})
. mapping _Coerce
tlTags :: Lens' TablesList (Maybe Text)
tlTags = lens _tlTags (\ s a -> s{_tlTags = a})
tlCreatedBefore :: Lens' TablesList (Maybe UTCTime)
tlCreatedBefore
= lens _tlCreatedBefore
(\ s a -> s{_tlCreatedBefore = a})
. mapping _DateTime
instance GoogleRequest TablesList where
type Rs TablesList = TablesListResponse
requestClient TablesList{..}
= go _tlCreatedAfter _tlCreatorEmail _tlRole _tlBbox
_tlProcessingStatus
_tlModifiedAfter
_tlModifiedBefore
_tlPageToken
_tlProjectId
_tlSearch
_tlMaxResults
_tlTags
_tlCreatedBefore
(Just AltJSON)
mapsEngineService
where go
= buildClient (Proxy :: Proxy TablesListResource)
mempty