{-# 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.ProximityBeacon.Namespaces.List
(
NamespacesListResource
, namespacesList
, NamespacesList
, nlXgafv
, nlUploadProtocol
, nlPp
, nlAccessToken
, nlUploadType
, nlBearerToken
, nlProjectId
, nlCallback
) where
import Network.Google.Prelude
import Network.Google.ProximityBeacon.Types
type NamespacesListResource =
"v1beta1" :>
"namespaces" :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "projectId" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListNamespacesResponse
-- | Lists all attachment namespaces owned by your Google Developers Console
-- project. Attachment data associated with a beacon must include a
-- namespaced type, and the namespace must be owned by your project.
-- Authenticate using an [OAuth access
-- token](https:\/\/developers.google.com\/identity\/protocols\/OAuth2)
-- from a signed-in user with **viewer**, **Is owner** or **Can edit**
-- permissions in the Google Developers Console project.
--
-- /See:/ 'namespacesList' smart constructor.
data NamespacesList = NamespacesList'
{ _nlXgafv :: !(Maybe Text)
, _nlUploadProtocol :: !(Maybe Text)
, _nlPp :: !Bool
, _nlAccessToken :: !(Maybe Text)
, _nlUploadType :: !(Maybe Text)
, _nlBearerToken :: !(Maybe Text)
, _nlProjectId :: !(Maybe Text)
, _nlCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
-- | Creates a value of 'NamespacesList' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'nlXgafv'
--
-- * 'nlUploadProtocol'
--
-- * 'nlPp'
--
-- * 'nlAccessToken'
--
-- * 'nlUploadType'
--
-- * 'nlBearerToken'
--
-- * 'nlProjectId'
--
-- * 'nlCallback'
namespacesList
:: NamespacesList
namespacesList =
NamespacesList'
{ _nlXgafv = Nothing
, _nlUploadProtocol = Nothing
, _nlPp = True
, _nlAccessToken = Nothing
, _nlUploadType = Nothing
, _nlBearerToken = Nothing
, _nlProjectId = Nothing
, _nlCallback = Nothing
}
-- | V1 error format.
nlXgafv :: Lens' NamespacesList (Maybe Text)
nlXgafv = lens _nlXgafv (\ s a -> s{_nlXgafv = a})
-- | Upload protocol for media (e.g. \"raw\", \"multipart\").
nlUploadProtocol :: Lens' NamespacesList (Maybe Text)
nlUploadProtocol
= lens _nlUploadProtocol
(\ s a -> s{_nlUploadProtocol = a})
-- | Pretty-print response.
nlPp :: Lens' NamespacesList Bool
nlPp = lens _nlPp (\ s a -> s{_nlPp = a})
-- | OAuth access token.
nlAccessToken :: Lens' NamespacesList (Maybe Text)
nlAccessToken
= lens _nlAccessToken
(\ s a -> s{_nlAccessToken = a})
-- | Legacy upload protocol for media (e.g. \"media\", \"multipart\").
nlUploadType :: Lens' NamespacesList (Maybe Text)
nlUploadType
= lens _nlUploadType (\ s a -> s{_nlUploadType = a})
-- | OAuth bearer token.
nlBearerToken :: Lens' NamespacesList (Maybe Text)
nlBearerToken
= lens _nlBearerToken
(\ s a -> s{_nlBearerToken = a})
-- | The project id to list namespaces under. Optional.
nlProjectId :: Lens' NamespacesList (Maybe Text)
nlProjectId
= lens _nlProjectId (\ s a -> s{_nlProjectId = a})
-- | JSONP
nlCallback :: Lens' NamespacesList (Maybe Text)
nlCallback
= lens _nlCallback (\ s a -> s{_nlCallback = a})
instance GoogleRequest NamespacesList where
type Rs NamespacesList = ListNamespacesResponse
type Scopes NamespacesList =
'["https://www.googleapis.com/auth/userlocation.beacon.registry"]
requestClient NamespacesList'{..}
= go _nlXgafv _nlUploadProtocol (Just _nlPp)
_nlAccessToken
_nlUploadType
_nlBearerToken
_nlProjectId
_nlCallback
(Just AltJSON)
proximityBeaconService
where go
= buildClient (Proxy :: Proxy NamespacesListResource)
mempty