{-# LANGUAGE DataKinds #-}
{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE FlexibleInstances #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE TypeOperators #-}
{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.Google.Resource.Content.LiaSettings.Custombatch
(
LiaSettingsCustombatchResource
, liaSettingsCustombatch
, LiaSettingsCustombatch
, lscPayload
) where
import Network.Google.Prelude
import Network.Google.ShoppingContent.Types
type LiaSettingsCustombatchResource =
"content" :>
"v2.1" :>
"liasettings" :>
"batch" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] LiaSettingsCustomBatchRequest :>
Post '[JSON] LiaSettingsCustomBatchResponse
newtype LiaSettingsCustombatch = LiaSettingsCustombatch'
{ _lscPayload :: LiaSettingsCustomBatchRequest
} deriving (Eq,Show,Data,Typeable,Generic)
liaSettingsCustombatch
:: LiaSettingsCustomBatchRequest
-> LiaSettingsCustombatch
liaSettingsCustombatch pLscPayload_ =
LiaSettingsCustombatch'
{ _lscPayload = pLscPayload_
}
lscPayload :: Lens' LiaSettingsCustombatch LiaSettingsCustomBatchRequest
lscPayload
= lens _lscPayload (\ s a -> s{_lscPayload = a})
instance GoogleRequest LiaSettingsCustombatch where
type Rs LiaSettingsCustombatch =
LiaSettingsCustomBatchResponse
type Scopes LiaSettingsCustombatch =
'["https://www.googleapis.com/auth/content"]
requestClient LiaSettingsCustombatch'{..}
= go (Just AltJSON) _lscPayload
shoppingContentService
where go
= buildClient
(Proxy :: Proxy LiaSettingsCustombatchResource)
mempty