{-# 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.GlobalAddresses.Insert
(
GlobalAddressesInsertResource
, globalAddressesInsert
, GlobalAddressesInsert
, gaiRequestId
, gaiProject
, gaiPayload
) where
import Network.Google.Compute.Types
import Network.Google.Prelude
type GlobalAddressesInsertResource =
"compute" :>
"v1" :>
"projects" :>
Capture "project" Text :>
"global" :>
"addresses" :>
QueryParam "requestId" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Address :> Post '[JSON] Operation
data GlobalAddressesInsert = GlobalAddressesInsert'
{ _gaiRequestId :: !(Maybe Text)
, _gaiProject :: !Text
, _gaiPayload :: !Address
} deriving (Eq,Show,Data,Typeable,Generic)
globalAddressesInsert
:: Text
-> Address
-> GlobalAddressesInsert
globalAddressesInsert pGaiProject_ pGaiPayload_ =
GlobalAddressesInsert'
{ _gaiRequestId = Nothing
, _gaiProject = pGaiProject_
, _gaiPayload = pGaiPayload_
}
gaiRequestId :: Lens' GlobalAddressesInsert (Maybe Text)
gaiRequestId
= lens _gaiRequestId (\ s a -> s{_gaiRequestId = a})
gaiProject :: Lens' GlobalAddressesInsert Text
gaiProject
= lens _gaiProject (\ s a -> s{_gaiProject = a})
gaiPayload :: Lens' GlobalAddressesInsert Address
gaiPayload
= lens _gaiPayload (\ s a -> s{_gaiPayload = a})
instance GoogleRequest GlobalAddressesInsert where
type Rs GlobalAddressesInsert = Operation
type Scopes GlobalAddressesInsert =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/compute"]
requestClient GlobalAddressesInsert'{..}
= go _gaiProject _gaiRequestId (Just AltJSON)
_gaiPayload
computeService
where go
= buildClient
(Proxy :: Proxy GlobalAddressesInsertResource)
mempty