module Network.Google.Resource.ProximityBeacon.Beacons.Get
(
BeaconsGetResource
, beaconsGet
, BeaconsGet
, bgXgafv
, bgUploadProtocol
, bgPp
, bgAccessToken
, bgBeaconName
, bgUploadType
, bgBearerToken
, bgCallback
) where
import Network.Google.Prelude
import Network.Google.ProximityBeacon.Types
type BeaconsGetResource =
"v1beta1" :>
Capture "beaconName" 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 :> Get '[JSON] Beacon
data BeaconsGet = BeaconsGet
{ _bgXgafv :: !(Maybe Text)
, _bgUploadProtocol :: !(Maybe Text)
, _bgPp :: !Bool
, _bgAccessToken :: !(Maybe Text)
, _bgBeaconName :: !Text
, _bgUploadType :: !(Maybe Text)
, _bgBearerToken :: !(Maybe Text)
, _bgCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
beaconsGet
:: Text
-> BeaconsGet
beaconsGet pBgBeaconName_ =
BeaconsGet
{ _bgXgafv = Nothing
, _bgUploadProtocol = Nothing
, _bgPp = True
, _bgAccessToken = Nothing
, _bgBeaconName = pBgBeaconName_
, _bgUploadType = Nothing
, _bgBearerToken = Nothing
, _bgCallback = Nothing
}
bgXgafv :: Lens' BeaconsGet (Maybe Text)
bgXgafv = lens _bgXgafv (\ s a -> s{_bgXgafv = a})
bgUploadProtocol :: Lens' BeaconsGet (Maybe Text)
bgUploadProtocol
= lens _bgUploadProtocol
(\ s a -> s{_bgUploadProtocol = a})
bgPp :: Lens' BeaconsGet Bool
bgPp = lens _bgPp (\ s a -> s{_bgPp = a})
bgAccessToken :: Lens' BeaconsGet (Maybe Text)
bgAccessToken
= lens _bgAccessToken
(\ s a -> s{_bgAccessToken = a})
bgBeaconName :: Lens' BeaconsGet Text
bgBeaconName
= lens _bgBeaconName (\ s a -> s{_bgBeaconName = a})
bgUploadType :: Lens' BeaconsGet (Maybe Text)
bgUploadType
= lens _bgUploadType (\ s a -> s{_bgUploadType = a})
bgBearerToken :: Lens' BeaconsGet (Maybe Text)
bgBearerToken
= lens _bgBearerToken
(\ s a -> s{_bgBearerToken = a})
bgCallback :: Lens' BeaconsGet (Maybe Text)
bgCallback
= lens _bgCallback (\ s a -> s{_bgCallback = a})
instance GoogleRequest BeaconsGet where
type Rs BeaconsGet = Beacon
requestClient BeaconsGet{..}
= go _bgBeaconName _bgXgafv _bgUploadProtocol
(Just _bgPp)
_bgAccessToken
_bgUploadType
_bgBearerToken
_bgCallback
(Just AltJSON)
proximityBeaconService
where go
= buildClient (Proxy :: Proxy BeaconsGetResource)
mempty