{-# 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.Decommission
(
BeaconsDecommissionResource
, beaconsDecommission
, BeaconsDecommission
, bddXgafv
, bddUploadProtocol
, bddAccessToken
, bddBeaconName
, bddUploadType
, bddProjectId
, bddCallback
) where
import Network.Google.Prelude
import Network.Google.ProximityBeacon.Types
type BeaconsDecommissionResource =
"v1beta1" :>
CaptureMode "beaconName" "decommission" 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 BeaconsDecommission = BeaconsDecommission'
{ _bddXgafv :: !(Maybe Xgafv)
, _bddUploadProtocol :: !(Maybe Text)
, _bddAccessToken :: !(Maybe Text)
, _bddBeaconName :: !Text
, _bddUploadType :: !(Maybe Text)
, _bddProjectId :: !(Maybe Text)
, _bddCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
beaconsDecommission
:: Text
-> BeaconsDecommission
beaconsDecommission pBddBeaconName_ =
BeaconsDecommission'
{ _bddXgafv = Nothing
, _bddUploadProtocol = Nothing
, _bddAccessToken = Nothing
, _bddBeaconName = pBddBeaconName_
, _bddUploadType = Nothing
, _bddProjectId = Nothing
, _bddCallback = Nothing
}
bddXgafv :: Lens' BeaconsDecommission (Maybe Xgafv)
bddXgafv = lens _bddXgafv (\ s a -> s{_bddXgafv = a})
bddUploadProtocol :: Lens' BeaconsDecommission (Maybe Text)
bddUploadProtocol
= lens _bddUploadProtocol
(\ s a -> s{_bddUploadProtocol = a})
bddAccessToken :: Lens' BeaconsDecommission (Maybe Text)
bddAccessToken
= lens _bddAccessToken
(\ s a -> s{_bddAccessToken = a})
bddBeaconName :: Lens' BeaconsDecommission Text
bddBeaconName
= lens _bddBeaconName
(\ s a -> s{_bddBeaconName = a})
bddUploadType :: Lens' BeaconsDecommission (Maybe Text)
bddUploadType
= lens _bddUploadType
(\ s a -> s{_bddUploadType = a})
bddProjectId :: Lens' BeaconsDecommission (Maybe Text)
bddProjectId
= lens _bddProjectId (\ s a -> s{_bddProjectId = a})
bddCallback :: Lens' BeaconsDecommission (Maybe Text)
bddCallback
= lens _bddCallback (\ s a -> s{_bddCallback = a})
instance GoogleRequest BeaconsDecommission where
type Rs BeaconsDecommission = Empty
type Scopes BeaconsDecommission =
'["https://www.googleapis.com/auth/userlocation.beacon.registry"]
requestClient BeaconsDecommission'{..}
= go _bddBeaconName _bddXgafv _bddUploadProtocol
_bddAccessToken
_bddUploadType
_bddProjectId
_bddCallback
(Just AltJSON)
proximityBeaconService
where go
= buildClient
(Proxy :: Proxy BeaconsDecommissionResource)
mempty