module Network.Google.Resource.MapsEngine.Rasters.Files.Insert
(
RastersFilesInsertResource
, rastersFilesInsert
, RastersFilesInsert
, rfiId
, rfiFilename
) where
import Network.Google.MapsEngine.Types
import Network.Google.Prelude
type RastersFilesInsertResource =
"mapsengine" :>
"v1" :>
"rasters" :>
Capture "id" Text :>
"files" :>
QueryParam "filename" Text :>
QueryParam "alt" AltJSON :> Post '[JSON] ()
:<|>
"upload" :>
"mapsengine" :>
"v1" :>
"rasters" :>
Capture "id" Text :>
"files" :>
QueryParam "filename" Text :>
QueryParam "alt" AltJSON :>
QueryParam "uploadType" AltMedia :>
AltMedia :> Post '[JSON] ()
data RastersFilesInsert = RastersFilesInsert'
{ _rfiId :: !Text
, _rfiFilename :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
rastersFilesInsert
:: Text
-> Text
-> RastersFilesInsert
rastersFilesInsert pRfiId_ pRfiFilename_ =
RastersFilesInsert'
{ _rfiId = pRfiId_
, _rfiFilename = pRfiFilename_
}
rfiId :: Lens' RastersFilesInsert Text
rfiId = lens _rfiId (\ s a -> s{_rfiId = a})
rfiFilename :: Lens' RastersFilesInsert Text
rfiFilename
= lens _rfiFilename (\ s a -> s{_rfiFilename = a})
instance GoogleRequest RastersFilesInsert where
type Rs RastersFilesInsert = ()
type Scopes RastersFilesInsert =
'["https://www.googleapis.com/auth/mapsengine"]
requestClient RastersFilesInsert'{..}
= go _rfiId (Just _rfiFilename) (Just AltJSON)
mapsEngineService
where go :<|> _
= buildClient
(Proxy :: Proxy RastersFilesInsertResource)
mempty
instance GoogleRequest
(MediaUpload RastersFilesInsert) where
type Rs (MediaUpload RastersFilesInsert) = ()
type Scopes (MediaUpload RastersFilesInsert) =
Scopes RastersFilesInsert
requestClient
(MediaUpload RastersFilesInsert'{..} body)
= go _rfiId (Just _rfiFilename) (Just AltJSON)
(Just AltMedia)
body
mapsEngineService
where _ :<|> go
= buildClient
(Proxy :: Proxy RastersFilesInsertResource)
mempty