on develop help sign in
Regenerating gogol-proximitybeacon from updated service defintions
6e73b65Brendan Hay
gogol-proximitybeacon/gen/Network/Google/ProximityBeacon/Types/Product.hs+20−21
@@ -97,7 +97,7 @@ instance ToJSON LatLng where
97--
97--
98-- /See:/ 'attachmentInfo' smart constructor.
98-- /See:/ 'attachmentInfo' smart constructor.
99data AttachmentInfo = AttachmentInfo'
99data AttachmentInfo = AttachmentInfo'
100− { _aiData :: !(Maybe Base64)
100+ { _aiData :: !(Maybe Bytes)
101 , _aiNamespacedType :: !(Maybe Text)
101 , _aiNamespacedType :: !(Maybe Text)
102 } deriving (Eq,Show,Data,Typeable,Generic)
102 } deriving (Eq,Show,Data,Typeable,Generic)
103
103
@@ -120,7 +120,7 @@ attachmentInfo =
120aiData :: Lens' AttachmentInfo (Maybe ByteString)
120aiData :: Lens' AttachmentInfo (Maybe ByteString)
121aiData
121aiData
122 = lens _aiData (\ s a -> s{_aiData = a}) .
122 = lens _aiData (\ s a -> s{_aiData = a}) .
123− mapping _Base64
123+ mapping _Bytes
124
124
125-- | Specifies what kind of attachment this is. Tells a client how to
125-- | Specifies what kind of attachment this is. Tells a client how to
126-- interpret the \`data\` field. Format is namespace\/type, for example
126-- interpret the \`data\` field. Format is namespace\/type, for example
@@ -378,10 +378,10 @@ instance ToJSON Namespace where
378data EphemeralIdRegistration = EphemeralIdRegistration'
378data EphemeralIdRegistration = EphemeralIdRegistration'
379 { _eirRotationPeriodExponent :: !(Maybe (Textual Word32))
379 { _eirRotationPeriodExponent :: !(Maybe (Textual Word32))
380 , _eirInitialClockValue :: !(Maybe (Textual Word64))
380 , _eirInitialClockValue :: !(Maybe (Textual Word64))
381− , _eirBeaconIdentityKey :: !(Maybe Base64)
381+ , _eirBeaconIdentityKey :: !(Maybe Bytes)
382− , _eirBeaconEcdhPublicKey :: !(Maybe Base64)
382+ , _eirBeaconEcdhPublicKey :: !(Maybe Bytes)
383− , _eirInitialEid :: !(Maybe Base64)
383+ , _eirInitialEid :: !(Maybe Bytes)
384− , _eirServiceEcdhPublicKey :: !(Maybe Base64)
384+ , _eirServiceEcdhPublicKey :: !(Maybe Bytes)
385 } deriving (Eq,Show,Data,Typeable,Generic)
385 } deriving (Eq,Show,Data,Typeable,Generic)
386
386
387-- | Creates a value of 'EphemeralIdRegistration' with the minimum fields required to make a request.
387-- | Creates a value of 'EphemeralIdRegistration' with the minimum fields required to make a request.
@@ -442,7 +442,7 @@ eirBeaconIdentityKey :: Lens' EphemeralIdRegistration (Maybe ByteString)
442eirBeaconIdentityKey
442eirBeaconIdentityKey
443 = lens _eirBeaconIdentityKey
443 = lens _eirBeaconIdentityKey
444 (\ s a -> s{_eirBeaconIdentityKey = a})
444 (\ s a -> s{_eirBeaconIdentityKey = a})
445− . mapping _Base64
445+ . mapping _Bytes
446
446
447-- | The beacon\'s public key used for the Elliptic curve Diffie-Hellman key
447-- | The beacon\'s public key used for the Elliptic curve Diffie-Hellman key
448-- exchange. When this field is populated, \`service_ecdh_public_key\` must
448-- exchange. When this field is populated, \`service_ecdh_public_key\` must
@@ -451,7 +451,7 @@ eirBeaconEcdhPublicKey :: Lens' EphemeralIdRegistration (Maybe ByteString)
451eirBeaconEcdhPublicKey
451eirBeaconEcdhPublicKey
452 = lens _eirBeaconEcdhPublicKey
452 = lens _eirBeaconEcdhPublicKey
453 (\ s a -> s{_eirBeaconEcdhPublicKey = a})
453 (\ s a -> s{_eirBeaconEcdhPublicKey = a})
454− . mapping _Base64
454+ . mapping _Bytes
455
455
456-- | An initial ephemeral ID calculated using the clock value submitted as
456-- | An initial ephemeral ID calculated using the clock value submitted as
457-- \`initial_clock_value\`, and the secret key generated by the
457-- \`initial_clock_value\`, and the secret key generated by the
@@ -462,7 +462,7 @@ eirInitialEid :: Lens' EphemeralIdRegistration (Maybe ByteString)
462eirInitialEid
462eirInitialEid
463 = lens _eirInitialEid
463 = lens _eirInitialEid
464 (\ s a -> s{_eirInitialEid = a})
464 (\ s a -> s{_eirInitialEid = a})
465− . mapping _Base64
465+ . mapping _Bytes
466
466
467-- | The service\'s public key used for the Elliptic curve Diffie-Hellman key
467-- | The service\'s public key used for the Elliptic curve Diffie-Hellman key
468-- exchange. When this field is populated, \`beacon_ecdh_public_key\` must
468-- exchange. When this field is populated, \`beacon_ecdh_public_key\` must
@@ -471,7 +471,7 @@ eirServiceEcdhPublicKey :: Lens' EphemeralIdRegistration (Maybe ByteString)
471eirServiceEcdhPublicKey
471eirServiceEcdhPublicKey
472 = lens _eirServiceEcdhPublicKey
472 = lens _eirServiceEcdhPublicKey
473 (\ s a -> s{_eirServiceEcdhPublicKey = a})
473 (\ s a -> s{_eirServiceEcdhPublicKey = a})
474− . mapping _Base64
474+ . mapping _Bytes
475
475
476instance FromJSON EphemeralIdRegistration where
476instance FromJSON EphemeralIdRegistration where
477 parseJSON
477 parseJSON
@@ -616,7 +616,7 @@ data Beacon = Beacon'
616 , _bEphemeralIdRegistration :: !(Maybe EphemeralIdRegistration)
616 , _bEphemeralIdRegistration :: !(Maybe EphemeralIdRegistration)
617 , _bIndoorLevel :: !(Maybe IndoorLevel)
617 , _bIndoorLevel :: !(Maybe IndoorLevel)
618 , _bExpectedStability :: !(Maybe Text)
618 , _bExpectedStability :: !(Maybe Text)
619− , _bProvisioningKey :: !(Maybe Base64)
619+ , _bProvisioningKey :: !(Maybe Bytes)
620 , _bDescription :: !(Maybe Text)
620 , _bDescription :: !(Maybe Text)
621 , _bPlaceId :: !(Maybe Text)
621 , _bPlaceId :: !(Maybe Text)
622 , _bAdvertisedId :: !(Maybe AdvertisedId)
622 , _bAdvertisedId :: !(Maybe AdvertisedId)
@@ -722,7 +722,7 @@ bProvisioningKey :: Lens' Beacon (Maybe ByteString)
722bProvisioningKey
722bProvisioningKey
723 = lens _bProvisioningKey
723 = lens _bProvisioningKey
724 (\ s a -> s{_bProvisioningKey = a})
724 (\ s a -> s{_bProvisioningKey = a})
725− . mapping _Base64
725+ . mapping _Bytes
726
726
727-- | Free text used to identify and describe the beacon. Maximum length 140
727-- | Free text used to identify and describe the beacon. Maximum length 140
728-- characters. Optional.
728-- characters. Optional.
@@ -934,7 +934,7 @@ instance ToJSON IndoorLevel where
934data EphemeralIdRegistrationParams = EphemeralIdRegistrationParams'
934data EphemeralIdRegistrationParams = EphemeralIdRegistrationParams'
935 { _eirpMinRotationPeriodExponent :: !(Maybe (Textual Word32))
935 { _eirpMinRotationPeriodExponent :: !(Maybe (Textual Word32))
936 , _eirpMaxRotationPeriodExponent :: !(Maybe (Textual Word32))
936 , _eirpMaxRotationPeriodExponent :: !(Maybe (Textual Word32))
937− , _eirpServiceEcdhPublicKey :: !(Maybe Base64)
937+ , _eirpServiceEcdhPublicKey :: !(Maybe Bytes)
938 } deriving (Eq,Show,Data,Typeable,Generic)
938 } deriving (Eq,Show,Data,Typeable,Generic)
939
939
940-- | Creates a value of 'EphemeralIdRegistrationParams' with the minimum fields required to make a request.
940-- | Creates a value of 'EphemeralIdRegistrationParams' with the minimum fields required to make a request.
@@ -977,7 +977,7 @@ eirpServiceEcdhPublicKey :: Lens' EphemeralIdRegistrationParams (Maybe ByteStrin
977eirpServiceEcdhPublicKey
977eirpServiceEcdhPublicKey
978 = lens _eirpServiceEcdhPublicKey
978 = lens _eirpServiceEcdhPublicKey
979 (\ s a -> s{_eirpServiceEcdhPublicKey = a})
979 (\ s a -> s{_eirpServiceEcdhPublicKey = a})
980− . mapping _Base64
980+ . mapping _Bytes
981
981
982instance FromJSON EphemeralIdRegistrationParams where
982instance FromJSON EphemeralIdRegistrationParams where
983 parseJSON
983 parseJSON
@@ -1069,7 +1069,7 @@ instance ToJSON BeaconInfo where
1069--
1069--
1070-- /See:/ 'observation' smart constructor.
1070-- /See:/ 'observation' smart constructor.
1071data Observation = Observation'
1071data Observation = Observation'
1072− { _oTelemetry :: !(Maybe Base64)
1072+ { _oTelemetry :: !(Maybe Bytes)
1073 , _oTimestampMs :: !(Maybe Text)
1073 , _oTimestampMs :: !(Maybe Text)
1074 , _oAdvertisedId :: !(Maybe AdvertisedId)
1074 , _oAdvertisedId :: !(Maybe AdvertisedId)
1075 } deriving (Eq,Show,Data,Typeable,Generic)
1075 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -1098,7 +1098,7 @@ observation =
1098oTelemetry :: Lens' Observation (Maybe ByteString)
1098oTelemetry :: Lens' Observation (Maybe ByteString)
1099oTelemetry
1099oTelemetry
1100 = lens _oTelemetry (\ s a -> s{_oTelemetry = a}) .
1100 = lens _oTelemetry (\ s a -> s{_oTelemetry = a}) .
1101− mapping _Base64
1101+ mapping _Bytes
1102
1102
1103-- | Time when the beacon was observed.
1103-- | Time when the beacon was observed.
1104oTimestampMs :: Lens' Observation (Maybe Text)
1104oTimestampMs :: Lens' Observation (Maybe Text)
@@ -1134,7 +1134,7 @@ instance ToJSON Observation where
1134--
1134--
1135-- /See:/ 'beaconAttachment' smart constructor.
1135-- /See:/ 'beaconAttachment' smart constructor.
1136data BeaconAttachment = BeaconAttachment'
1136data BeaconAttachment = BeaconAttachment'
1137− { _baData :: !(Maybe Base64)
1137+ { _baData :: !(Maybe Bytes)
1138 , _baAttachmentName :: !(Maybe Text)
1138 , _baAttachmentName :: !(Maybe Text)
1139 , _baNamespacedType :: !(Maybe Text)
1139 , _baNamespacedType :: !(Maybe Text)
1140 } deriving (Eq,Show,Data,Typeable,Generic)
1140 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -1164,7 +1164,7 @@ beaconAttachment =
1164baData :: Lens' BeaconAttachment (Maybe ByteString)
1164baData :: Lens' BeaconAttachment (Maybe ByteString)
1165baData
1165baData
1166 = lens _baData (\ s a -> s{_baData = a}) .
1166 = lens _baData (\ s a -> s{_baData = a}) .
1167− mapping _Base64
1167+ mapping _Bytes
1168
1168
1169-- | Resource name of this attachment. Attachment names have the format:
1169-- | Resource name of this attachment. Attachment names have the format:
1170-- beacons\/beacon_id\/attachments\/attachment_id. Leave this empty on
1170-- beacons\/beacon_id\/attachments\/attachment_id. Leave this empty on
@@ -1257,7 +1257,7 @@ instance ToJSON ListDiagnosticsResponse where
1257--
1257--
1258-- /See:/ 'advertisedId' smart constructor.
1258-- /See:/ 'advertisedId' smart constructor.
1259data AdvertisedId = AdvertisedId'
1259data AdvertisedId = AdvertisedId'
1260− { _aiId :: !(Maybe Base64)
1260+ { _aiId :: !(Maybe Bytes)
1261 , _aiType :: !(Maybe Text)
1261 , _aiType :: !(Maybe Text)
1262 } deriving (Eq,Show,Data,Typeable,Generic)
1262 } deriving (Eq,Show,Data,Typeable,Generic)
1263
1263
@@ -1283,8 +1283,7 @@ advertisedId =
1283-- (such as hex) representation thereof. Required.
1283-- (such as hex) representation thereof. Required.
1284aiId :: Lens' AdvertisedId (Maybe ByteString)
1284aiId :: Lens' AdvertisedId (Maybe ByteString)
1285aiId
1285aiId
1286− = lens _aiId (\ s a -> s{_aiId = a}) .
1286+ = lens _aiId (\ s a -> s{_aiId = a}) . mapping _Bytes
1287− mapping _Base64
1288
1287
1289-- | Specifies the identifier type. Required.
1288-- | Specifies the identifier type. Required.
1290aiType :: Lens' AdvertisedId (Maybe Text)
1289aiType :: Lens' AdvertisedId (Maybe Text)