module Network.Google.Resource.MapsEngine.Rasters.List
(
RastersListResource
, rastersList
, RastersList
, rlCreatedAfter
, rlCreatorEmail
, rlRole
, rlBbox
, rlProcessingStatus
, rlModifiedAfter
, rlModifiedBefore
, rlPageToken
, rlProjectId
, rlSearch
, rlMaxResults
, rlTags
, rlCreatedBefore
) where
import Network.Google.MapsEngine.Types
import Network.Google.Prelude
type RastersListResource =
"mapsengine" :>
"v1" :>
"rasters" :>
QueryParam "projectId" Text :>
QueryParam "createdAfter" DateTime' :>
QueryParam "creatorEmail" Text :>
QueryParam "role" RastersListRole :>
QueryParam "bbox" Text :>
QueryParam "processingStatus"
RastersListProcessingStatus
:>
QueryParam "modifiedAfter" DateTime' :>
QueryParam "modifiedBefore" DateTime' :>
QueryParam "pageToken" Text :>
QueryParam "search" Text :>
QueryParam "maxResults" (Textual Word32) :>
QueryParam "tags" Text :>
QueryParam "createdBefore" DateTime' :>
QueryParam "alt" AltJSON :>
Get '[JSON] RastersListResponse
data RastersList = RastersList'
{ _rlCreatedAfter :: !(Maybe DateTime')
, _rlCreatorEmail :: !(Maybe Text)
, _rlRole :: !(Maybe RastersListRole)
, _rlBbox :: !(Maybe Text)
, _rlProcessingStatus :: !(Maybe RastersListProcessingStatus)
, _rlModifiedAfter :: !(Maybe DateTime')
, _rlModifiedBefore :: !(Maybe DateTime')
, _rlPageToken :: !(Maybe Text)
, _rlProjectId :: !Text
, _rlSearch :: !(Maybe Text)
, _rlMaxResults :: !(Maybe (Textual Word32))
, _rlTags :: !(Maybe Text)
, _rlCreatedBefore :: !(Maybe DateTime')
} deriving (Eq,Show,Data,Typeable,Generic)
rastersList
:: Text
-> RastersList
rastersList pRlProjectId_ =
RastersList'
{ _rlCreatedAfter = Nothing
, _rlCreatorEmail = Nothing
, _rlRole = Nothing
, _rlBbox = Nothing
, _rlProcessingStatus = Nothing
, _rlModifiedAfter = Nothing
, _rlModifiedBefore = Nothing
, _rlPageToken = Nothing
, _rlProjectId = pRlProjectId_
, _rlSearch = Nothing
, _rlMaxResults = Nothing
, _rlTags = Nothing
, _rlCreatedBefore = Nothing
}
rlCreatedAfter :: Lens' RastersList (Maybe UTCTime)
rlCreatedAfter
= lens _rlCreatedAfter
(\ s a -> s{_rlCreatedAfter = a})
. mapping _DateTime
rlCreatorEmail :: Lens' RastersList (Maybe Text)
rlCreatorEmail
= lens _rlCreatorEmail
(\ s a -> s{_rlCreatorEmail = a})
rlRole :: Lens' RastersList (Maybe RastersListRole)
rlRole = lens _rlRole (\ s a -> s{_rlRole = a})
rlBbox :: Lens' RastersList (Maybe Text)
rlBbox = lens _rlBbox (\ s a -> s{_rlBbox = a})
rlProcessingStatus :: Lens' RastersList (Maybe RastersListProcessingStatus)
rlProcessingStatus
= lens _rlProcessingStatus
(\ s a -> s{_rlProcessingStatus = a})
rlModifiedAfter :: Lens' RastersList (Maybe UTCTime)
rlModifiedAfter
= lens _rlModifiedAfter
(\ s a -> s{_rlModifiedAfter = a})
. mapping _DateTime
rlModifiedBefore :: Lens' RastersList (Maybe UTCTime)
rlModifiedBefore
= lens _rlModifiedBefore
(\ s a -> s{_rlModifiedBefore = a})
. mapping _DateTime
rlPageToken :: Lens' RastersList (Maybe Text)
rlPageToken
= lens _rlPageToken (\ s a -> s{_rlPageToken = a})
rlProjectId :: Lens' RastersList Text
rlProjectId
= lens _rlProjectId (\ s a -> s{_rlProjectId = a})
rlSearch :: Lens' RastersList (Maybe Text)
rlSearch = lens _rlSearch (\ s a -> s{_rlSearch = a})
rlMaxResults :: Lens' RastersList (Maybe Word32)
rlMaxResults
= lens _rlMaxResults (\ s a -> s{_rlMaxResults = a})
. mapping _Coerce
rlTags :: Lens' RastersList (Maybe Text)
rlTags = lens _rlTags (\ s a -> s{_rlTags = a})
rlCreatedBefore :: Lens' RastersList (Maybe UTCTime)
rlCreatedBefore
= lens _rlCreatedBefore
(\ s a -> s{_rlCreatedBefore = a})
. mapping _DateTime
instance GoogleRequest RastersList where
type Rs RastersList = RastersListResponse
type Scopes RastersList =
'["https://www.googleapis.com/auth/mapsengine",
"https://www.googleapis.com/auth/mapsengine.readonly"]
requestClient RastersList'{..}
= go (Just _rlProjectId) _rlCreatedAfter
_rlCreatorEmail
_rlRole
_rlBbox
_rlProcessingStatus
_rlModifiedAfter
_rlModifiedBefore
_rlPageToken
_rlSearch
_rlMaxResults
_rlTags
_rlCreatedBefore
(Just AltJSON)
mapsEngineService
where go
= buildClient (Proxy :: Proxy RastersListResource)
mempty