module Network.Google.Resource.ProximityBeacon.Beacons.Attachments.Delete
(
BeaconsAttachmentsDeleteResource
, beaconsAttachmentsDelete
, BeaconsAttachmentsDelete
, badXgafv
, badUploadProtocol
, badPp
, badAccessToken
, badUploadType
, badAttachmentName
, badBearerToken
, badCallback
) where
import Network.Google.Prelude
import Network.Google.ProximityBeacon.Types
type BeaconsAttachmentsDeleteResource =
"v1beta1" :>
Capture "attachmentName" Text :>
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 :> Delete '[JSON] Empty
data BeaconsAttachmentsDelete = BeaconsAttachmentsDelete
{ _badXgafv :: !(Maybe Text)
, _badUploadProtocol :: !(Maybe Text)
, _badPp :: !Bool
, _badAccessToken :: !(Maybe Text)
, _badUploadType :: !(Maybe Text)
, _badAttachmentName :: !Text
, _badBearerToken :: !(Maybe Text)
, _badCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
beaconsAttachmentsDelete
:: Text
-> BeaconsAttachmentsDelete
beaconsAttachmentsDelete pBadAttachmentName_ =
BeaconsAttachmentsDelete
{ _badXgafv = Nothing
, _badUploadProtocol = Nothing
, _badPp = True
, _badAccessToken = Nothing
, _badUploadType = Nothing
, _badAttachmentName = pBadAttachmentName_
, _badBearerToken = Nothing
, _badCallback = Nothing
}
badXgafv :: Lens' BeaconsAttachmentsDelete (Maybe Text)
badXgafv = lens _badXgafv (\ s a -> s{_badXgafv = a})
badUploadProtocol :: Lens' BeaconsAttachmentsDelete (Maybe Text)
badUploadProtocol
= lens _badUploadProtocol
(\ s a -> s{_badUploadProtocol = a})
badPp :: Lens' BeaconsAttachmentsDelete Bool
badPp = lens _badPp (\ s a -> s{_badPp = 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})
badBearerToken :: Lens' BeaconsAttachmentsDelete (Maybe Text)
badBearerToken
= lens _badBearerToken
(\ s a -> s{_badBearerToken = a})
badCallback :: Lens' BeaconsAttachmentsDelete (Maybe Text)
badCallback
= lens _badCallback (\ s a -> s{_badCallback = a})
instance GoogleRequest BeaconsAttachmentsDelete where
type Rs BeaconsAttachmentsDelete = Empty
requestClient BeaconsAttachmentsDelete{..}
= go _badAttachmentName _badXgafv _badUploadProtocol
(Just _badPp)
_badAccessToken
_badUploadType
_badBearerToken
_badCallback
(Just AltJSON)
proximityBeaconService
where go
= buildClient
(Proxy :: Proxy BeaconsAttachmentsDeleteResource)
mempty