{-# 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.AndroidManagement.Enterprises.WebApps.Create
(
EnterprisesWebAppsCreateResource
, enterprisesWebAppsCreate
, EnterprisesWebAppsCreate
, ewacParent
, ewacXgafv
, ewacUploadProtocol
, ewacAccessToken
, ewacUploadType
, ewacPayload
, ewacCallback
) where
import Network.Google.AndroidManagement.Types
import Network.Google.Prelude
type EnterprisesWebAppsCreateResource =
"v1" :>
Capture "parent" Text :>
"webApps" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] WebApp :> Post '[JSON] WebApp
data EnterprisesWebAppsCreate =
EnterprisesWebAppsCreate'
{ _ewacParent :: !Text
, _ewacXgafv :: !(Maybe Xgafv)
, _ewacUploadProtocol :: !(Maybe Text)
, _ewacAccessToken :: !(Maybe Text)
, _ewacUploadType :: !(Maybe Text)
, _ewacPayload :: !WebApp
, _ewacCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
enterprisesWebAppsCreate
:: Text
-> WebApp
-> EnterprisesWebAppsCreate
enterprisesWebAppsCreate pEwacParent_ pEwacPayload_ =
EnterprisesWebAppsCreate'
{ _ewacParent = pEwacParent_
, _ewacXgafv = Nothing
, _ewacUploadProtocol = Nothing
, _ewacAccessToken = Nothing
, _ewacUploadType = Nothing
, _ewacPayload = pEwacPayload_
, _ewacCallback = Nothing
}
ewacParent :: Lens' EnterprisesWebAppsCreate Text
ewacParent
= lens _ewacParent (\ s a -> s{_ewacParent = a})
ewacXgafv :: Lens' EnterprisesWebAppsCreate (Maybe Xgafv)
ewacXgafv
= lens _ewacXgafv (\ s a -> s{_ewacXgafv = a})
ewacUploadProtocol :: Lens' EnterprisesWebAppsCreate (Maybe Text)
ewacUploadProtocol
= lens _ewacUploadProtocol
(\ s a -> s{_ewacUploadProtocol = a})
ewacAccessToken :: Lens' EnterprisesWebAppsCreate (Maybe Text)
ewacAccessToken
= lens _ewacAccessToken
(\ s a -> s{_ewacAccessToken = a})
ewacUploadType :: Lens' EnterprisesWebAppsCreate (Maybe Text)
ewacUploadType
= lens _ewacUploadType
(\ s a -> s{_ewacUploadType = a})
ewacPayload :: Lens' EnterprisesWebAppsCreate WebApp
ewacPayload
= lens _ewacPayload (\ s a -> s{_ewacPayload = a})
ewacCallback :: Lens' EnterprisesWebAppsCreate (Maybe Text)
ewacCallback
= lens _ewacCallback (\ s a -> s{_ewacCallback = a})
instance GoogleRequest EnterprisesWebAppsCreate where
type Rs EnterprisesWebAppsCreate = WebApp
type Scopes EnterprisesWebAppsCreate =
'["https://www.googleapis.com/auth/androidmanagement"]
requestClient EnterprisesWebAppsCreate'{..}
= go _ewacParent _ewacXgafv _ewacUploadProtocol
_ewacAccessToken
_ewacUploadType
_ewacCallback
(Just AltJSON)
_ewacPayload
androidManagementService
where go
= buildClient
(Proxy :: Proxy EnterprisesWebAppsCreateResource)
mempty