module Network.Google.Resource.ProximityBeacon.Beacons.Attachments.Create
(
BeaconsAttachmentsCreateResource
, beaconsAttachmentsCreate
, BeaconsAttachmentsCreate
, bacXgafv
, bacUploadProtocol
, bacPp
, bacAccessToken
, bacBeaconName
, bacUploadType
, bacPayload
, bacBearerToken
, bacCallback
) where
import Network.Google.Prelude
import Network.Google.ProximityBeacon.Types
type BeaconsAttachmentsCreateResource =
"v1beta1" :>
Capture "beaconName" Text :>
"attachments" :>
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 :>
ReqBody '[JSON] BeaconAttachment :>
Post '[JSON] BeaconAttachment
data BeaconsAttachmentsCreate = BeaconsAttachmentsCreate
{ _bacXgafv :: !(Maybe Text)
, _bacUploadProtocol :: !(Maybe Text)
, _bacPp :: !Bool
, _bacAccessToken :: !(Maybe Text)
, _bacBeaconName :: !Text
, _bacUploadType :: !(Maybe Text)
, _bacPayload :: !BeaconAttachment
, _bacBearerToken :: !(Maybe Text)
, _bacCallback :: !(Maybe Text)
} deriving (Eq,Show,Data,Typeable,Generic)
beaconsAttachmentsCreate
:: Text
-> BeaconAttachment
-> BeaconsAttachmentsCreate
beaconsAttachmentsCreate pBacBeaconName_ pBacPayload_ =
BeaconsAttachmentsCreate
{ _bacXgafv = Nothing
, _bacUploadProtocol = Nothing
, _bacPp = True
, _bacAccessToken = Nothing
, _bacBeaconName = pBacBeaconName_
, _bacUploadType = Nothing
, _bacPayload = pBacPayload_
, _bacBearerToken = Nothing
, _bacCallback = Nothing
}
bacXgafv :: Lens' BeaconsAttachmentsCreate (Maybe Text)
bacXgafv = lens _bacXgafv (\ s a -> s{_bacXgafv = a})
bacUploadProtocol :: Lens' BeaconsAttachmentsCreate (Maybe Text)
bacUploadProtocol
= lens _bacUploadProtocol
(\ s a -> s{_bacUploadProtocol = a})
bacPp :: Lens' BeaconsAttachmentsCreate Bool
bacPp = lens _bacPp (\ s a -> s{_bacPp = a})
bacAccessToken :: Lens' BeaconsAttachmentsCreate (Maybe Text)
bacAccessToken
= lens _bacAccessToken
(\ s a -> s{_bacAccessToken = a})
bacBeaconName :: Lens' BeaconsAttachmentsCreate Text
bacBeaconName
= lens _bacBeaconName
(\ s a -> s{_bacBeaconName = a})
bacUploadType :: Lens' BeaconsAttachmentsCreate (Maybe Text)
bacUploadType
= lens _bacUploadType
(\ s a -> s{_bacUploadType = a})
bacPayload :: Lens' BeaconsAttachmentsCreate BeaconAttachment
bacPayload
= lens _bacPayload (\ s a -> s{_bacPayload = a})
bacBearerToken :: Lens' BeaconsAttachmentsCreate (Maybe Text)
bacBearerToken
= lens _bacBearerToken
(\ s a -> s{_bacBearerToken = a})
bacCallback :: Lens' BeaconsAttachmentsCreate (Maybe Text)
bacCallback
= lens _bacCallback (\ s a -> s{_bacCallback = a})
instance GoogleRequest BeaconsAttachmentsCreate where
type Rs BeaconsAttachmentsCreate = BeaconAttachment
requestClient BeaconsAttachmentsCreate{..}
= go _bacBeaconName _bacXgafv _bacUploadProtocol
(Just _bacPp)
_bacAccessToken
_bacUploadType
_bacBearerToken
_bacCallback
(Just AltJSON)
_bacPayload
proximityBeaconService
where go
= buildClient
(Proxy :: Proxy BeaconsAttachmentsCreateResource)
mempty