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 :>
ReqBody '[OctetStream] RequestBody :> 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 = ()
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) = ()
requestClient
(MediaUpload RastersFilesInsert{..} body)
= go _rfiId (Just _rfiFilename) (Just AltJSON)
(Just AltMedia)
body
mapsEngineService
where _ :<|> go
= buildClient
(Proxy :: Proxy RastersFilesInsertResource)
mempty