{-# 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.Delete
(
BeaconsDeleteResource
, beaconsDelete
, BeaconsDelete
, bXgafv
, bUploadProtocol
, bAccessToken
, bBeaconName
, bUploadType
, bProjectId
, bCallback
) where
import Network.Google.Prelude
import Network.Google.ProximityBeacon.Types
type BeaconsDeleteResource =
"v1beta1" :>
Capture "beaconName" 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 BeaconsDelete =
BeaconsDelete'
{ _bXgafv :: !(Maybe Xgafv)
, _bUploadProtocol :: !(Maybe Text)
, _bAccessToken :: !(Maybe Text)
, _bBeaconName :: !Text
, _bUploadType :: !(Maybe Text)
, _bProjectId :: !(Maybe Text)
, _bCallback :: !(Maybe Text)
}
deriving (Eq, Show, Data, Typeable, Generic)
beaconsDelete
:: Text
-> BeaconsDelete
beaconsDelete pBBeaconName_ =
BeaconsDelete'
{ _bXgafv = Nothing
, _bUploadProtocol = Nothing
, _bAccessToken = Nothing
, _bBeaconName = pBBeaconName_
, _bUploadType = Nothing
, _bProjectId = Nothing
, _bCallback = Nothing
}
bXgafv :: Lens' BeaconsDelete (Maybe Xgafv)
bXgafv = lens _bXgafv (\ s a -> s{_bXgafv = a})
bUploadProtocol :: Lens' BeaconsDelete (Maybe Text)
bUploadProtocol
= lens _bUploadProtocol
(\ s a -> s{_bUploadProtocol = a})
bAccessToken :: Lens' BeaconsDelete (Maybe Text)
bAccessToken
= lens _bAccessToken (\ s a -> s{_bAccessToken = a})
bBeaconName :: Lens' BeaconsDelete Text
bBeaconName
= lens _bBeaconName (\ s a -> s{_bBeaconName = a})
bUploadType :: Lens' BeaconsDelete (Maybe Text)
bUploadType
= lens _bUploadType (\ s a -> s{_bUploadType = a})
bProjectId :: Lens' BeaconsDelete (Maybe Text)
bProjectId
= lens _bProjectId (\ s a -> s{_bProjectId = a})
bCallback :: Lens' BeaconsDelete (Maybe Text)
bCallback
= lens _bCallback (\ s a -> s{_bCallback = a})
instance GoogleRequest BeaconsDelete where
type Rs BeaconsDelete = Empty
type Scopes BeaconsDelete =
'["https://www.googleapis.com/auth/userlocation.beacon.registry"]
requestClient BeaconsDelete'{..}
= go _bBeaconName _bXgafv _bUploadProtocol
_bAccessToken
_bUploadType
_bProjectId
_bCallback
(Just AltJSON)
proximityBeaconService
where go
= buildClient (Proxy :: Proxy BeaconsDeleteResource)
mempty