module Network.Google.Resource.ProximityBeacon.Namespaces.List
(
NamespacesListResource
, namespacesList
, NamespacesList
, nlXgafv
, nlUploadProtocol
, nlPp
, nlAccessToken
, nlUploadType
, nlBearerToken
, 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 "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListNamespacesResponse
data NamespacesList = NamespacesList
{ _nlXgafv :: !(Maybe Text)
, _nlUploadProtocol :: !(Maybe Text)
, _nlPp :: !Bool
, _nlAccessToken :: !(Maybe Text)
, _nlUploadType :: !(Maybe Text)
, _nlBearerToken :: !(Maybe Text)
, _nlCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
namespacesList
:: NamespacesList
namespacesList =
NamespacesList
{ _nlXgafv = Nothing
, _nlUploadProtocol = Nothing
, _nlPp = True
, _nlAccessToken = Nothing
, _nlUploadType = Nothing
, _nlBearerToken = Nothing
, _nlCallback = Nothing
}
nlXgafv :: Lens' NamespacesList (Maybe Text)
nlXgafv = lens _nlXgafv (\ s a -> s{_nlXgafv = a})
nlUploadProtocol :: Lens' NamespacesList (Maybe Text)
nlUploadProtocol
= lens _nlUploadProtocol
(\ s a -> s{_nlUploadProtocol = a})
nlPp :: Lens' NamespacesList Bool
nlPp = lens _nlPp (\ s a -> s{_nlPp = a})
nlAccessToken :: Lens' NamespacesList (Maybe Text)
nlAccessToken
= lens _nlAccessToken
(\ s a -> s{_nlAccessToken = a})
nlUploadType :: Lens' NamespacesList (Maybe Text)
nlUploadType
= lens _nlUploadType (\ s a -> s{_nlUploadType = a})
nlBearerToken :: Lens' NamespacesList (Maybe Text)
nlBearerToken
= lens _nlBearerToken
(\ s a -> s{_nlBearerToken = a})
nlCallback :: Lens' NamespacesList (Maybe Text)
nlCallback
= lens _nlCallback (\ s a -> s{_nlCallback = a})
instance GoogleRequest NamespacesList where
type Rs NamespacesList = ListNamespacesResponse
requestClient NamespacesList{..}
= go _nlXgafv _nlUploadProtocol (Just _nlPp)
_nlAccessToken
_nlUploadType
_nlBearerToken
_nlCallback
(Just AltJSON)
proximityBeaconService
where go
= buildClient (Proxy :: Proxy NamespacesListResource)
mempty