module Network.Google.Resource.AppEngine.Apps.Create
(
AppsCreateResource
, appsCreate
, AppsCreate
, acXgafv
, acUploadProtocol
, acPp
, acAccessToken
, acUploadType
, acPayload
, acBearerToken
, acCallback
) where
import Network.Google.AppEngine.Types
import Network.Google.Prelude
type AppsCreateResource =
"v1" :>
"apps" :>
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] Application :> Post '[JSON] Operation
data AppsCreate = AppsCreate'
{ _acXgafv :: !(Maybe Text)
, _acUploadProtocol :: !(Maybe Text)
, _acPp :: !Bool
, _acAccessToken :: !(Maybe Text)
, _acUploadType :: !(Maybe Text)
, _acPayload :: !Application
, _acBearerToken :: !(Maybe Text)
, _acCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
appsCreate
:: Application
-> AppsCreate
appsCreate pAcPayload_ =
AppsCreate'
{ _acXgafv = Nothing
, _acUploadProtocol = Nothing
, _acPp = True
, _acAccessToken = Nothing
, _acUploadType = Nothing
, _acPayload = pAcPayload_
, _acBearerToken = Nothing
, _acCallback = Nothing
}
acXgafv :: Lens' AppsCreate (Maybe Text)
acXgafv = lens _acXgafv (\ s a -> s{_acXgafv = a})
acUploadProtocol :: Lens' AppsCreate (Maybe Text)
acUploadProtocol
= lens _acUploadProtocol
(\ s a -> s{_acUploadProtocol = a})
acPp :: Lens' AppsCreate Bool
acPp = lens _acPp (\ s a -> s{_acPp = a})
acAccessToken :: Lens' AppsCreate (Maybe Text)
acAccessToken
= lens _acAccessToken
(\ s a -> s{_acAccessToken = a})
acUploadType :: Lens' AppsCreate (Maybe Text)
acUploadType
= lens _acUploadType (\ s a -> s{_acUploadType = a})
acPayload :: Lens' AppsCreate Application
acPayload
= lens _acPayload (\ s a -> s{_acPayload = a})
acBearerToken :: Lens' AppsCreate (Maybe Text)
acBearerToken
= lens _acBearerToken
(\ s a -> s{_acBearerToken = a})
acCallback :: Lens' AppsCreate (Maybe Text)
acCallback
= lens _acCallback (\ s a -> s{_acCallback = a})
instance GoogleRequest AppsCreate where
type Rs AppsCreate = Operation
type Scopes AppsCreate =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient AppsCreate'{..}
= go _acXgafv _acUploadProtocol (Just _acPp)
_acAccessToken
_acUploadType
_acBearerToken
_acCallback
(Just AltJSON)
_acPayload
appEngineService
where go
= buildClient (Proxy :: Proxy AppsCreateResource)
mempty