{-# 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.Compute.RegionDisks.CreateSnapshot
(
RegionDisksCreateSnapshotResource
, regionDisksCreateSnapshot
, RegionDisksCreateSnapshot
, rdcsRequestId
, rdcsProject
, rdcsDisk
, rdcsPayload
, rdcsRegion
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type RegionDisksCreateSnapshotResource =
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"regions" :>
Capture "region" Text :>
"disks" :>
Capture "disk" Text :>
"createSnapshot" :>
QueryParam "requestId" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Snapshot :> Post '[JSON] Operation
data RegionDisksCreateSnapshot = RegionDisksCreateSnapshot'
{ _rdcsRequestId :: !(Maybe Text)
, _rdcsProject :: !Text
, _rdcsDisk :: !Text
, _rdcsPayload :: !Snapshot
, _rdcsRegion :: !Text
} deriving (Eq,Show,Data,Typeable,Generic)
regionDisksCreateSnapshot
:: Text
-> Text
-> Snapshot
-> Text
-> RegionDisksCreateSnapshot
regionDisksCreateSnapshot pRdcsProject_ pRdcsDisk_ pRdcsPayload_ pRdcsRegion_ =
RegionDisksCreateSnapshot'
{ _rdcsRequestId = Nothing
, _rdcsProject = pRdcsProject_
, _rdcsDisk = pRdcsDisk_
, _rdcsPayload = pRdcsPayload_
, _rdcsRegion = pRdcsRegion_
}
rdcsRequestId :: Lens' RegionDisksCreateSnapshot (Maybe Text)
rdcsRequestId
= lens _rdcsRequestId
(\ s a -> s{_rdcsRequestId = a})
rdcsProject :: Lens' RegionDisksCreateSnapshot Text
rdcsProject
= lens _rdcsProject (\ s a -> s{_rdcsProject = a})
rdcsDisk :: Lens' RegionDisksCreateSnapshot Text
rdcsDisk = lens _rdcsDisk (\ s a -> s{_rdcsDisk = a})
rdcsPayload :: Lens' RegionDisksCreateSnapshot Snapshot
rdcsPayload
= lens _rdcsPayload (\ s a -> s{_rdcsPayload = a})
rdcsRegion :: Lens' RegionDisksCreateSnapshot Text
rdcsRegion
= lens _rdcsRegion (\ s a -> s{_rdcsRegion = a})
instance GoogleRequest RegionDisksCreateSnapshot
where
type Rs RegionDisksCreateSnapshot = Operation
type Scopes RegionDisksCreateSnapshot =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient RegionDisksCreateSnapshot'{..}
= go _rdcsProject _rdcsRegion _rdcsDisk
_rdcsRequestId
(Just AltJSON)
_rdcsPayload
computeService
where go
= buildClient
(Proxy :: Proxy RegionDisksCreateSnapshotResource)
mempty