module Network.Google.Resource.MapsEngine.Layers.List
(
LayersListResource
, layersList
, LayersList
, llCreatedAfter
, llCreatorEmail
, llRole
, llBbox
, llProcessingStatus
, llModifiedAfter
, llModifiedBefore
, llPageToken
, llProjectId
, llSearch
, llMaxResults
, llTags
, llCreatedBefore
) where
import Network.Google.MapsEngine.Types
import Network.Google.Prelude
type LayersListResource =
"mapsengine" :>
"v1" :>
"layers" :>
QueryParam "createdAfter" DateTime' :>
QueryParam "creatorEmail" Text :>
QueryParam "role" LayersListRole :>
QueryParam "bbox" Text :>
QueryParam "processingStatus"
LayersListProcessingStatus
:>
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] LayersListResponse
data LayersList = LayersList'
{ _llCreatedAfter :: !(Maybe DateTime')
, _llCreatorEmail :: !(Maybe Text)
, _llRole :: !(Maybe LayersListRole)
, _llBbox :: !(Maybe Text)
, _llProcessingStatus :: !(Maybe LayersListProcessingStatus)
, _llModifiedAfter :: !(Maybe DateTime')
, _llModifiedBefore :: !(Maybe DateTime')
, _llPageToken :: !(Maybe Text)
, _llProjectId :: !(Maybe Text)
, _llSearch :: !(Maybe Text)
, _llMaxResults :: !(Maybe (Textual Word32))
, _llTags :: !(Maybe Text)
, _llCreatedBefore :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
layersList
:: LayersList
layersList =
LayersList'
{ _llCreatedAfter = Nothing
, _llCreatorEmail = Nothing
, _llRole = Nothing
, _llBbox = Nothing
, _llProcessingStatus = Nothing
, _llModifiedAfter = Nothing
, _llModifiedBefore = Nothing
, _llPageToken = Nothing
, _llProjectId = Nothing
, _llSearch = Nothing
, _llMaxResults = Nothing
, _llTags = Nothing
, _llCreatedBefore = Nothing
}
llCreatedAfter :: Lens' LayersList (Maybe UTCTime)
llCreatedAfter
= lens _llCreatedAfter
(\ s a -> s{_llCreatedAfter = a})
. mapping _DateTime
llCreatorEmail :: Lens' LayersList (Maybe Text)
llCreatorEmail
= lens _llCreatorEmail
(\ s a -> s{_llCreatorEmail = a})
llRole :: Lens' LayersList (Maybe LayersListRole)
llRole = lens _llRole (\ s a -> s{_llRole = a})
llBbox :: Lens' LayersList (Maybe Text)
llBbox = lens _llBbox (\ s a -> s{_llBbox = a})
llProcessingStatus :: Lens' LayersList (Maybe LayersListProcessingStatus)
llProcessingStatus
= lens _llProcessingStatus
(\ s a -> s{_llProcessingStatus = a})
llModifiedAfter :: Lens' LayersList (Maybe UTCTime)
llModifiedAfter
= lens _llModifiedAfter
(\ s a -> s{_llModifiedAfter = a})
. mapping _DateTime
llModifiedBefore :: Lens' LayersList (Maybe UTCTime)
llModifiedBefore
= lens _llModifiedBefore
(\ s a -> s{_llModifiedBefore = a})
. mapping _DateTime
llPageToken :: Lens' LayersList (Maybe Text)
llPageToken
= lens _llPageToken (\ s a -> s{_llPageToken = a})
llProjectId :: Lens' LayersList (Maybe Text)
llProjectId
= lens _llProjectId (\ s a -> s{_llProjectId = a})
llSearch :: Lens' LayersList (Maybe Text)
llSearch = lens _llSearch (\ s a -> s{_llSearch = a})
llMaxResults :: Lens' LayersList (Maybe Word32)
llMaxResults
= lens _llMaxResults (\ s a -> s{_llMaxResults = a})
. mapping _Coerce
llTags :: Lens' LayersList (Maybe Text)
llTags = lens _llTags (\ s a -> s{_llTags = a})
llCreatedBefore :: Lens' LayersList (Maybe UTCTime)
llCreatedBefore
= lens _llCreatedBefore
(\ s a -> s{_llCreatedBefore = a})
. mapping _DateTime
instance GoogleRequest LayersList where
type Rs LayersList = LayersListResponse
type Scopes LayersList =
'["https://www.googleapis.com/auth/mapsengine",
"https://www.googleapis.com/auth/mapsengine.readonly"]
requestClient LayersList'{..}
= go _llCreatedAfter _llCreatorEmail _llRole _llBbox
_llProcessingStatus
_llModifiedAfter
_llModifiedBefore
_llPageToken
_llProjectId
_llSearch
_llMaxResults
_llTags
_llCreatedBefore
(Just AltJSON)
mapsEngineService
where go
= buildClient (Proxy :: Proxy LayersListResource)
mempty