{-# 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.Delete
(
BeaconsAttachmentsDeleteResource
, beaconsAttachmentsDelete
, BeaconsAttachmentsDelete
, badXgafv
, badUploadProtocol
, badAccessToken
, badUploadType
, badAttachmentName
, badProjectId
, badCallback
) where
import Network.Google.Prelude
import Network.Google.ProximityBeacon.Types
type BeaconsAttachmentsDeleteResource =
"v1beta1" :>
Capture "attachmentName" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "projectId" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Delete '[JSON] Empty
data BeaconsAttachmentsDelete = BeaconsAttachmentsDelete'
{ _badXgafv :: !(Maybe Xgafv)
, _badUploadProtocol :: !(Maybe Text)
, _badAccessToken :: !(Maybe Text)
, _badUploadType :: !(Maybe Text)
, _badAttachmentName :: !Text
, _badProjectId :: !(Maybe Text)
, _badCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
beaconsAttachmentsDelete
:: Text
-> BeaconsAttachmentsDelete
beaconsAttachmentsDelete pBadAttachmentName_ =
BeaconsAttachmentsDelete'
{ _badXgafv = Nothing
, _badUploadProtocol = Nothing
, _badAccessToken = Nothing
, _badUploadType = Nothing
, _badAttachmentName = pBadAttachmentName_
, _badProjectId = Nothing
, _badCallback = Nothing
}
badXgafv :: Lens' BeaconsAttachmentsDelete (Maybe Xgafv)
badXgafv = lens _badXgafv (\ s a -> s{_badXgafv = a})
badUploadProtocol :: Lens' BeaconsAttachmentsDelete (Maybe Text)
badUploadProtocol
= lens _badUploadProtocol
(\ s a -> s{_badUploadProtocol = a})
badAccessToken :: Lens' BeaconsAttachmentsDelete (Maybe Text)
badAccessToken
= lens _badAccessToken
(\ s a -> s{_badAccessToken = a})
badUploadType :: Lens' BeaconsAttachmentsDelete (Maybe Text)
badUploadType
= lens _badUploadType
(\ s a -> s{_badUploadType = a})
badAttachmentName :: Lens' BeaconsAttachmentsDelete Text
badAttachmentName
= lens _badAttachmentName
(\ s a -> s{_badAttachmentName = a})
badProjectId :: Lens' BeaconsAttachmentsDelete (Maybe Text)
badProjectId
= lens _badProjectId (\ s a -> s{_badProjectId = a})
badCallback :: Lens' BeaconsAttachmentsDelete (Maybe Text)
badCallback
= lens _badCallback (\ s a -> s{_badCallback = a})
instance GoogleRequest BeaconsAttachmentsDelete where
type Rs BeaconsAttachmentsDelete = Empty
type Scopes BeaconsAttachmentsDelete =
'["https://www.googleapis.com/auth/userlocation.beacon.registry"]
requestClient BeaconsAttachmentsDelete'{..}
= go _badAttachmentName _badXgafv _badUploadProtocol
_badAccessToken
_badUploadType
_badProjectId
_badCallback
(Just AltJSON)
proximityBeaconService
where go
= buildClient
(Proxy :: Proxy BeaconsAttachmentsDeleteResource)
mempty