{-# 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.ServiceNetworking.Services.Connections.List
(
ServicesConnectionsListResource
, servicesConnectionsList
, ServicesConnectionsList
, sclParent
, sclXgafv
, sclUploadProtocol
, sclAccessToken
, sclUploadType
, sclNetwork
, sclCallback
) where
import Network.Google.Prelude
import Network.Google.ServiceNetworking.Types
type ServicesConnectionsListResource =
"v1" :>
Capture "parent" Text :>
"connections" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "network" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListConnectionsResponse
data ServicesConnectionsList =
ServicesConnectionsList'
{ _sclParent :: !Text
, _sclXgafv :: !(Maybe Xgafv)
, _sclUploadProtocol :: !(Maybe Text)
, _sclAccessToken :: !(Maybe Text)
, _sclUploadType :: !(Maybe Text)
, _sclNetwork :: !(Maybe Text)
, _sclCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
servicesConnectionsList
:: Text
-> ServicesConnectionsList
servicesConnectionsList pSclParent_ =
ServicesConnectionsList'
{ _sclParent = pSclParent_
, _sclXgafv = Nothing
, _sclUploadProtocol = Nothing
, _sclAccessToken = Nothing
, _sclUploadType = Nothing
, _sclNetwork = Nothing
, _sclCallback = Nothing
}
sclParent :: Lens' ServicesConnectionsList Text
sclParent
= lens _sclParent (\ s a -> s{_sclParent = a})
sclXgafv :: Lens' ServicesConnectionsList (Maybe Xgafv)
sclXgafv = lens _sclXgafv (\ s a -> s{_sclXgafv = a})
sclUploadProtocol :: Lens' ServicesConnectionsList (Maybe Text)
sclUploadProtocol
= lens _sclUploadProtocol
(\ s a -> s{_sclUploadProtocol = a})
sclAccessToken :: Lens' ServicesConnectionsList (Maybe Text)
sclAccessToken
= lens _sclAccessToken
(\ s a -> s{_sclAccessToken = a})
sclUploadType :: Lens' ServicesConnectionsList (Maybe Text)
sclUploadType
= lens _sclUploadType
(\ s a -> s{_sclUploadType = a})
sclNetwork :: Lens' ServicesConnectionsList (Maybe Text)
sclNetwork
= lens _sclNetwork (\ s a -> s{_sclNetwork = a})
sclCallback :: Lens' ServicesConnectionsList (Maybe Text)
sclCallback
= lens _sclCallback (\ s a -> s{_sclCallback = a})
instance GoogleRequest ServicesConnectionsList where
type Rs ServicesConnectionsList =
ListConnectionsResponse
type Scopes ServicesConnectionsList =
'["https://www.googleapis.com/auth/cloud-platform",
"https://www.googleapis.com/auth/service.management"]
requestClient ServicesConnectionsList'{..}
= go _sclParent _sclXgafv _sclUploadProtocol
_sclAccessToken
_sclUploadType
_sclNetwork
_sclCallback
(Just AltJSON)
serviceNetworkingService
where go
= buildClient
(Proxy :: Proxy ServicesConnectionsListResource)
mempty