module Network.Google.Resource.MapsEngine.Maps.List
(
MapsListResource
, mapsList
, MapsList
, mlCreatedAfter
, mlCreatorEmail
, mlRole
, mlBbox
, mlProcessingStatus
, mlModifiedAfter
, mlModifiedBefore
, mlPageToken
, mlProjectId
, mlSearch
, mlMaxResults
, mlTags
, mlCreatedBefore
) where
import Network.Google.MapsEngine.Types
import Network.Google.Prelude
type MapsListResource =
"mapsengine" :>
"v1" :>
"maps" :>
QueryParam "createdAfter" DateTime' :>
QueryParam "creatorEmail" Text :>
QueryParam "role" MapsListRole :>
QueryParam "bbox" Text :>
QueryParam "processingStatus"
MapsListProcessingStatus
:>
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] MapsListResponse
data MapsList = MapsList'
{ _mlCreatedAfter :: !(Maybe DateTime')
, _mlCreatorEmail :: !(Maybe Text)
, _mlRole :: !(Maybe MapsListRole)
, _mlBbox :: !(Maybe Text)
, _mlProcessingStatus :: !(Maybe MapsListProcessingStatus)
, _mlModifiedAfter :: !(Maybe DateTime')
, _mlModifiedBefore :: !(Maybe DateTime')
, _mlPageToken :: !(Maybe Text)
, _mlProjectId :: !(Maybe Text)
, _mlSearch :: !(Maybe Text)
, _mlMaxResults :: !(Maybe (Textual Word32))
, _mlTags :: !(Maybe Text)
, _mlCreatedBefore :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
mapsList
:: MapsList
mapsList =
MapsList'
{ _mlCreatedAfter = Nothing
, _mlCreatorEmail = Nothing
, _mlRole = Nothing
, _mlBbox = Nothing
, _mlProcessingStatus = Nothing
, _mlModifiedAfter = Nothing
, _mlModifiedBefore = Nothing
, _mlPageToken = Nothing
, _mlProjectId = Nothing
, _mlSearch = Nothing
, _mlMaxResults = Nothing
, _mlTags = Nothing
, _mlCreatedBefore = Nothing
}
mlCreatedAfter :: Lens' MapsList (Maybe UTCTime)
mlCreatedAfter
= lens _mlCreatedAfter
(\ s a -> s{_mlCreatedAfter = a})
. mapping _DateTime
mlCreatorEmail :: Lens' MapsList (Maybe Text)
mlCreatorEmail
= lens _mlCreatorEmail
(\ s a -> s{_mlCreatorEmail = a})
mlRole :: Lens' MapsList (Maybe MapsListRole)
mlRole = lens _mlRole (\ s a -> s{_mlRole = a})
mlBbox :: Lens' MapsList (Maybe Text)
mlBbox = lens _mlBbox (\ s a -> s{_mlBbox = a})
mlProcessingStatus :: Lens' MapsList (Maybe MapsListProcessingStatus)
mlProcessingStatus
= lens _mlProcessingStatus
(\ s a -> s{_mlProcessingStatus = a})
mlModifiedAfter :: Lens' MapsList (Maybe UTCTime)
mlModifiedAfter
= lens _mlModifiedAfter
(\ s a -> s{_mlModifiedAfter = a})
. mapping _DateTime
mlModifiedBefore :: Lens' MapsList (Maybe UTCTime)
mlModifiedBefore
= lens _mlModifiedBefore
(\ s a -> s{_mlModifiedBefore = a})
. mapping _DateTime
mlPageToken :: Lens' MapsList (Maybe Text)
mlPageToken
= lens _mlPageToken (\ s a -> s{_mlPageToken = a})
mlProjectId :: Lens' MapsList (Maybe Text)
mlProjectId
= lens _mlProjectId (\ s a -> s{_mlProjectId = a})
mlSearch :: Lens' MapsList (Maybe Text)
mlSearch = lens _mlSearch (\ s a -> s{_mlSearch = a})
mlMaxResults :: Lens' MapsList (Maybe Word32)
mlMaxResults
= lens _mlMaxResults (\ s a -> s{_mlMaxResults = a})
. mapping _Coerce
mlTags :: Lens' MapsList (Maybe Text)
mlTags = lens _mlTags (\ s a -> s{_mlTags = a})
mlCreatedBefore :: Lens' MapsList (Maybe UTCTime)
mlCreatedBefore
= lens _mlCreatedBefore
(\ s a -> s{_mlCreatedBefore = a})
. mapping _DateTime
instance GoogleRequest MapsList where
type Rs MapsList = MapsListResponse
type Scopes MapsList =
'["https://www.googleapis.com/auth/mapsengine",
"https://www.googleapis.com/auth/mapsengine.readonly"]
requestClient MapsList'{..}
= go _mlCreatedAfter _mlCreatorEmail _mlRole _mlBbox
_mlProcessingStatus
_mlModifiedAfter
_mlModifiedBefore
_mlPageToken
_mlProjectId
_mlSearch
_mlMaxResults
_mlTags
_mlCreatedBefore
(Just AltJSON)
mapsEngineService
where go
= buildClient (Proxy :: Proxy MapsListResource)
mempty