{-# 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.Register
(
BeaconsRegisterResource
, beaconsRegister
, BeaconsRegister
, brXgafv
, brUploadProtocol
, brAccessToken
, brUploadType
, brPayload
, brProjectId
, brCallback
) where
import Network.Google.Prelude
import Network.Google.ProximityBeacon.Types
type BeaconsRegisterResource =
"v1beta1" :>
"beacons:register" :>
QueryParam "$.xgafv" Xgafv :>
QueryParam "upload_protocol" Text :>
QueryParam "access_token" Text :>
QueryParam "uploadType" Text :>
QueryParam "projectId" Text :>
QueryParam "callback" Text :>
QueryParam "alt" AltJSON :>
ReqBody '[JSON] Beacon :> Post '[JSON] Beacon
data BeaconsRegister = BeaconsRegister'
{ _brXgafv :: !(Maybe Xgafv)
, _brUploadProtocol :: !(Maybe Text)
, _brAccessToken :: !(Maybe Text)
, _brUploadType :: !(Maybe Text)
, _brPayload :: !Beacon
, _brProjectId :: !(Maybe Text)
, _brCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
beaconsRegister
:: Beacon
-> BeaconsRegister
beaconsRegister pBrPayload_ =
BeaconsRegister'
{ _brXgafv = Nothing
, _brUploadProtocol = Nothing
, _brAccessToken = Nothing
, _brUploadType = Nothing
, _brPayload = pBrPayload_
, _brProjectId = Nothing
, _brCallback = Nothing
}
brXgafv :: Lens' BeaconsRegister (Maybe Xgafv)
brXgafv = lens _brXgafv (\ s a -> s{_brXgafv = a})
brUploadProtocol :: Lens' BeaconsRegister (Maybe Text)
brUploadProtocol
= lens _brUploadProtocol
(\ s a -> s{_brUploadProtocol = a})
brAccessToken :: Lens' BeaconsRegister (Maybe Text)
brAccessToken
= lens _brAccessToken
(\ s a -> s{_brAccessToken = a})
brUploadType :: Lens' BeaconsRegister (Maybe Text)
brUploadType
= lens _brUploadType (\ s a -> s{_brUploadType = a})
brPayload :: Lens' BeaconsRegister Beacon
brPayload
= lens _brPayload (\ s a -> s{_brPayload = a})
brProjectId :: Lens' BeaconsRegister (Maybe Text)
brProjectId
= lens _brProjectId (\ s a -> s{_brProjectId = a})
brCallback :: Lens' BeaconsRegister (Maybe Text)
brCallback
= lens _brCallback (\ s a -> s{_brCallback = a})
instance GoogleRequest BeaconsRegister where
type Rs BeaconsRegister = Beacon
type Scopes BeaconsRegister =
'["https://www.googleapis.com/auth/userlocation.beacon.registry"]
requestClient BeaconsRegister'{..}
= go _brXgafv _brUploadProtocol _brAccessToken
_brUploadType
_brProjectId
_brCallback
(Just AltJSON)
_brPayload
proximityBeaconService
where go
= buildClient
(Proxy :: Proxy BeaconsRegisterResource)
mempty