{-# 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.Deactivate
(
BeaconsDeactivateResource
, beaconsDeactivate
, BeaconsDeactivate
, bdXgafv
, bdUploadProtocol
, bdAccessToken
, bdBeaconName
, bdUploadType
, bdProjectId
, bdCallback
) where
import Network.Google.Prelude
import Network.Google.ProximityBeacon.Types
type BeaconsDeactivateResource =
"v1beta1" :>
CaptureMode "beaconName" "deactivate" Text :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "projectId" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :> Post '[JSON] Empty
data BeaconsDeactivate = BeaconsDeactivate'
{ _bdXgafv :: !(Maybe Xgafv)
, _bdUploadProtocol :: !(Maybe Text)
, _bdAccessToken :: !(Maybe Text)
, _bdBeaconName :: !Text
, _bdUploadType :: !(Maybe Text)
, _bdProjectId :: !(Maybe Text)
, _bdCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
beaconsDeactivate
:: Text
-> BeaconsDeactivate
beaconsDeactivate pBdBeaconName_ =
BeaconsDeactivate'
{ _bdXgafv = Nothing
, _bdUploadProtocol = Nothing
, _bdAccessToken = Nothing
, _bdBeaconName = pBdBeaconName_
, _bdUploadType = Nothing
, _bdProjectId = Nothing
, _bdCallback = Nothing
}
bdXgafv :: Lens' BeaconsDeactivate (Maybe Xgafv)
bdXgafv = lens _bdXgafv (\ s a -> s{_bdXgafv = a})
bdUploadProtocol :: Lens' BeaconsDeactivate (Maybe Text)
bdUploadProtocol
= lens _bdUploadProtocol
(\ s a -> s{_bdUploadProtocol = a})
bdAccessToken :: Lens' BeaconsDeactivate (Maybe Text)
bdAccessToken
= lens _bdAccessToken
(\ s a -> s{_bdAccessToken = a})
bdBeaconName :: Lens' BeaconsDeactivate Text
bdBeaconName
= lens _bdBeaconName (\ s a -> s{_bdBeaconName = a})
bdUploadType :: Lens' BeaconsDeactivate (Maybe Text)
bdUploadType
= lens _bdUploadType (\ s a -> s{_bdUploadType = a})
bdProjectId :: Lens' BeaconsDeactivate (Maybe Text)
bdProjectId
= lens _bdProjectId (\ s a -> s{_bdProjectId = a})
bdCallback :: Lens' BeaconsDeactivate (Maybe Text)
bdCallback
= lens _bdCallback (\ s a -> s{_bdCallback = a})
instance GoogleRequest BeaconsDeactivate where
type Rs BeaconsDeactivate = Empty
type Scopes BeaconsDeactivate =
'["https://www.googleapis.com/auth/userlocation.beacon.registry"]
requestClient BeaconsDeactivate'{..}
= go _bdBeaconName _bdXgafv _bdUploadProtocol
_bdAccessToken
_bdUploadType
_bdProjectId
_bdCallback
(Just AltJSON)
proximityBeaconService
where go
= buildClient
(Proxy :: Proxy BeaconsDeactivateResource)
mempty