{-# 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.Redis.Projects.Locations.Instances.Failover
(
ProjectsLocationsInstancesFailoverResource
, projectsLocationsInstancesFailover
, ProjectsLocationsInstancesFailover
, plifXgafv
, plifUploadProtocol
, plifAccessToken
, plifUploadType
, plifPayload
, plifName
, plifCallback
) where
import Network.Google.Prelude
import Network.Google.Redis.Types
type ProjectsLocationsInstancesFailoverResource =
"v1" :>
CaptureMode "name" "failover" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] FailoverInstanceRequest :>
Post '[JSON] Operation
data ProjectsLocationsInstancesFailover =
ProjectsLocationsInstancesFailover'
{ _plifXgafv :: !(Maybe Xgafv)
, _plifUploadProtocol :: !(Maybe Text)
, _plifAccessToken :: !(Maybe Text)
, _plifUploadType :: !(Maybe Text)
, _plifPayload :: !FailoverInstanceRequest
, _plifName :: !Text
, _plifCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
projectsLocationsInstancesFailover
:: FailoverInstanceRequest
-> Text
-> ProjectsLocationsInstancesFailover
projectsLocationsInstancesFailover pPlifPayload_ pPlifName_ =
ProjectsLocationsInstancesFailover'
{ _plifXgafv = Nothing
, _plifUploadProtocol = Nothing
, _plifAccessToken = Nothing
, _plifUploadType = Nothing
, _plifPayload = pPlifPayload_
, _plifName = pPlifName_
, _plifCallback = Nothing
}
plifXgafv :: Lens' ProjectsLocationsInstancesFailover (Maybe Xgafv)
plifXgafv
= lens _plifXgafv (\ s a -> s{_plifXgafv = a})
plifUploadProtocol :: Lens' ProjectsLocationsInstancesFailover (Maybe Text)
plifUploadProtocol
= lens _plifUploadProtocol
(\ s a -> s{_plifUploadProtocol = a})
plifAccessToken :: Lens' ProjectsLocationsInstancesFailover (Maybe Text)
plifAccessToken
= lens _plifAccessToken
(\ s a -> s{_plifAccessToken = a})
plifUploadType :: Lens' ProjectsLocationsInstancesFailover (Maybe Text)
plifUploadType
= lens _plifUploadType
(\ s a -> s{_plifUploadType = a})
plifPayload :: Lens' ProjectsLocationsInstancesFailover FailoverInstanceRequest
plifPayload
= lens _plifPayload (\ s a -> s{_plifPayload = a})
plifName :: Lens' ProjectsLocationsInstancesFailover Text
plifName = lens _plifName (\ s a -> s{_plifName = a})
plifCallback :: Lens' ProjectsLocationsInstancesFailover (Maybe Text)
plifCallback
= lens _plifCallback (\ s a -> s{_plifCallback = a})
instance GoogleRequest
ProjectsLocationsInstancesFailover
where
type Rs ProjectsLocationsInstancesFailover =
Operation
type Scopes ProjectsLocationsInstancesFailover =
'["https://www.googleapis.com/auth/cloud-platform"]
requestClient ProjectsLocationsInstancesFailover'{..}
= go _plifName _plifXgafv _plifUploadProtocol
_plifAccessToken
_plifUploadType
_plifCallback
(Just AltJSON)
_plifPayload
redisService
where go
= buildClient
(Proxy ::
Proxy ProjectsLocationsInstancesFailoverResource)
mempty