module Network.Google.Resource.ResourceViews.ZoneViews.AddResources
(
ZoneViewsAddResourcesResource
, zoneViewsAddResources
, ZoneViewsAddResources
, zvarResourceView
, zvarProject
, zvarZone
, zvarPayload
) where
import Network.Google.Prelude
import Network.Google.ResourceViews.Types
type ZoneViewsAddResourcesResource =
"resourceviews" :>
"v1beta2" :>
"projects" :>
Capture "project" Text :>
"zones" :>
Capture "zone" Text :>
"resourceViews" :>
Capture "resourceView" Text :>
"addResources" :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] ZoneViewsAddResourcesRequest :>
Post '[JSON] Operation
data ZoneViewsAddResources = ZoneViewsAddResources'
{ _zvarResourceView :: !Text
, _zvarProject :: !Text
, _zvarZone :: !Text
, _zvarPayload :: !ZoneViewsAddResourcesRequest
} deriving (Eq,Show,Data,Typeable,Generic)
zoneViewsAddResources
:: Text
-> Text
-> Text
-> ZoneViewsAddResourcesRequest
-> ZoneViewsAddResources
zoneViewsAddResources pZvarResourceView_ pZvarProject_ pZvarZone_ pZvarPayload_ =
ZoneViewsAddResources'
{ _zvarResourceView = pZvarResourceView_
, _zvarProject = pZvarProject_
, _zvarZone = pZvarZone_
, _zvarPayload = pZvarPayload_
}
zvarResourceView :: Lens' ZoneViewsAddResources Text
zvarResourceView
= lens _zvarResourceView
(\ s a -> s{_zvarResourceView = a})
zvarProject :: Lens' ZoneViewsAddResources Text
zvarProject
= lens _zvarProject (\ s a -> s{_zvarProject = a})
zvarZone :: Lens' ZoneViewsAddResources Text
zvarZone = lens _zvarZone (\ s a -> s{_zvarZone = a})
zvarPayload :: Lens' ZoneViewsAddResources ZoneViewsAddResourcesRequest
zvarPayload
= lens _zvarPayload (\ s a -> s{_zvarPayload = a})
instance GoogleRequest ZoneViewsAddResources where
type Rs ZoneViewsAddResources = Operation
type Scopes ZoneViewsAddResources =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute",
"https://www.googleapis.com/auth/ndev.cloudman"]
requestClient ZoneViewsAddResources'{..}
= go _zvarProject _zvarZone _zvarResourceView
(Just AltJSON)
_zvarPayload
resourceViewsService
where go
= buildClient
(Proxy :: Proxy ZoneViewsAddResourcesResource)
mempty