module Network.Google.Resource.AppEngine.Apps.Modules.Versions.Create
(
AppsModulesVersionsCreateResource
, appsModulesVersionsCreate
, AppsModulesVersionsCreate
, amvcXgafv
, amvcUploadProtocol
, amvcPp
, amvcAccessToken
, amvcUploadType
, amvcPayload
, amvcModulesId
, amvcBearerToken
, amvcAppsId
, amvcCallback
) where
import Network.Google.AppEngine.Types
import Network.Google.Prelude
type AppsModulesVersionsCreateResource =
"v1beta4" :>
"apps" :>
Capture "appsId" Text :>
"modules" :>
Capture "modulesId" Text :>
"versions" :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Version :>
Post '[JSON] Operation
data AppsModulesVersionsCreate = AppsModulesVersionsCreate
{ _amvcXgafv :: !(Maybe Text)
, _amvcUploadProtocol :: !(Maybe Text)
, _amvcPp :: !Bool
, _amvcAccessToken :: !(Maybe Text)
, _amvcUploadType :: !(Maybe Text)
, _amvcPayload :: !Version
, _amvcModulesId :: !Text
, _amvcBearerToken :: !(Maybe Text)
, _amvcAppsId :: !Text
, _amvcCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
appsModulesVersionsCreate
:: Version
-> Text
-> Text
-> AppsModulesVersionsCreate
appsModulesVersionsCreate pAmvcPayload_ pAmvcModulesId_ pAmvcAppsId_ =
AppsModulesVersionsCreate
{ _amvcXgafv = Nothing
, _amvcUploadProtocol = Nothing
, _amvcPp = True
, _amvcAccessToken = Nothing
, _amvcUploadType = Nothing
, _amvcPayload = pAmvcPayload_
, _amvcModulesId = pAmvcModulesId_
, _amvcBearerToken = Nothing
, _amvcAppsId = pAmvcAppsId_
, _amvcCallback = Nothing
}
amvcXgafv :: Lens' AppsModulesVersionsCreate (Maybe Text)
amvcXgafv
= lens _amvcXgafv (\ s a -> s{_amvcXgafv = a})
amvcUploadProtocol :: Lens' AppsModulesVersionsCreate (Maybe Text)
amvcUploadProtocol
= lens _amvcUploadProtocol
(\ s a -> s{_amvcUploadProtocol = a})
amvcPp :: Lens' AppsModulesVersionsCreate Bool
amvcPp = lens _amvcPp (\ s a -> s{_amvcPp = a})
amvcAccessToken :: Lens' AppsModulesVersionsCreate (Maybe Text)
amvcAccessToken
= lens _amvcAccessToken
(\ s a -> s{_amvcAccessToken = a})
amvcUploadType :: Lens' AppsModulesVersionsCreate (Maybe Text)
amvcUploadType
= lens _amvcUploadType
(\ s a -> s{_amvcUploadType = a})
amvcPayload :: Lens' AppsModulesVersionsCreate Version
amvcPayload
= lens _amvcPayload (\ s a -> s{_amvcPayload = a})
amvcModulesId :: Lens' AppsModulesVersionsCreate Text
amvcModulesId
= lens _amvcModulesId
(\ s a -> s{_amvcModulesId = a})
amvcBearerToken :: Lens' AppsModulesVersionsCreate (Maybe Text)
amvcBearerToken
= lens _amvcBearerToken
(\ s a -> s{_amvcBearerToken = a})
amvcAppsId :: Lens' AppsModulesVersionsCreate Text
amvcAppsId
= lens _amvcAppsId (\ s a -> s{_amvcAppsId = a})
amvcCallback :: Lens' AppsModulesVersionsCreate (Maybe Text)
amvcCallback
= lens _amvcCallback (\ s a -> s{_amvcCallback = a})
instance GoogleRequest AppsModulesVersionsCreate
where
type Rs AppsModulesVersionsCreate = Operation
requestClient AppsModulesVersionsCreate{..}
= go _amvcAppsId _amvcModulesId _amvcXgafv
_amvcUploadProtocol
(Just _amvcPp)
_amvcAccessToken
_amvcUploadType
_amvcBearerToken
_amvcCallback
(Just AltJSON)
_amvcPayload
appEngineService
where go
= buildClient
(Proxy :: Proxy AppsModulesVersionsCreateResource)
mempty