module Network.Google.Resource.ProximityBeacon.Beacons.Activate
(
BeaconsActivateResource
, beaconsActivate
, BeaconsActivate
, baXgafv
, baUploadProtocol
, baPp
, baAccessToken
, baBeaconName
, baUploadType
, baBearerToken
, baCallback
) where
import Network.Google.Prelude
import Network.Google.ProximityBeacon.Types
type BeaconsActivateResource =
"v1beta1" :>
CaptureMode "beaconName" "activate" 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 :> Post '[JSON] Empty
data BeaconsActivate = BeaconsActivate
{ _baXgafv :: !(Maybe Text)
, _baUploadProtocol :: !(Maybe Text)
, _baPp :: !Bool
, _baAccessToken :: !(Maybe Text)
, _baBeaconName :: !Text
, _baUploadType :: !(Maybe Text)
, _baBearerToken :: !(Maybe Text)
, _baCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
beaconsActivate
:: Text
-> BeaconsActivate
beaconsActivate pBaBeaconName_ =
BeaconsActivate
{ _baXgafv = Nothing
, _baUploadProtocol = Nothing
, _baPp = True
, _baAccessToken = Nothing
, _baBeaconName = pBaBeaconName_
, _baUploadType = Nothing
, _baBearerToken = Nothing
, _baCallback = Nothing
}
baXgafv :: Lens' BeaconsActivate (Maybe Text)
baXgafv = lens _baXgafv (\ s a -> s{_baXgafv = a})
baUploadProtocol :: Lens' BeaconsActivate (Maybe Text)
baUploadProtocol
= lens _baUploadProtocol
(\ s a -> s{_baUploadProtocol = a})
baPp :: Lens' BeaconsActivate Bool
baPp = lens _baPp (\ s a -> s{_baPp = a})
baAccessToken :: Lens' BeaconsActivate (Maybe Text)
baAccessToken
= lens _baAccessToken
(\ s a -> s{_baAccessToken = a})
baBeaconName :: Lens' BeaconsActivate Text
baBeaconName
= lens _baBeaconName (\ s a -> s{_baBeaconName = a})
baUploadType :: Lens' BeaconsActivate (Maybe Text)
baUploadType
= lens _baUploadType (\ s a -> s{_baUploadType = a})
baBearerToken :: Lens' BeaconsActivate (Maybe Text)
baBearerToken
= lens _baBearerToken
(\ s a -> s{_baBearerToken = a})
baCallback :: Lens' BeaconsActivate (Maybe Text)
baCallback
= lens _baCallback (\ s a -> s{_baCallback = a})
instance GoogleRequest BeaconsActivate where
type Rs BeaconsActivate = Empty
requestClient BeaconsActivate{..}
= go _baBeaconName _baXgafv _baUploadProtocol
(Just _baPp)
_baAccessToken
_baUploadType
_baBearerToken
_baCallback
(Just AltJSON)
proximityBeaconService
where go
= buildClient
(Proxy :: Proxy BeaconsActivateResource)
mempty