module Network.Google.Resource.DFAReporting.CreativeAssets.Insert
(
CreativeAssetsInsertResource
, creativeAssetsInsert
, CreativeAssetsInsert
, caiAdvertiserId
, caiProFileId
, caiPayload
) where
import Network.Google.DFAReporting.Types
import Network.Google.Prelude
type CreativeAssetsInsertResource =
"dfareporting" :>
"v2.2" :>
"userprofiles" :>
Capture "profileId" (Textual Int64) :>
"creativeAssets" :>
Capture "advertiserId" (Textual Int64) :>
"creativeAssets" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] CreativeAssetMetadata :>
Post '[JSON] CreativeAssetMetadata
:<|>
"upload" :>
"dfareporting" :>
"v2.2" :>
"userprofiles" :>
Capture "profileId" (Textual Int64) :>
"creativeAssets" :>
Capture "advertiserId" (Textual Int64) :>
"creativeAssets" :>
QueryParam "alt" AltJSON :>
QueryParam "uploadType" AltMedia :>
MultipartRelated '[JSON] CreativeAssetMetadata
RequestBody
:> Post '[JSON] CreativeAssetMetadata
data CreativeAssetsInsert = CreativeAssetsInsert
{ _caiAdvertiserId :: !(Textual Int64)
, _caiProFileId :: !(Textual Int64)
, _caiPayload :: !CreativeAssetMetadata
} deriving (Eq,Show,Data,Typeable,Generic)
creativeAssetsInsert
:: Int64
-> Int64
-> CreativeAssetMetadata
-> CreativeAssetsInsert
creativeAssetsInsert pCaiAdvertiserId_ pCaiProFileId_ pCaiPayload_ =
CreativeAssetsInsert
{ _caiAdvertiserId = _Coerce # pCaiAdvertiserId_
, _caiProFileId = _Coerce # pCaiProFileId_
, _caiPayload = pCaiPayload_
}
caiAdvertiserId :: Lens' CreativeAssetsInsert Int64
caiAdvertiserId
= lens _caiAdvertiserId
(\ s a -> s{_caiAdvertiserId = a})
. _Coerce
caiProFileId :: Lens' CreativeAssetsInsert Int64
caiProFileId
= lens _caiProFileId (\ s a -> s{_caiProFileId = a})
. _Coerce
caiPayload :: Lens' CreativeAssetsInsert CreativeAssetMetadata
caiPayload
= lens _caiPayload (\ s a -> s{_caiPayload = a})
instance GoogleRequest CreativeAssetsInsert where
type Rs CreativeAssetsInsert = CreativeAssetMetadata
requestClient CreativeAssetsInsert{..}
= go _caiProFileId _caiAdvertiserId (Just AltJSON)
_caiPayload
dFAReportingService
where go :<|> _
= buildClient
(Proxy :: Proxy CreativeAssetsInsertResource)
mempty
instance GoogleRequest
(MediaUpload CreativeAssetsInsert) where
type Rs (MediaUpload CreativeAssetsInsert) =
CreativeAssetMetadata
requestClient
(MediaUpload CreativeAssetsInsert{..} body)
= go _caiProFileId _caiAdvertiserId (Just AltJSON)
(Just AltMedia)
_caiPayload
body
dFAReportingService
where _ :<|> go
= buildClient
(Proxy :: Proxy CreativeAssetsInsertResource)
mempty