{-# 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.Beacons.Attachments.List
(
BeaconsAttachmentsListResource
, beaconsAttachmentsList
, BeaconsAttachmentsList
, balXgafv
, balUploadProtocol
, balAccessToken
, balBeaconName
, balUploadType
, balNamespacedType
, balProjectId
, balCallback
) where
import Network.Google.Prelude
import Network.Google.ProximityBeacon.Types
type BeaconsAttachmentsListResource =
"v1beta1" :>
Capture "beaconName" Text :>
"attachments" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "namespacedType" Text :>
QueryParam "projectId" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListBeaconAttachmentsResponse
data BeaconsAttachmentsList = BeaconsAttachmentsList'
{ _balXgafv :: !(Maybe Xgafv)
, _balUploadProtocol :: !(Maybe Text)
, _balAccessToken :: !(Maybe Text)
, _balBeaconName :: !Text
, _balUploadType :: !(Maybe Text)
, _balNamespacedType :: !(Maybe Text)
, _balProjectId :: !(Maybe Text)
, _balCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
beaconsAttachmentsList
:: Text
-> BeaconsAttachmentsList
beaconsAttachmentsList pBalBeaconName_ =
BeaconsAttachmentsList'
{ _balXgafv = Nothing
, _balUploadProtocol = Nothing
, _balAccessToken = Nothing
, _balBeaconName = pBalBeaconName_
, _balUploadType = Nothing
, _balNamespacedType = Nothing
, _balProjectId = Nothing
, _balCallback = Nothing
}
balXgafv :: Lens' BeaconsAttachmentsList (Maybe Xgafv)
balXgafv = lens _balXgafv (\ s a -> s{_balXgafv = a})
balUploadProtocol :: Lens' BeaconsAttachmentsList (Maybe Text)
balUploadProtocol
= lens _balUploadProtocol
(\ s a -> s{_balUploadProtocol = a})
balAccessToken :: Lens' BeaconsAttachmentsList (Maybe Text)
balAccessToken
= lens _balAccessToken
(\ s a -> s{_balAccessToken = a})
balBeaconName :: Lens' BeaconsAttachmentsList Text
balBeaconName
= lens _balBeaconName
(\ s a -> s{_balBeaconName = a})
balUploadType :: Lens' BeaconsAttachmentsList (Maybe Text)
balUploadType
= lens _balUploadType
(\ s a -> s{_balUploadType = a})
balNamespacedType :: Lens' BeaconsAttachmentsList (Maybe Text)
balNamespacedType
= lens _balNamespacedType
(\ s a -> s{_balNamespacedType = a})
balProjectId :: Lens' BeaconsAttachmentsList (Maybe Text)
balProjectId
= lens _balProjectId (\ s a -> s{_balProjectId = a})
balCallback :: Lens' BeaconsAttachmentsList (Maybe Text)
balCallback
= lens _balCallback (\ s a -> s{_balCallback = a})
instance GoogleRequest BeaconsAttachmentsList where
type Rs BeaconsAttachmentsList =
ListBeaconAttachmentsResponse
type Scopes BeaconsAttachmentsList =
'["https://www.googleapis.com/auth/userlocation.beacon.registry"]
requestClient BeaconsAttachmentsList'{..}
= go _balBeaconName _balXgafv _balUploadProtocol
_balAccessToken
_balUploadType
_balNamespacedType
_balProjectId
_balCallback
(Just AltJSON)
proximityBeaconService
where go
= buildClient
(Proxy :: Proxy BeaconsAttachmentsListResource)
mempty