module Network.Google.Resource.ProximityBeacon.Beacons.Attachments.List
(
BeaconsAttachmentsListResource
, beaconsAttachmentsList
, BeaconsAttachmentsList
, balXgafv
, balUploadProtocol
, balPp
, balAccessToken
, balBeaconName
, balUploadType
, balBearerToken
, balNamespacedType
, balCallback
) where
import Network.Google.Prelude
import Network.Google.ProximityBeacon.Types
type BeaconsAttachmentsListResource =
"v1beta1" :>
Capture "beaconName" Text :>
"attachments" :>
QueryParam "$.xgafv" Text :>
QueryParam "upload_protocol" Text :>
QueryParam "pp" Bool :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "bearer_token" Text :>
QueryParam "namespacedType" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
Get '[JSON] ListBeaconAttachmentsResponse
data BeaconsAttachmentsList = BeaconsAttachmentsList
{ _balXgafv :: !(Maybe Text)
, _balUploadProtocol :: !(Maybe Text)
, _balPp :: !Bool
, _balAccessToken :: !(Maybe Text)
, _balBeaconName :: !Text
, _balUploadType :: !(Maybe Text)
, _balBearerToken :: !(Maybe Text)
, _balNamespacedType :: !(Maybe Text)
, _balCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
beaconsAttachmentsList
:: Text
-> BeaconsAttachmentsList
beaconsAttachmentsList pBalBeaconName_ =
BeaconsAttachmentsList
{ _balXgafv = Nothing
, _balUploadProtocol = Nothing
, _balPp = True
, _balAccessToken = Nothing
, _balBeaconName = pBalBeaconName_
, _balUploadType = Nothing
, _balBearerToken = Nothing
, _balNamespacedType = Nothing
, _balCallback = Nothing
}
balXgafv :: Lens' BeaconsAttachmentsList (Maybe Text)
balXgafv = lens _balXgafv (\ s a -> s{_balXgafv = a})
balUploadProtocol :: Lens' BeaconsAttachmentsList (Maybe Text)
balUploadProtocol
= lens _balUploadProtocol
(\ s a -> s{_balUploadProtocol = a})
balPp :: Lens' BeaconsAttachmentsList Bool
balPp = lens _balPp (\ s a -> s{_balPp = 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})
balBearerToken :: Lens' BeaconsAttachmentsList (Maybe Text)
balBearerToken
= lens _balBearerToken
(\ s a -> s{_balBearerToken = a})
balNamespacedType :: Lens' BeaconsAttachmentsList (Maybe Text)
balNamespacedType
= lens _balNamespacedType
(\ s a -> s{_balNamespacedType = a})
balCallback :: Lens' BeaconsAttachmentsList (Maybe Text)
balCallback
= lens _balCallback (\ s a -> s{_balCallback = a})
instance GoogleRequest BeaconsAttachmentsList where
type Rs BeaconsAttachmentsList =
ListBeaconAttachmentsResponse
requestClient BeaconsAttachmentsList{..}
= go _balBeaconName _balXgafv _balUploadProtocol
(Just _balPp)
_balAccessToken
_balUploadType
_balBearerToken
_balNamespacedType
_balCallback
(Just AltJSON)
proximityBeaconService
where go
= buildClient
(Proxy :: Proxy BeaconsAttachmentsListResource)
mempty