on develop help sign in
Regenerating services using bytes API types
commitca8d11a486b7e4a1f3082bdbb02b425720bca3a9 authorBrendan Hay <brendan.g.hay@gmail.com> dateTue 14 Jun 2016, 10:30 (10 years ago) parenta254f07
21 files changed+189−189
gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer/Types/Product.hs+3−3 gogol-admin-directory/gen/Network/Google/Directory/Types/Product.hs+3−3 gogol-bigquery/gen/Network/Google/BigQuery/Types/Product.hs+3−3 gogol-books/gen/Network/Google/Books/Types/Product.hs+3−3 gogol-compute/gen/Network/Google/Compute/Types/Product.hs+24−24 gogol-datastore/gen/Network/Google/Datastore/Types/Product.hs+33−33 gogol-deploymentmanager/gen/Network/Google/DeploymentManager/Types/Product.hs+9−9 gogol-drive/gen/Network/Google/Drive/Types/Product.hs+3−3 gogol-games/gen/Network/Google/Games/Types/Product.hs+12−12 gogol-genomics/gen/Network/Google/Genomics/Types/Product.hs+3−3 gogol-gmail/gen/Network/Google/Gmail/Types/Product.hs+6−6 gogol-identity-toolkit/gen/Network/Google/IdentityToolkit/Types/Product.hs+15−15 gogol-kgsearch/gen/Network/Google/KnowledgeGraphSearch/Types/Product.hs+15−15 gogol-maps-engine/gen/Network/Google/MapsEngine/Types/Product.hs+21−21 gogol-pagespeed/gen/Network/Google/PageSpeed/Types/Product.hs+3−3 gogol-proximitybeacon/gen/Network/Google/ProximityBeacon/Types/Product.hs+12−12 gogol-pubsub/gen/Network/Google/PubSub/Types/Product.hs+6−6 gogol-replicapool/gen/Network/Google/ReplicaPool/Types/Product.hs+6−6 gogol-resourcemanager/gen/Network/Google/ResourceManager/Types/Product.hs+3−3 gogol-vision/gen/Network/Google/Vision/Types/Product.hs+3−3 gogol-youtube/gen/Network/Google/YouTube/Types/Product.hs+3−3
gogol-adexchange-buyer/gen/Network/Google/AdExchangeBuyer/Types/Product.hs+3−3
@@ -622,7 +622,7 @@ instance ToJSON AccountBidderLocationItem where
622622--
623623-- /See:/ 'privateData' smart constructor.
624624data PrivateData = PrivateData'
625− { _pdReferencePayload :: !(Maybe (Textual Word8))
625+ { _pdReferencePayload :: !(Maybe Base64)
626626 , _pdReferenceId :: !(Maybe Text)
627627 } deriving (Eq,Show,Data,Typeable,Generic)
628628
@@ -641,11 +641,11 @@ privateData =
641641 , _pdReferenceId = Nothing
642642 }
643643
644−pdReferencePayload :: Lens' PrivateData (Maybe Word8)
644+pdReferencePayload :: Lens' PrivateData (Maybe ByteString)
645645pdReferencePayload
646646 = lens _pdReferencePayload
647647 (\ s a -> s{_pdReferencePayload = a})
648− . mapping _Coerce
648+ . mapping _Base64
649649
650650pdReferenceId :: Lens' PrivateData (Maybe Text)
651651pdReferenceId
gogol-admin-directory/gen/Network/Google/Directory/Types/Product.hs+3−3
@@ -4468,7 +4468,7 @@ instance ToJSON UserPhone where
44684468--
44694469-- /See:/ 'userPhoto' smart constructor.
44704470data UserPhoto = UserPhoto'
4471− { _upPhotoData :: !(Maybe (Textual Word8))
4471+ { _upPhotoData :: !(Maybe Base64)
44724472 , _upEtag :: !(Maybe Text)
44734473 , _upHeight :: !(Maybe (Textual Int32))
44744474 , _upKind :: !Text
@@ -4512,10 +4512,10 @@ userPhoto =
45124512 }
45134513
45144514-- | Base64 encoded photo data
4515−upPhotoData :: Lens' UserPhoto (Maybe Word8)
4515+upPhotoData :: Lens' UserPhoto (Maybe ByteString)
45164516upPhotoData
45174517 = lens _upPhotoData (\ s a -> s{_upPhotoData = a}) .
4518− mapping _Coerce
4518+ mapping _Base64
45194519
45204520-- | ETag of the resource.
45214521upEtag :: Lens' UserPhoto (Maybe Text)
gogol-bigquery/gen/Network/Google/BigQuery/Types/Product.hs+3−3
@@ -2590,7 +2590,7 @@ instance ToJSON ProjectListProjectsItem where
25902590--
25912591-- /See:/ 'bigtableColumn' smart constructor.
25922592data BigtableColumn = BigtableColumn'
2593− { _bcQualifierEncoded :: !(Maybe (Textual Word8))
2593+ { _bcQualifierEncoded :: !(Maybe Base64)
25942594 , _bcFieldName :: !(Maybe Text)
25952595 , _bcQualifierString :: !(Maybe Text)
25962596 , _bcOnlyReadLatest :: !(Maybe Bool)
@@ -2633,11 +2633,11 @@ bigtableColumn =
26332633-- qualifier. However, if the qualifier is not a valid BigQuery field
26342634-- identifier i.e. does not match [a-zA-Z][a-zA-Z0-9_]*, a valid identifier
26352635-- must be provided as field_name.
2636−bcQualifierEncoded :: Lens' BigtableColumn (Maybe Word8)
2636+bcQualifierEncoded :: Lens' BigtableColumn (Maybe ByteString)
26372637bcQualifierEncoded
26382638 = lens _bcQualifierEncoded
26392639 (\ s a -> s{_bcQualifierEncoded = a})
2640− . mapping _Coerce
2640+ . mapping _Base64
26412641
26422642-- | [Optional] If the qualifier is not a valid BigQuery field identifier
26432643-- i.e. does not match [a-zA-Z][a-zA-Z0-9_]*, a valid identifier must be
gogol-books/gen/Network/Google/Books/Types/Product.hs+3−3
@@ -404,7 +404,7 @@ instance ToJSON ReviewSource where
404404--
405405-- /See:/ 'annotationData' smart constructor.
406406data AnnotationData = AnnotationData'
407− { _annEncodedData :: !(Maybe (Textual Word8))
407+ { _annEncodedData :: !(Maybe Base64)
408408 , _annKind :: !Text
409409 , _annData :: !(Maybe JSONValue)
410410 , _annSelfLink :: !(Maybe Text)
@@ -452,11 +452,11 @@ annotationData =
452452 }
453453
454454-- | Base64 encoded data for this annotation data.
455−annEncodedData :: Lens' AnnotationData (Maybe Word8)
455+annEncodedData :: Lens' AnnotationData (Maybe ByteString)
456456annEncodedData
457457 = lens _annEncodedData
458458 (\ s a -> s{_annEncodedData = a})
459− . mapping _Coerce
459+ . mapping _Base64
460460
461461-- | Resource Type
462462annKind :: Lens' AnnotationData Text
gogol-compute/gen/Network/Google/Compute/Types/Product.hs+24−24
@@ -1183,7 +1183,7 @@ instance ToJSON VPNTunnelsScopedList where
11831183--
11841184-- /See:/ 'instanceGroupsSetNamedPortsRequest' smart constructor.
11851185data InstanceGroupsSetNamedPortsRequest = InstanceGroupsSetNamedPortsRequest'
1186− { _igsnprFingerprint :: !(Maybe (Textual Word8))
1186+ { _igsnprFingerprint :: !(Maybe Base64)
11871187 , _igsnprNamedPorts :: !(Maybe [NamedPort])
11881188 } deriving (Eq,Show,Data,Typeable,Generic)
11891189
@@ -1208,11 +1208,11 @@ instanceGroupsSetNamedPortsRequest =
12081208-- with the instanceGroups.get method. Then, include the fingerprint in
12091209-- your request to ensure that you do not overwrite changes that were
12101210-- applied from another concurrent request.
1211−igsnprFingerprint :: Lens' InstanceGroupsSetNamedPortsRequest (Maybe Word8)
1211+igsnprFingerprint :: Lens' InstanceGroupsSetNamedPortsRequest (Maybe ByteString)
12121212igsnprFingerprint
12131213 = lens _igsnprFingerprint
12141214 (\ s a -> s{_igsnprFingerprint = a})
1215− . mapping _Coerce
1215+ . mapping _Base64
12161216
12171217-- | The list of named ports to set for this instance group.
12181218igsnprNamedPorts :: Lens' InstanceGroupsSetNamedPortsRequest [NamedPort]
@@ -1878,7 +1878,7 @@ instance ToJSON Image where
18781878data URLMap = URLMap'
18791879 { _umTests :: !(Maybe [URLMapTest])
18801880 , _umKind :: !Text
1881− , _umFingerprint :: !(Maybe (Textual Word8))
1881+ , _umFingerprint :: !(Maybe Base64)
18821882 , _umDefaultService :: !(Maybe Text)
18831883 , _umSelfLink :: !(Maybe Text)
18841884 , _umName :: !(Maybe Text)
@@ -1946,11 +1946,11 @@ umKind = lens _umKind (\ s a -> s{_umKind = a})
19461946-- object. This field is used in optimistic locking. This field will be
19471947-- ignored when inserting a UrlMap. An up-to-date fingerprint must be
19481948-- provided in order to update the UrlMap.
1949−umFingerprint :: Lens' URLMap (Maybe Word8)
1949+umFingerprint :: Lens' URLMap (Maybe ByteString)
19501950umFingerprint
19511951 = lens _umFingerprint
19521952 (\ s a -> s{_umFingerprint = a})
1953− . mapping _Coerce
1953+ . mapping _Base64
19541954
19551955-- | The URL of the BackendService resource if none of the hostRules match.
19561956umDefaultService :: Lens' URLMap (Maybe Text)
@@ -4955,7 +4955,7 @@ instance ToJSON TargetPoolsScopedListWarningDataItem
49554955-- /See:/ 'instanceGroupManager' smart constructor.
49564956data InstanceGroupManager = InstanceGroupManager'
49574957 { _igmKind :: !Text
4958− , _igmFingerprint :: !(Maybe (Textual Word8))
4958+ , _igmFingerprint :: !(Maybe Base64)
49594959 , _igmBaseInstanceName :: !(Maybe Text)
49604960 , _igmZone :: !(Maybe Text)
49614961 , _igmInstanceTemplate :: !(Maybe Text)
@@ -5032,11 +5032,11 @@ igmKind = lens _igmKind (\ s a -> s{_igmKind = a})
50325032
50335033-- | [Output Only] The fingerprint of the resource data. You can use this
50345034-- optional field for optimistic locking when you update the resource.
5035−igmFingerprint :: Lens' InstanceGroupManager (Maybe Word8)
5035+igmFingerprint :: Lens' InstanceGroupManager (Maybe ByteString)
50365036igmFingerprint
50375037 = lens _igmFingerprint
50385038 (\ s a -> s{_igmFingerprint = a})
5039− . mapping _Coerce
5039+ . mapping _Base64
50405040
50415041-- | The base instance name to use for instances in this group. The value
50425042-- must be 1-58 characters long. Instances are named by appending a hyphen
@@ -11637,7 +11637,7 @@ instance ToJSON URLMapValidationResult where
1163711637-- /See:/ 'metadata' smart constructor.
1163811638data Metadata = Metadata'
1163911639 { _mKind :: !Text
11640− , _mFingerprint :: !(Maybe (Textual Word8))
11640+ , _mFingerprint :: !(Maybe Base64)
1164111641 , _mItems :: !(Maybe [MetadataItemsItem])
1164211642 } deriving (Eq,Show,Data,Typeable,Generic)
1164311643
@@ -11669,10 +11669,10 @@ mKind = lens _mKind (\ s a -> s{_mKind = a})
1166911669-- fingerprint is initially generated by Compute Engine and changes after
1167011670-- every request to modify or update metadata. You must always provide an
1167111671-- up-to-date fingerprint hash in order to update or change metadata.
11672−mFingerprint :: Lens' Metadata (Maybe Word8)
11672+mFingerprint :: Lens' Metadata (Maybe ByteString)
1167311673mFingerprint
1167411674 = lens _mFingerprint (\ s a -> s{_mFingerprint = a})
11675− . mapping _Coerce
11675+ . mapping _Base64
1167611676
1167711677-- | Array of key\/value pairs. The total size of all keys and values must be
1167811678-- less than 512 KB.
@@ -13798,7 +13798,7 @@ instance ToJSON URLMapsValidateRequest where
1379813798--
1379913799-- /See:/ 'instanceGroupManagersSetTargetPoolsRequest' smart constructor.
1380013800data InstanceGroupManagersSetTargetPoolsRequest = InstanceGroupManagersSetTargetPoolsRequest'
13801− { _igmstprFingerprint :: !(Maybe (Textual Word8))
13801+ { _igmstprFingerprint :: !(Maybe Base64)
1380213802 , _igmstprTargetPools :: !(Maybe [Text])
1380313803 } deriving (Eq,Show,Data,Typeable,Generic)
1380413804
@@ -13823,11 +13823,11 @@ instanceGroupManagersSetTargetPoolsRequest =
1382313823-- instanceGroupManagers.get method. Then, include the fingerprint in your
1382413824-- request to ensure that you do not overwrite changes that were applied
1382513825-- from another concurrent request.
13826−igmstprFingerprint :: Lens' InstanceGroupManagersSetTargetPoolsRequest (Maybe Word8)
13826+igmstprFingerprint :: Lens' InstanceGroupManagersSetTargetPoolsRequest (Maybe ByteString)
1382713827igmstprFingerprint
1382813828 = lens _igmstprFingerprint
1382913829 (\ s a -> s{_igmstprFingerprint = a})
13830− . mapping _Coerce
13830+ . mapping _Base64
1383113831
1383213832-- | The list of target pool URLs that instances in this managed instance
1383313833-- group belong to. The managed instance group applies these target pools
@@ -14883,7 +14883,7 @@ instance ToJSON Quota where
1488314883data InstanceGroup = InstanceGroup'
1488414884 { _iiSize :: !(Maybe (Textual Int32))
1488514885 , _iiKind :: !Text
14886− , _iiFingerprint :: !(Maybe (Textual Word8))
14886+ , _iiFingerprint :: !(Maybe Base64)
1488714887 , _iiNetwork :: !(Maybe Text)
1488814888 , _iiZone :: !(Maybe Text)
1488914889 , _iiSelfLink :: !(Maybe Text)
@@ -14954,11 +14954,11 @@ iiKind = lens _iiKind (\ s a -> s{_iiKind = a})
1495414954-- | [Output Only] The fingerprint of the named ports. The system uses this
1495514955-- fingerprint to detect conflicts when multiple users change the named
1495614956-- ports concurrently.
14957−iiFingerprint :: Lens' InstanceGroup (Maybe Word8)
14957+iiFingerprint :: Lens' InstanceGroup (Maybe ByteString)
1495814958iiFingerprint
1495914959 = lens _iiFingerprint
1496014960 (\ s a -> s{_iiFingerprint = a})
14961− . mapping _Coerce
14961+ . mapping _Base64
1496214962
1496314963-- | The URL of the network to which all instances in the instance group
1496414964-- belong.
@@ -15782,7 +15782,7 @@ instance ToJSON InstancesScopedListWarningDataItem
1578215782data BackendService = BackendService'
1578315783 { _bsBackends :: !(Maybe [Backend])
1578415784 , _bsKind :: !Text
15785− , _bsFingerprint :: !(Maybe (Textual Word8))
15785+ , _bsFingerprint :: !(Maybe Base64)
1578615786 , _bsProtocol :: !(Maybe BackendServiceProtocol)
1578715787 , _bsSelfLink :: !(Maybe Text)
1578815788 , _bsName :: !(Maybe Text)
@@ -15863,11 +15863,11 @@ bsKind = lens _bsKind (\ s a -> s{_bsKind = a})
1586315863-- object. This field is used in optimistic locking. This field will be
1586415864-- ignored when inserting a BackendService. An up-to-date fingerprint must
1586515865-- be provided in order to update the BackendService.
15866−bsFingerprint :: Lens' BackendService (Maybe Word8)
15866+bsFingerprint :: Lens' BackendService (Maybe ByteString)
1586715867bsFingerprint
1586815868 = lens _bsFingerprint
1586915869 (\ s a -> s{_bsFingerprint = a})
15870− . mapping _Coerce
15870+ . mapping _Base64
1587115871
1587215872-- | The protocol this BackendService uses to communicate with backends.
1587315873-- Possible values are HTTP, HTTPS, HTTP2, TCP and SSL.
@@ -16329,7 +16329,7 @@ instance ToJSON VPNTunnelAggregatedListItems where
1632916329--
1633016330-- /See:/ 'tags' smart constructor.
1633116331data Tags = Tags'
16332− { _tFingerprint :: !(Maybe (Textual Word8))
16332+ { _tFingerprint :: !(Maybe Base64)
1633316333 , _tItems :: !(Maybe [Text])
1633416334 } deriving (Eq,Show,Data,Typeable,Generic)
1633516335
@@ -16354,10 +16354,10 @@ tags =
1635416354-- every request to modify or update metadata. You must always provide an
1635516355-- up-to-date fingerprint hash in order to update or change metadata. To
1635616356-- see the latest fingerprint, make get() request to the instance.
16357−tFingerprint :: Lens' Tags (Maybe Word8)
16357+tFingerprint :: Lens' Tags (Maybe ByteString)
1635816358tFingerprint
1635916359 = lens _tFingerprint (\ s a -> s{_tFingerprint = a})
16360− . mapping _Coerce
16360+ . mapping _Base64
1636116361
1636216362-- | An array of tags. Each tag must be 1-63 characters long, and comply with
1636316363-- RFC1035.
gogol-datastore/gen/Network/Google/Datastore/Types/Product.hs+33−33
@@ -97,7 +97,7 @@ instance ToJSON LatLng where
9797--
9898-- /See:/ 'rollbackRequest' smart constructor.
9999newtype RollbackRequest = RollbackRequest'
100− { _rrTransaction :: Maybe (Textual Word8)
100+ { _rrTransaction :: Maybe Base64
101101 } deriving (Eq,Show,Data,Typeable,Generic)
102102
103103-- | Creates a value of 'RollbackRequest' with the minimum fields required to make a request.
@@ -114,11 +114,11 @@ rollbackRequest =
114114
115115-- | The transaction identifier, returned by a call to
116116-- google.datastore.v1beta3.Datastore.BeginTransaction.
117−rrTransaction :: Lens' RollbackRequest (Maybe Word8)
117+rrTransaction :: Lens' RollbackRequest (Maybe ByteString)
118118rrTransaction
119119 = lens _rrTransaction
120120 (\ s a -> s{_rrTransaction = a})
121− . mapping _Coerce
121+ . mapping _Base64
122122
123123instance FromJSON RollbackRequest where
124124 parseJSON
@@ -193,11 +193,11 @@ instance ToJSON PartitionId where
193193-- /See:/ 'queryResultBatch' smart constructor.
194194data QueryResultBatch = QueryResultBatch'
195195 { _qrbSkippedResults :: !(Maybe (Textual Int32))
196− , _qrbSkippedCursor :: !(Maybe (Textual Word8))
196+ , _qrbSkippedCursor :: !(Maybe Base64)
197197 , _qrbEntityResultType :: !(Maybe QueryResultBatchEntityResultType)
198198 , _qrbEntityResults :: !(Maybe [EntityResult])
199199 , _qrbMoreResults :: !(Maybe QueryResultBatchMoreResults)
200− , _qrbEndCursor :: !(Maybe (Textual Word8))
200+ , _qrbEndCursor :: !(Maybe Base64)
201201 } deriving (Eq,Show,Data,Typeable,Generic)
202202
203203-- | Creates a value of 'QueryResultBatch' with the minimum fields required to make a request.
@@ -236,11 +236,11 @@ qrbSkippedResults
236236
237237-- | A cursor that points to the position after the last skipped result. Will
238238-- be set when \`skipped_results\` != 0.
239−qrbSkippedCursor :: Lens' QueryResultBatch (Maybe Word8)
239+qrbSkippedCursor :: Lens' QueryResultBatch (Maybe ByteString)
240240qrbSkippedCursor
241241 = lens _qrbSkippedCursor
242242 (\ s a -> s{_qrbSkippedCursor = a})
243− . mapping _Coerce
243+ . mapping _Base64
244244
245245-- | The result type for every entity in \`entity_results\`.
246246qrbEntityResultType :: Lens' QueryResultBatch (Maybe QueryResultBatchEntityResultType)
@@ -263,10 +263,10 @@ qrbMoreResults
263263 (\ s a -> s{_qrbMoreResults = a})
264264
265265-- | A cursor that points to the position after the last result in the batch.
266−qrbEndCursor :: Lens' QueryResultBatch (Maybe Word8)
266+qrbEndCursor :: Lens' QueryResultBatch (Maybe ByteString)
267267qrbEndCursor
268268 = lens _qrbEndCursor (\ s a -> s{_qrbEndCursor = a})
269− . mapping _Coerce
269+ . mapping _Base64
270270
271271instance FromJSON QueryResultBatch where
272272 parseJSON
@@ -506,7 +506,7 @@ instance ToJSON CompositeFilter where
506506--
507507-- /See:/ 'beginTransactionResponse' smart constructor.
508508newtype BeginTransactionResponse = BeginTransactionResponse'
509− { _btrTransaction :: Maybe (Textual Word8)
509+ { _btrTransaction :: Maybe Base64
510510 } deriving (Eq,Show,Data,Typeable,Generic)
511511
512512-- | Creates a value of 'BeginTransactionResponse' with the minimum fields required to make a request.
@@ -522,11 +522,11 @@ beginTransactionResponse =
522522 }
523523
524524-- | The transaction identifier (always present).
525−btrTransaction :: Lens' BeginTransactionResponse (Maybe Word8)
525+btrTransaction :: Lens' BeginTransactionResponse (Maybe ByteString)
526526btrTransaction
527527 = lens _btrTransaction
528528 (\ s a -> s{_btrTransaction = a})
529− . mapping _Coerce
529+ . mapping _Base64
530530
531531instance FromJSON BeginTransactionResponse where
532532 parseJSON
@@ -756,7 +756,7 @@ data Value = Value'
756756 , _vMeaning :: !(Maybe (Textual Int32))
757757 , _vArrayValue :: !(Maybe ArrayValue)
758758 , _vNullValue :: !(Maybe ValueNullValue)
759− , _vBlobValue :: !(Maybe (Textual Word8))
759+ , _vBlobValue :: !(Maybe Base64)
760760 } deriving (Eq,Show,Data,Typeable,Generic)
761761
762762-- | Creates a value of 'Value' with the minimum fields required to make a request.
@@ -887,10 +887,10 @@ vNullValue
887887-- | A blob value. May have at most 1,000,000 bytes. When
888888-- \`exclude_from_indexes\` is false, may have at most 1500 bytes. In JSON
889889-- requests, must be base64-encoded.
890−vBlobValue :: Lens' Value (Maybe Word8)
890+vBlobValue :: Lens' Value (Maybe ByteString)
891891vBlobValue
892892 = lens _vBlobValue (\ s a -> s{_vBlobValue = a}) .
893− mapping _Coerce
893+ mapping _Base64
894894
895895instance FromJSON Value where
896896 parseJSON
@@ -1241,11 +1241,11 @@ instance ToJSON PropertyFilter where
12411241--
12421242-- /See:/ 'query' smart constructor.
12431243data Query = Query'
1244− { _qStartCursor :: !(Maybe (Textual Word8))
1244+ { _qStartCursor :: !(Maybe Base64)
12451245 , _qOffSet :: !(Maybe (Textual Int32))
12461246 , _qKind :: !(Maybe [KindExpression])
12471247 , _qDistinctOn :: !(Maybe [PropertyReference])
1248− , _qEndCursor :: !(Maybe (Textual Word8))
1248+ , _qEndCursor :: !(Maybe Base64)
12491249 , _qLimit :: !(Maybe (Textual Int32))
12501250 , _qProjection :: !(Maybe [Projection])
12511251 , _qFilter :: !(Maybe Filter)
@@ -1290,10 +1290,10 @@ query =
12901290
12911291-- | A starting point for the query results. Query cursors are returned in
12921292-- query result batches.
1293−qStartCursor :: Lens' Query (Maybe Word8)
1293+qStartCursor :: Lens' Query (Maybe ByteString)
12941294qStartCursor
12951295 = lens _qStartCursor (\ s a -> s{_qStartCursor = a})
1296− . mapping _Coerce
1296+ . mapping _Base64
12971297
12981298-- | The number of results to skip. Applies before limit, but after all other
12991299-- constraints. Optional. Must be >= 0 if specified.
@@ -1320,10 +1320,10 @@ qDistinctOn
13201320
13211321-- | An ending point for the query results. Query cursors are returned in
13221322-- query result batches.
1323−qEndCursor :: Lens' Query (Maybe Word8)
1323+qEndCursor :: Lens' Query (Maybe ByteString)
13241324qEndCursor
13251325 = lens _qEndCursor (\ s a -> s{_qEndCursor = a}) .
1326− mapping _Coerce
1326+ mapping _Base64
13271327
13281328-- | The maximum number of results to return. Applies after all other
13291329-- constraints. Optional. Unspecified is interpreted as no limit. Must be
@@ -1418,7 +1418,7 @@ instance ToJSON ArrayValue where
14181418--
14191419-- /See:/ 'entityResult' smart constructor.
14201420data EntityResult = EntityResult'
1421− { _erCursor :: !(Maybe (Textual Word8))
1421+ { _erCursor :: !(Maybe Base64)
14221422 , _erEntity :: !(Maybe Entity)
14231423 } deriving (Eq,Show,Data,Typeable,Generic)
14241424
@@ -1439,10 +1439,10 @@ entityResult =
14391439
14401440-- | A cursor that points to the position after the result entity. Set only
14411441-- when the \`EntityResult\` is part of a \`QueryResultBatch\` message.
1442−erCursor :: Lens' EntityResult (Maybe Word8)
1442+erCursor :: Lens' EntityResult (Maybe ByteString)
14431443erCursor
14441444 = lens _erCursor (\ s a -> s{_erCursor = a}) .
1445− mapping _Coerce
1445+ mapping _Base64
14461446
14471447-- | The resulting entity.
14481448erEntity :: Lens' EntityResult (Maybe Entity)
@@ -1554,7 +1554,7 @@ instance ToJSON KindExpression where
15541554-- /See:/ 'readOptions' smart constructor.
15551555data ReadOptions = ReadOptions'
15561556 { _roReadConsistency :: !(Maybe ReadOptionsReadConsistency)
1557− , _roTransaction :: !(Maybe (Textual Word8))
1557+ , _roTransaction :: !(Maybe Base64)
15581558 } deriving (Eq,Show,Data,Typeable,Generic)
15591559
15601560-- | Creates a value of 'ReadOptions' with the minimum fields required to make a request.
@@ -1580,11 +1580,11 @@ roReadConsistency
15801580 (\ s a -> s{_roReadConsistency = a})
15811581
15821582-- | The transaction in which to read.
1583−roTransaction :: Lens' ReadOptions (Maybe Word8)
1583+roTransaction :: Lens' ReadOptions (Maybe ByteString)
15841584roTransaction
15851585 = lens _roTransaction
15861586 (\ s a -> s{_roTransaction = a})
1587− . mapping _Coerce
1587+ . mapping _Base64
15881588
15891589instance FromJSON ReadOptions where
15901590 parseJSON
@@ -1711,7 +1711,7 @@ instance ToJSON Filter where
17111711data CommitRequest = CommitRequest'
17121712 { _crMutations :: !(Maybe [Mutation])
17131713 , _crMode :: !(Maybe CommitRequestMode)
1714− , _crTransaction :: !(Maybe (Textual Word8))
1714+ , _crTransaction :: !(Maybe Base64)
17151715 } deriving (Eq,Show,Data,Typeable,Generic)
17161716
17171717-- | Creates a value of 'CommitRequest' with the minimum fields required to make a request.
@@ -1751,11 +1751,11 @@ crMode = lens _crMode (\ s a -> s{_crMode = a})
17511751
17521752-- | The identifier of the transaction associated with the commit. A
17531753-- transaction identifier is returned by a call to BeginTransaction.
1754−crTransaction :: Lens' CommitRequest (Maybe Word8)
1754+crTransaction :: Lens' CommitRequest (Maybe ByteString)
17551755crTransaction
17561756 = lens _crTransaction
17571757 (\ s a -> s{_crTransaction = a})
1758− . mapping _Coerce
1758+ . mapping _Base64
17591759
17601760instance FromJSON CommitRequest where
17611761 parseJSON
@@ -2009,7 +2009,7 @@ instance ToJSON PropertyOrder where
20092009--
20102010-- /See:/ 'gqlQueryParameter' smart constructor.
20112011data GqlQueryParameter = GqlQueryParameter'
2012− { _gqpCursor :: !(Maybe (Textual Word8))
2012+ { _gqpCursor :: !(Maybe Base64)
20132013 , _gqpValue :: !(Maybe Value)
20142014 } deriving (Eq,Show,Data,Typeable,Generic)
20152015
@@ -2029,10 +2029,10 @@ gqlQueryParameter =
20292029 }
20302030
20312031-- | A query cursor. Query cursors are returned in query result batches.
2032−gqpCursor :: Lens' GqlQueryParameter (Maybe Word8)
2032+gqpCursor :: Lens' GqlQueryParameter (Maybe ByteString)
20332033gqpCursor
20342034 = lens _gqpCursor (\ s a -> s{_gqpCursor = a}) .
2035− mapping _Coerce
2035+ mapping _Base64
20362036
20372037-- | A value parameter.
20382038gqpValue :: Lens' GqlQueryParameter (Maybe Value)
gogol-deploymentmanager/gen/Network/Google/DeploymentManager/Types/Product.hs+9−9
@@ -997,7 +997,7 @@ instance ToJSON ResourceUpdateWarningsItem where
997997--
998998-- /See:/ 'deploymentsCancelPreviewRequest' smart constructor.
999999newtype DeploymentsCancelPreviewRequest = DeploymentsCancelPreviewRequest'
1000− { _dcprFingerprint :: Maybe (Textual Word8)
1000+ { _dcprFingerprint :: Maybe Base64
10011001 } deriving (Eq,Show,Data,Typeable,Generic)
10021002
10031003-- | Creates a value of 'DeploymentsCancelPreviewRequest' with the minimum fields required to make a request.
@@ -1021,11 +1021,11 @@ deploymentsCancelPreviewRequest =
10211021-- requests). The fingerprint is initially generated by Deployment Manager
10221022-- and changes after every request to modify a deployment. To get the
10231023-- latest fingerprint value, perform a get() request on the deployment.
1024−dcprFingerprint :: Lens' DeploymentsCancelPreviewRequest (Maybe Word8)
1024+dcprFingerprint :: Lens' DeploymentsCancelPreviewRequest (Maybe ByteString)
10251025dcprFingerprint
10261026 = lens _dcprFingerprint
10271027 (\ s a -> s{_dcprFingerprint = a})
1028− . mapping _Coerce
1028+ . mapping _Base64
10291029
10301030instance FromJSON DeploymentsCancelPreviewRequest
10311031 where
@@ -1557,7 +1557,7 @@ instance ToJSON OperationErrorErrorsItem where
15571557--
15581558-- /See:/ 'deploymentsStopRequest' smart constructor.
15591559newtype DeploymentsStopRequest = DeploymentsStopRequest'
1560− { _dsrFingerprint :: Maybe (Textual Word8)
1560+ { _dsrFingerprint :: Maybe Base64
15611561 } deriving (Eq,Show,Data,Typeable,Generic)
15621562
15631563-- | Creates a value of 'DeploymentsStopRequest' with the minimum fields required to make a request.
@@ -1581,11 +1581,11 @@ deploymentsStopRequest =
15811581-- is initially generated by Deployment Manager and changes after every
15821582-- request to modify a deployment. To get the latest fingerprint value,
15831583-- perform a get() request on the deployment.
1584−dsrFingerprint :: Lens' DeploymentsStopRequest (Maybe Word8)
1584+dsrFingerprint :: Lens' DeploymentsStopRequest (Maybe ByteString)
15851585dsrFingerprint
15861586 = lens _dsrFingerprint
15871587 (\ s a -> s{_dsrFingerprint = a})
1588− . mapping _Coerce
1588+ . mapping _Base64
15891589
15901590instance FromJSON DeploymentsStopRequest where
15911591 parseJSON
@@ -1914,7 +1914,7 @@ instance ToJSON OperationWarningsItem where
19141914data Deployment = Deployment'
19151915 { _dInsertTime :: !(Maybe Text)
19161916 , _dOperation :: !(Maybe Operation)
1917− , _dFingerprint :: !(Maybe (Textual Word8))
1917+ , _dFingerprint :: !(Maybe Base64)
19181918 , _dSelfLink :: !(Maybe Text)
19191919 , _dName :: !(Maybe Text)
19201920 , _dManifest :: !(Maybe Text)
@@ -1987,10 +1987,10 @@ dOperation
19871987-- fingerprint is initially generated by Deployment Manager and changes
19881988-- after every request to modify data. To get the latest fingerprint value,
19891989-- perform a get() request to a deployment.
1990−dFingerprint :: Lens' Deployment (Maybe Word8)
1990+dFingerprint :: Lens' Deployment (Maybe ByteString)
19911991dFingerprint
19921992 = lens _dFingerprint (\ s a -> s{_dFingerprint = a})
1993− . mapping _Coerce
1993+ . mapping _Base64
19941994
19951995-- | [Output Only] Self link for the deployment.
19961996dSelfLink :: Lens' Deployment (Maybe Text)
gogol-drive/gen/Network/Google/Drive/Types/Product.hs+3−3
@@ -512,7 +512,7 @@ instance ToJSON ReplyList where
512512--
513513-- /See:/ 'fileContentHintsThumbnail' smart constructor.
514514data FileContentHintsThumbnail = FileContentHintsThumbnail'
515− { _fchtImage :: !(Maybe (Textual Word8))
515+ { _fchtImage :: !(Maybe Base64)
516516 , _fchtMimeType :: !(Maybe Text)
517517 } deriving (Eq,Show,Data,Typeable,Generic)
518518
@@ -532,10 +532,10 @@ fileContentHintsThumbnail =
532532 }
533533
534534-- | The thumbnail data encoded with URL-safe Base64 (RFC 4648 section 5).
535−fchtImage :: Lens' FileContentHintsThumbnail (Maybe Word8)
535+fchtImage :: Lens' FileContentHintsThumbnail (Maybe ByteString)
536536fchtImage
537537 = lens _fchtImage (\ s a -> s{_fchtImage = a}) .
538− mapping _Coerce
538+ mapping _Base64
539539
540540-- | The MIME type of the thumbnail.
541541fchtMimeType :: Lens' FileContentHintsThumbnail (Maybe Text)
gogol-games/gen/Network/Google/Games/Types/Product.hs+12−12
@@ -847,7 +847,7 @@ instance ToJSON TurnBasedMatch where
847847-- /See:/ 'turnBasedMatchData' smart constructor.
848848data TurnBasedMatchData = TurnBasedMatchData'
849849 { _tbmdKind :: !Text
850− , _tbmdData :: !(Maybe (Textual Word8))
850+ , _tbmdData :: !(Maybe Base64)
851851 , _tbmdDataAvailable :: !(Maybe Bool)
852852 } deriving (Eq,Show,Data,Typeable,Generic)
853853
@@ -876,10 +876,10 @@ tbmdKind = lens _tbmdKind (\ s a -> s{_tbmdKind = a})
876876
877877-- | The byte representation of the data (limited to 128 kB), as a
878878-- Base64-encoded string with the URL_SAFE encoding option.
879−tbmdData :: Lens' TurnBasedMatchData (Maybe Word8)
879+tbmdData :: Lens' TurnBasedMatchData (Maybe ByteString)
880880tbmdData
881881 = lens _tbmdData (\ s a -> s{_tbmdData = a}) .
882− mapping _Coerce
882+ mapping _Base64
883883
884884-- | True if this match has data available but it wasn\'t returned in a list
885885-- response; fetching the match individually will retrieve this data.
@@ -6064,7 +6064,7 @@ instance ToJSON TurnBasedMatchResults where
60646064--
60656065-- /See:/ 'pushTokenIdIos' smart constructor.
60666066data PushTokenIdIos = PushTokenIdIos'
6067− { _ptiiAPNSDeviceToken :: !(Maybe (Textual Word8))
6067+ { _ptiiAPNSDeviceToken :: !(Maybe Base64)
60686068 , _ptiiAPNSEnvironment :: !(Maybe Text)
60696069 } deriving (Eq,Show,Data,Typeable,Generic)
60706070
@@ -6085,11 +6085,11 @@ pushTokenIdIos =
60856085
60866086-- | Device token supplied by an iOS system call to register for remote
60876087-- notifications. Encode this field as web-safe base64.
6088−ptiiAPNSDeviceToken :: Lens' PushTokenIdIos (Maybe Word8)
6088+ptiiAPNSDeviceToken :: Lens' PushTokenIdIos (Maybe ByteString)
60896089ptiiAPNSDeviceToken
60906090 = lens _ptiiAPNSDeviceToken
60916091 (\ s a -> s{_ptiiAPNSDeviceToken = a})
6092− . mapping _Coerce
6092+ . mapping _Base64
60936093
60946094-- | Indicates whether this token should be used for the production or
60956095-- sandbox APNS server.
@@ -6664,7 +6664,7 @@ data QuestMilestone = QuestMilestone'
66646664 { _qmState :: !(Maybe Text)
66656665 , _qmKind :: !Text
66666666 , _qmId :: !(Maybe Text)
6667− , _qmCompletionRewardData :: !(Maybe (Textual Word8))
6667+ , _qmCompletionRewardData :: !(Maybe Base64)
66686668 , _qmCriteria :: !(Maybe [QuestCriterion])
66696669 } deriving (Eq,Show,Data,Typeable,Generic)
66706670
@@ -6713,11 +6713,11 @@ qmId = lens _qmId (\ s a -> s{_qmId = a})
67136713-- | The completion reward data of the milestone, represented as a
67146714-- Base64-encoded string. This is a developer-specified binary blob with
67156715-- size between 0 and 2 KB before encoding.
6716−qmCompletionRewardData :: Lens' QuestMilestone (Maybe Word8)
6716+qmCompletionRewardData :: Lens' QuestMilestone (Maybe ByteString)
67176717qmCompletionRewardData
67186718 = lens _qmCompletionRewardData
67196719 (\ s a -> s{_qmCompletionRewardData = a})
6720− . mapping _Coerce
6720+ . mapping _Base64
67216721
67226722-- | The criteria of the milestone.
67236723qmCriteria :: Lens' QuestMilestone [QuestCriterion]
@@ -8233,7 +8233,7 @@ instance ToJSON PlayerEventListResponse where
82338233-- /See:/ 'turnBasedMatchDataRequest' smart constructor.
82348234data TurnBasedMatchDataRequest = TurnBasedMatchDataRequest'
82358235 { _tbmdrKind :: !Text
8236− , _tbmdrData :: !(Maybe (Textual Word8))
8236+ , _tbmdrData :: !(Maybe Base64)
82378237 } deriving (Eq,Show,Data,Typeable,Generic)
82388238
82398239-- | Creates a value of 'TurnBasedMatchDataRequest' with the minimum fields required to make a request.
@@ -8259,10 +8259,10 @@ tbmdrKind
82598259
82608260-- | The byte representation of the data (limited to 128 kB), as a
82618261-- Base64-encoded string with the URL_SAFE encoding option.
8262−tbmdrData :: Lens' TurnBasedMatchDataRequest (Maybe Word8)
8262+tbmdrData :: Lens' TurnBasedMatchDataRequest (Maybe ByteString)
82638263tbmdrData
82648264 = lens _tbmdrData (\ s a -> s{_tbmdrData = a}) .
8265− mapping _Coerce
8265+ mapping _Base64
82668266
82678267instance FromJSON TurnBasedMatchDataRequest where
82688268 parseJSON
gogol-genomics/gen/Network/Google/Genomics/Types/Product.hs+3−3
@@ -5081,7 +5081,7 @@ instance ToJSON CigarUnit where
50815081--
50825082-- /See:/ 'policy' smart constructor.
50835083data Policy = Policy'
5084− { _polEtag :: !(Maybe (Textual Word8))
5084+ { _polEtag :: !(Maybe Base64)
50855085 , _polVersion :: !(Maybe (Textual Int32))
50865086 , _polBindings :: !(Maybe [Binding])
50875087 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -5113,10 +5113,10 @@ policy =
51135113-- \`setIamPolicy\` to ensure that their change will be applied to the same
51145114-- version of the policy. If no \`etag\` is provided in the call to
51155115-- \`setIamPolicy\`, then the existing policy is overwritten blindly.
5116−polEtag :: Lens' Policy (Maybe Word8)
5116+polEtag :: Lens' Policy (Maybe ByteString)
51175117polEtag
51185118 = lens _polEtag (\ s a -> s{_polEtag = a}) .
5119− mapping _Coerce
5119+ mapping _Base64
51205120
51215121-- | Version of the \`Policy\`. The default version is 0.
51225122polVersion :: Lens' Policy (Maybe Int32)
gogol-gmail/gen/Network/Google/Gmail/Types/Product.hs+6−6
@@ -731,7 +731,7 @@ instance ToJSON HistoryMessageDeleted where
731731-- /See:/ 'messagePartBody' smart constructor.
732732data MessagePartBody = MessagePartBody'
733733 { _mpbSize :: !(Maybe (Textual Int32))
734− , _mpbData :: !(Maybe (Textual Word8))
734+ , _mpbData :: !(Maybe Base64)
735735 , _mpbAttachmentId :: !(Maybe Text)
736736 } deriving (Eq,Show,Data,Typeable,Generic)
737737
@@ -763,10 +763,10 @@ mpbSize
763763-- types that have no message body or when the body data is sent as a
764764-- separate attachment. An attachment ID is present if the body data is
765765-- contained in a separate attachment.
766−mpbData :: Lens' MessagePartBody (Maybe Word8)
766+mpbData :: Lens' MessagePartBody (Maybe ByteString)
767767mpbData
768768 = lens _mpbData (\ s a -> s{_mpbData = a}) .
769− mapping _Coerce
769+ mapping _Base64
770770
771771-- | When present, contains the ID of an external attachment that can be
772772-- retrieved in a separate messages.attachments.get request. When not
@@ -1021,7 +1021,7 @@ instance ToJSON WatchRequest where
10211021--
10221022-- /See:/ 'message' smart constructor.
10231023data Message = Message'
1024− { _mRaw :: !(Maybe (Textual Word8))
1024+ { _mRaw :: !(Maybe Base64)
10251025 , _mSnippet :: !(Maybe Text)
10261026 , _mSizeEstimate :: !(Maybe (Textual Int32))
10271027 , _mPayload :: !(Maybe MessagePart)
@@ -1071,10 +1071,10 @@ message =
10711071-- | The entire email message in an RFC 2822 formatted and base64url encoded
10721072-- string. Returned in messages.get and drafts.get responses when the
10731073-- format=RAW parameter is supplied.
1074−mRaw :: Lens' Message (Maybe Word8)
1074+mRaw :: Lens' Message (Maybe ByteString)
10751075mRaw
10761076 = lens _mRaw (\ s a -> s{_mRaw = a}) .
1077− mapping _Coerce
1077+ mapping _Base64
10781078
10791079-- | A short part of the message text.
10801080mSnippet :: Lens' Message (Maybe Text)
gogol-identity-toolkit/gen/Network/Google/IdentityToolkit/Types/Product.hs+15−15
@@ -332,9 +332,9 @@ data UserInfo = UserInfo'
332332 , _uiPasswordUpdatedAt :: !(Maybe (Textual Double))
333333 , _uiVersion :: !(Maybe (Textual Int32))
334334 , _uiEmailVerified :: !(Maybe Bool)
335− , _uiSalt :: !(Maybe (Textual Word8))
335+ , _uiSalt :: !(Maybe Base64)
336336 , _uiDisplayName :: !(Maybe Text)
337− , _uiPasswordHash :: !(Maybe (Textual Word8))
337+ , _uiPasswordHash :: !(Maybe Base64)
338338 , _uiLocalId :: !(Maybe Text)
339339 } deriving (Eq,Show,Data,Typeable,Generic)
340340
@@ -431,10 +431,10 @@ uiEmailVerified
431431 (\ s a -> s{_uiEmailVerified = a})
432432
433433-- | The user\'s password salt.
434−uiSalt :: Lens' UserInfo (Maybe Word8)
434+uiSalt :: Lens' UserInfo (Maybe ByteString)
435435uiSalt
436436 = lens _uiSalt (\ s a -> s{_uiSalt = a}) .
437− mapping _Coerce
437+ mapping _Base64
438438
439439-- | The name of the user.
440440uiDisplayName :: Lens' UserInfo (Maybe Text)
@@ -443,11 +443,11 @@ uiDisplayName
443443 (\ s a -> s{_uiDisplayName = a})
444444
445445-- | The user\'s hashed password.
446−uiPasswordHash :: Lens' UserInfo (Maybe Word8)
446+uiPasswordHash :: Lens' UserInfo (Maybe ByteString)
447447uiPasswordHash
448448 = lens _uiPasswordHash
449449 (\ s a -> s{_uiPasswordHash = a})
450− . mapping _Coerce
450+ . mapping _Base64
451451
452452-- | The local ID of the user.
453453uiLocalId :: Lens' UserInfo (Maybe Text)
@@ -2397,9 +2397,9 @@ data IdentitytoolkitRelyingPartyUploadAccountRequest = IdentitytoolkitRelyingPar
23972397 { _irpuarUsers :: !(Maybe [UserInfo])
23982398 , _irpuarMemoryCost :: !(Maybe (Textual Int32))
23992399 , _irpuarDelegatedProjectNumber :: !(Maybe (Textual Int64))
2400− , _irpuarSaltSeparator :: !(Maybe (Textual Word8))
2400+ , _irpuarSaltSeparator :: !(Maybe Base64)
24012401 , _irpuarHashAlgorithm :: !(Maybe Text)
2402− , _irpuarSignerKey :: !(Maybe (Textual Word8))
2402+ , _irpuarSignerKey :: !(Maybe Base64)
24032403 , _irpuarRounds :: !(Maybe (Textual Int32))
24042404 } deriving (Eq,Show,Data,Typeable,Generic)
24052405
@@ -2456,11 +2456,11 @@ irpuarDelegatedProjectNumber
24562456 . mapping _Coerce
24572457
24582458-- | The salt separator.
2459−irpuarSaltSeparator :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Word8)
2459+irpuarSaltSeparator :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe ByteString)
24602460irpuarSaltSeparator
24612461 = lens _irpuarSaltSeparator
24622462 (\ s a -> s{_irpuarSaltSeparator = a})
2463− . mapping _Coerce
2463+ . mapping _Base64
24642464
24652465-- | The password hash algorithm.
24662466irpuarHashAlgorithm :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Text)
@@ -2469,11 +2469,11 @@ irpuarHashAlgorithm
24692469 (\ s a -> s{_irpuarHashAlgorithm = a})
24702470
24712471-- | The key for to hash the password.
2472−irpuarSignerKey :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Word8)
2472+irpuarSignerKey :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe ByteString)
24732473irpuarSignerKey
24742474 = lens _irpuarSignerKey
24752475 (\ s a -> s{_irpuarSignerKey = a})
2476− . mapping _Coerce
2476+ . mapping _Base64
24772477
24782478-- | Rounds for hash calculation. Used by scrypt and similar algorithms.
24792479irpuarRounds :: Lens' IdentitytoolkitRelyingPartyUploadAccountRequest (Maybe Int32)
@@ -3177,7 +3177,7 @@ data SetAccountInfoResponse = SetAccountInfoResponse'
31773177 , _sairProviderUserInfo :: !(Maybe [SetAccountInfoResponseProviderUserInfoItem])
31783178 , _sairExpiresIn :: !(Maybe (Textual Int64))
31793179 , _sairDisplayName :: !(Maybe Text)
3180− , _sairPasswordHash :: !(Maybe (Textual Word8))
3180+ , _sairPasswordHash :: !(Maybe Base64)
31813181 , _sairLocalId :: !(Maybe Text)
31823182 , _sairNewEmail :: !(Maybe Text)
31833183 , _sairIdToken :: !(Maybe Text)
@@ -3268,11 +3268,11 @@ sairDisplayName
32683268 (\ s a -> s{_sairDisplayName = a})
32693269
32703270-- | The user\'s hashed password.
3271−sairPasswordHash :: Lens' SetAccountInfoResponse (Maybe Word8)
3271+sairPasswordHash :: Lens' SetAccountInfoResponse (Maybe ByteString)
32723272sairPasswordHash
32733273 = lens _sairPasswordHash
32743274 (\ s a -> s{_sairPasswordHash = a})
3275− . mapping _Coerce
3275+ . mapping _Base64
32763276
32773277-- | The local ID of the user.
32783278sairLocalId :: Lens' SetAccountInfoResponse (Maybe Text)
gogol-kgsearch/gen/Network/Google/KnowledgeGraphSearch/Types/Product.hs+15−15
@@ -95,7 +95,7 @@ instance ToJSON Empty where
9595-- /See:/ 'serviceAccountKey' smart constructor.
9696data ServiceAccountKey = ServiceAccountKey'
9797 { _sakValidAfterTime :: !(Maybe Text)
98− , _sakPrivateKeyData :: !(Maybe (Textual Word8))
98+ , _sakPrivateKeyData :: !(Maybe Base64)
9999 , _sakName :: !(Maybe Text)
100100 , _sakPrivateKeyType :: !(Maybe Text)
101101 , _sakValidBeforeTime :: !(Maybe Text)
@@ -132,11 +132,11 @@ sakValidAfterTime
132132 (\ s a -> s{_sakValidAfterTime = a})
133133
134134-- | The key data.
135−sakPrivateKeyData :: Lens' ServiceAccountKey (Maybe Word8)
135+sakPrivateKeyData :: Lens' ServiceAccountKey (Maybe ByteString)
136136sakPrivateKeyData
137137 = lens _sakPrivateKeyData
138138 (\ s a -> s{_sakPrivateKeyData = a})
139− . mapping _Coerce
139+ . mapping _Base64
140140
141141-- | The resource name of the service account key in the format
142142-- \"projects\/{project}\/serviceAccounts\/{email}\/keys\/{key}\".
@@ -369,7 +369,7 @@ instance ToJSON SetIAMPolicyRequest where
369369--
370370-- /See:/ 'signBlobRequest' smart constructor.
371371newtype SignBlobRequest = SignBlobRequest'
372− { _sbrBytesToSign :: Maybe (Textual Word8)
372+ { _sbrBytesToSign :: Maybe Base64
373373 } deriving (Eq,Show,Data,Typeable,Generic)
374374
375375-- | Creates a value of 'SignBlobRequest' with the minimum fields required to make a request.
@@ -385,11 +385,11 @@ signBlobRequest =
385385 }
386386
387387-- | The bytes to sign
388−sbrBytesToSign :: Lens' SignBlobRequest (Maybe Word8)
388+sbrBytesToSign :: Lens' SignBlobRequest (Maybe ByteString)
389389sbrBytesToSign
390390 = lens _sbrBytesToSign
391391 (\ s a -> s{_sbrBytesToSign = a})
392− . mapping _Coerce
392+ . mapping _Base64
393393
394394instance FromJSON SignBlobRequest where
395395 parseJSON
@@ -494,7 +494,7 @@ instance ToJSON DataAccessOptions where
494494-- /See:/ 'serviceAccount' smart constructor.
495495data ServiceAccount = ServiceAccount'
496496 { _saEmail :: !(Maybe Text)
497− , _saEtag :: !(Maybe (Textual Word8))
497+ , _saEtag :: !(Maybe Base64)
498498 , _saUniqueId :: !(Maybe Text)
499499 , _saName :: !(Maybe Text)
500500 , _saDisplayName :: !(Maybe Text)
@@ -537,10 +537,10 @@ saEmail :: Lens' ServiceAccount (Maybe Text)
537537saEmail = lens _saEmail (\ s a -> s{_saEmail = a})
538538
539539-- | Used to perform a consistent read-modify-write.
540−saEtag :: Lens' ServiceAccount (Maybe Word8)
540+saEtag :: Lens' ServiceAccount (Maybe ByteString)
541541saEtag
542542 = lens _saEtag (\ s a -> s{_saEtag = a}) .
543− mapping _Coerce
543+ mapping _Base64
544544
545545-- | \'OutputOnly unique and stable id of the service account.
546546saUniqueId :: Lens' ServiceAccount (Maybe Text)
@@ -697,7 +697,7 @@ instance ToJSON TestIAMPermissionsResponse where
697697--
698698-- /See:/ 'policy' smart constructor.
699699data Policy = Policy'
700− { _pEtag :: !(Maybe (Textual Word8))
700+ { _pEtag :: !(Maybe Base64)
701701 , _pRules :: !(Maybe [Rule])
702702 , _pVersion :: !(Maybe (Textual Int32))
703703 , _pBindings :: !(Maybe [Binding])
@@ -733,10 +733,10 @@ policy =
733733-- \`setIamPolicy\` to ensure that their change will be applied to the same
734734-- version of the policy. If no \`etag\` is provided in the call to
735735-- \`setIamPolicy\`, then the existing policy is overwritten blindly.
736−pEtag :: Lens' Policy (Maybe Word8)
736+pEtag :: Lens' Policy (Maybe ByteString)
737737pEtag
738738 = lens _pEtag (\ s a -> s{_pEtag = a}) .
739− mapping _Coerce
739+ mapping _Base64
740740
741741pRules :: Lens' Policy [Rule]
742742pRules
@@ -864,7 +864,7 @@ instance ToJSON Condition where
864864--
865865-- /See:/ 'signBlobResponse' smart constructor.
866866data SignBlobResponse = SignBlobResponse'
867− { _sbrSignature :: !(Maybe (Textual Word8))
867+ { _sbrSignature :: !(Maybe Base64)
868868 , _sbrKeyId :: !(Maybe Text)
869869 } deriving (Eq,Show,Data,Typeable,Generic)
870870
@@ -884,10 +884,10 @@ signBlobResponse =
884884 }
885885
886886-- | The signed blob.
887−sbrSignature :: Lens' SignBlobResponse (Maybe Word8)
887+sbrSignature :: Lens' SignBlobResponse (Maybe ByteString)
888888sbrSignature
889889 = lens _sbrSignature (\ s a -> s{_sbrSignature = a})
890− . mapping _Coerce
890+ . mapping _Base64
891891
892892-- | The id of the key used to sign the blob.
893893sbrKeyId :: Lens' SignBlobResponse (Maybe Text)
gogol-maps-engine/gen/Network/Google/MapsEngine/Types/Product.hs+21−21
@@ -333,7 +333,7 @@ instance ToJSON PermissionsBatchDeleteRequest where
333333--
334334-- /See:/ 'rasterCollectionsListResponse' smart constructor.
335335data RasterCollectionsListResponse = RasterCollectionsListResponse'
336− { _rclrNextPageToken :: !(Maybe (Textual Word8))
336+ { _rclrNextPageToken :: !(Maybe Base64)
337337 , _rclrRasterCollections :: !(Maybe [RasterCollection])
338338 } deriving (Eq,Show,Data,Typeable,Generic)
339339
@@ -353,11 +353,11 @@ rasterCollectionsListResponse =
353353 }
354354
355355-- | Next page token.
356−rclrNextPageToken :: Lens' RasterCollectionsListResponse (Maybe Word8)
356+rclrNextPageToken :: Lens' RasterCollectionsListResponse (Maybe ByteString)
357357rclrNextPageToken
358358 = lens _rclrNextPageToken
359359 (\ s a -> s{_rclrNextPageToken = a})
360− . mapping _Coerce
360+ . mapping _Base64
361361
362362-- | Resources returned.
363363rclrRasterCollections :: Lens' RasterCollectionsListResponse [RasterCollection]
@@ -2258,7 +2258,7 @@ instance ToJSON AcquisitionTime where
22582258--
22592259-- /See:/ 'tablesListResponse' smart constructor.
22602260data TablesListResponse = TablesListResponse'
2261− { _tlrNextPageToken :: !(Maybe (Textual Word8))
2261+ { _tlrNextPageToken :: !(Maybe Base64)
22622262 , _tlrTables :: !(Maybe [Table])
22632263 } deriving (Eq,Show,Data,Typeable,Generic)
22642264
@@ -2278,11 +2278,11 @@ tablesListResponse =
22782278 }
22792279
22802280-- | Next page token.
2281−tlrNextPageToken :: Lens' TablesListResponse (Maybe Word8)
2281+tlrNextPageToken :: Lens' TablesListResponse (Maybe ByteString)
22822282tlrNextPageToken
22832283 = lens _tlrNextPageToken
22842284 (\ s a -> s{_tlrNextPageToken = a})
2285− . mapping _Coerce
2285+ . mapping _Base64
22862286
22872287-- | Resources returned.
22882288tlrTables :: Lens' TablesListResponse [Table]
@@ -2990,7 +2990,7 @@ instance ToJSON ScalingFunction where
29902990--
29912991-- /See:/ 'assetsListResponse' smart constructor.
29922992data AssetsListResponse = AssetsListResponse'
2993− { _alrNextPageToken :: !(Maybe (Textual Word8))
2993+ { _alrNextPageToken :: !(Maybe Base64)
29942994 , _alrAssets :: !(Maybe [Asset])
29952995 } deriving (Eq,Show,Data,Typeable,Generic)
29962996
@@ -3010,11 +3010,11 @@ assetsListResponse =
30103010 }
30113011
30123012-- | Next page token.
3013−alrNextPageToken :: Lens' AssetsListResponse (Maybe Word8)
3013+alrNextPageToken :: Lens' AssetsListResponse (Maybe ByteString)
30143014alrNextPageToken
30153015 = lens _alrNextPageToken
30163016 (\ s a -> s{_alrNextPageToken = a})
3017− . mapping _Coerce
3017+ . mapping _Base64
30183018
30193019-- | Assets returned.
30203020alrAssets :: Lens' AssetsListResponse [Asset]
@@ -4805,7 +4805,7 @@ instance ToJSON GeoJSONLineString where
48054805-- /See:/ 'publishedMapsListResponse' smart constructor.
48064806data PublishedMapsListResponse = PublishedMapsListResponse'
48074807 { _pmlrMaps :: !(Maybe [PublishedMap])
4808− , _pmlrNextPageToken :: !(Maybe (Textual Word8))
4808+ , _pmlrNextPageToken :: !(Maybe Base64)
48094809 } deriving (Eq,Show,Data,Typeable,Generic)
48104810
48114811-- | Creates a value of 'PublishedMapsListResponse' with the minimum fields required to make a request.
@@ -4831,11 +4831,11 @@ pmlrMaps
48314831 . _Coerce
48324832
48334833-- | Next page token.
4834−pmlrNextPageToken :: Lens' PublishedMapsListResponse (Maybe Word8)
4834+pmlrNextPageToken :: Lens' PublishedMapsListResponse (Maybe ByteString)
48354835pmlrNextPageToken
48364836 = lens _pmlrNextPageToken
48374837 (\ s a -> s{_pmlrNextPageToken = a})
4838− . mapping _Coerce
4838+ . mapping _Base64
48394839
48404840instance FromJSON PublishedMapsListResponse where
48414841 parseJSON
@@ -4857,7 +4857,7 @@ instance ToJSON PublishedMapsListResponse where
48574857-- /See:/ 'mapsListResponse' smart constructor.
48584858data MapsListResponse = MapsListResponse'
48594859 { _mlrMaps :: !(Maybe [Map])
4860− , _mlrNextPageToken :: !(Maybe (Textual Word8))
4860+ , _mlrNextPageToken :: !(Maybe Base64)
48614861 } deriving (Eq,Show,Data,Typeable,Generic)
48624862
48634863-- | Creates a value of 'MapsListResponse' with the minimum fields required to make a request.
@@ -4882,11 +4882,11 @@ mlrMaps
48824882 . _Coerce
48834883
48844884-- | Next page token.
4885−mlrNextPageToken :: Lens' MapsListResponse (Maybe Word8)
4885+mlrNextPageToken :: Lens' MapsListResponse (Maybe ByteString)
48864886mlrNextPageToken
48874887 = lens _mlrNextPageToken
48884888 (\ s a -> s{_mlrNextPageToken = a})
4889− . mapping _Coerce
4889+ . mapping _Base64
48904890
48914891instance FromJSON MapsListResponse where
48924892 parseJSON
@@ -5062,7 +5062,7 @@ instance ToJSON GeoJSONPoint where
50625062--
50635063-- /See:/ 'layersListResponse' smart constructor.
50645064data LayersListResponse = LayersListResponse'
5065− { _llrNextPageToken :: !(Maybe (Textual Word8))
5065+ { _llrNextPageToken :: !(Maybe Base64)
50665066 , _llrLayers :: !(Maybe [Layer])
50675067 } deriving (Eq,Show,Data,Typeable,Generic)
50685068
@@ -5082,11 +5082,11 @@ layersListResponse =
50825082 }
50835083
50845084-- | Next page token.
5085−llrNextPageToken :: Lens' LayersListResponse (Maybe Word8)
5085+llrNextPageToken :: Lens' LayersListResponse (Maybe ByteString)
50865086llrNextPageToken
50875087 = lens _llrNextPageToken
50885088 (\ s a -> s{_llrNextPageToken = a})
5089− . mapping _Coerce
5089+ . mapping _Base64
50905090
50915091-- | Resources returned.
50925092llrLayers :: Lens' LayersListResponse [Layer]
@@ -5272,7 +5272,7 @@ instance ToJSON LineStyle where
52725272--
52735273-- /See:/ 'publishedLayersListResponse' smart constructor.
52745274data PublishedLayersListResponse = PublishedLayersListResponse'
5275− { _pllrNextPageToken :: !(Maybe (Textual Word8))
5275+ { _pllrNextPageToken :: !(Maybe Base64)
52765276 , _pllrLayers :: !(Maybe [PublishedLayer])
52775277 } deriving (Eq,Show,Data,Typeable,Generic)
52785278
@@ -5292,11 +5292,11 @@ publishedLayersListResponse =
52925292 }
52935293
52945294-- | Next page token.
5295−pllrNextPageToken :: Lens' PublishedLayersListResponse (Maybe Word8)
5295+pllrNextPageToken :: Lens' PublishedLayersListResponse (Maybe ByteString)
52965296pllrNextPageToken
52975297 = lens _pllrNextPageToken
52985298 (\ s a -> s{_pllrNextPageToken = a})
5299− . mapping _Coerce
5299+ . mapping _Base64
53005300
53015301-- | Resources returned.
53025302pllrLayers :: Lens' PublishedLayersListResponse [PublishedLayer]
gogol-pagespeed/gen/Network/Google/PageSpeed/Types/Product.hs+3−3
@@ -163,7 +163,7 @@ instance ToJSON
163163-- /See:/ 'pagespeedAPIImageV2' smart constructor.
164164data PagespeedAPIImageV2 = PagespeedAPIImageV2'
165165 { _paivHeight :: !(Maybe (Textual Int32))
166− , _paivData :: !(Maybe (Textual Word8))
166+ , _paivData :: !(Maybe Base64)
167167 , _paivMimeType :: !(Maybe Text)
168168 , _paivWidth :: !(Maybe (Textual Int32))
169169 , _paivPageRect :: !(Maybe PagespeedAPIImageV2Page_rect)
@@ -204,10 +204,10 @@ paivHeight
204204 mapping _Coerce
205205
206206-- | Image data base64 encoded.
207−paivData :: Lens' PagespeedAPIImageV2 (Maybe Word8)
207+paivData :: Lens' PagespeedAPIImageV2 (Maybe ByteString)
208208paivData
209209 = lens _paivData (\ s a -> s{_paivData = a}) .
210− mapping _Coerce
210+ mapping _Base64
211211
212212-- | Mime type of image data (e.g. \"image\/jpeg\").
213213paivMimeType :: Lens' PagespeedAPIImageV2 (Maybe Text)
gogol-proximitybeacon/gen/Network/Google/ProximityBeacon/Types/Product.hs+12−12
@@ -97,7 +97,7 @@ instance ToJSON LatLng where
9797--
9898-- /See:/ 'attachmentInfo' smart constructor.
9999data AttachmentInfo = AttachmentInfo'
100− { _aiData :: !(Maybe (Textual Word8))
100+ { _aiData :: !(Maybe Base64)
101101 , _aiNamespacedType :: !(Maybe Text)
102102 } deriving (Eq,Show,Data,Typeable,Generic)
103103
@@ -117,10 +117,10 @@ attachmentInfo =
117117 }
118118
119119-- | An opaque data container for client-provided data.
120−aiData :: Lens' AttachmentInfo (Maybe Word8)
120+aiData :: Lens' AttachmentInfo (Maybe ByteString)
121121aiData
122122 = lens _aiData (\ s a -> s{_aiData = a}) .
123− mapping _Coerce
123+ mapping _Base64
124124
125125-- | Specifies what kind of attachment this is. Tells a client how to
126126-- interpret the \`data\` field. Format is namespace\/type, for example
@@ -820,7 +820,7 @@ instance ToJSON BeaconInfo where
820820--
821821-- /See:/ 'observation' smart constructor.
822822data Observation = Observation'
823− { _oTelemetry :: !(Maybe (Textual Word8))
823+ { _oTelemetry :: !(Maybe Base64)
824824 , _oTimestampMs :: !(Maybe Text)
825825 , _oAdvertisedId :: !(Maybe AdvertisedId)
826826 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -846,10 +846,10 @@ observation =
846846-- | The array of telemetry bytes received from the beacon. The server is
847847-- responsible for parsing it. This field may frequently be empty, as with
848848-- a beacon that transmits telemetry only occasionally.
849−oTelemetry :: Lens' Observation (Maybe Word8)
849+oTelemetry :: Lens' Observation (Maybe ByteString)
850850oTelemetry
851851 = lens _oTelemetry (\ s a -> s{_oTelemetry = a}) .
852− mapping _Coerce
852+ mapping _Base64
853853
854854-- | Time when the beacon was observed. Being sourced from a mobile device,
855855-- this time may be suspect.
@@ -883,7 +883,7 @@ instance ToJSON Observation where
883883--
884884-- /See:/ 'beaconAttachment' smart constructor.
885885data BeaconAttachment = BeaconAttachment'
886− { _baData :: !(Maybe (Textual Word8))
886+ { _baData :: !(Maybe Base64)
887887 , _baAttachmentName :: !(Maybe Text)
888888 , _baNamespacedType :: !(Maybe Text)
889889 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -910,10 +910,10 @@ beaconAttachment =
910910-- [base64](http:\/\/tools.ietf.org\/html\/rfc4648#section-4) encoded in
911911-- HTTP requests, and will be so encoded (with padding) in responses.
912912-- Required.
913−baData :: Lens' BeaconAttachment (Maybe Word8)
913+baData :: Lens' BeaconAttachment (Maybe ByteString)
914914baData
915915 = lens _baData (\ s a -> s{_baData = a}) .
916− mapping _Coerce
916+ mapping _Base64
917917
918918-- | Resource name of this attachment. Attachment names have the format:
919919-- beacons\/beacon_id\/attachments\/attachment_id. Leave this empty on
@@ -1006,7 +1006,7 @@ instance ToJSON ListDiagnosticsResponse where
10061006--
10071007-- /See:/ 'advertisedId' smart constructor.
10081008data AdvertisedId = AdvertisedId'
1009− { _aiId :: !(Maybe (Textual Word8))
1009+ { _aiId :: !(Maybe Base64)
10101010 , _aiType :: !(Maybe Text)
10111011 } deriving (Eq,Show,Data,Typeable,Generic)
10121012
@@ -1030,10 +1030,10 @@ advertisedId =
10301030-- HTTP requests, and will be so encoded (with padding) in responses. The
10311031-- base64 encoding should be of the binary byte-stream and not any textual
10321032-- (such as hex) representation thereof. Required.
1033−aiId :: Lens' AdvertisedId (Maybe Word8)
1033+aiId :: Lens' AdvertisedId (Maybe ByteString)
10341034aiId
10351035 = lens _aiId (\ s a -> s{_aiId = a}) .
1036− mapping _Coerce
1036+ mapping _Base64
10371037
10381038-- | Specifies the identifier type. Required.
10391039aiType :: Lens' AdvertisedId (Maybe Text)
gogol-pubsub/gen/Network/Google/PubSub/Types/Product.hs+6−6
@@ -254,7 +254,7 @@ instance ToJSON Empty where
254254--
255255-- /See:/ 'pubsubMessage' smart constructor.
256256data PubsubMessage = PubsubMessage'
257− { _pmData :: !(Maybe (Textual Word8))
257+ { _pmData :: !(Maybe Base64)
258258 , _pmPublishTime :: !(Maybe Text)
259259 , _pmAttributes :: !(Maybe PubsubMessageAttributes)
260260 , _pmMessageId :: !(Maybe Text)
@@ -283,10 +283,10 @@ pubsubMessage =
283283
284284-- | The message payload. For JSON requests, the value of this field must be
285285-- base64-encoded.
286−pmData :: Lens' PubsubMessage (Maybe Word8)
286+pmData :: Lens' PubsubMessage (Maybe ByteString)
287287pmData
288288 = lens _pmData (\ s a -> s{_pmData = a}) .
289− mapping _Coerce
289+ mapping _Base64
290290
291291-- | The time at which the message was published, populated by the server
292292-- when it receives the \`Publish\` call. It must not be populated by the
@@ -816,7 +816,7 @@ instance ToJSON TestIAMPermissionsResponse where
816816--
817817-- /See:/ 'policy' smart constructor.
818818data Policy = Policy'
819− { _pEtag :: !(Maybe (Textual Word8))
819+ { _pEtag :: !(Maybe Base64)
820820 , _pVersion :: !(Maybe (Textual Int32))
821821 , _pBindings :: !(Maybe [Binding])
822822 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -848,10 +848,10 @@ policy =
848848-- \`setIamPolicy\` to ensure that their change will be applied to the same
849849-- version of the policy. If no \`etag\` is provided in the call to
850850-- \`setIamPolicy\`, then the existing policy is overwritten blindly.
851−pEtag :: Lens' Policy (Maybe Word8)
851+pEtag :: Lens' Policy (Maybe ByteString)
852852pEtag
853853 = lens _pEtag (\ s a -> s{_pEtag = a}) .
854− mapping _Coerce
854+ mapping _Base64
855855
856856-- | Version of the \`Policy\`. The default version is 0.
857857pVersion :: Lens' Policy (Maybe Int32)
gogol-replicapool/gen/Network/Google/ReplicaPool/Types/Product.hs+6−6
@@ -606,7 +606,7 @@ data InstanceGroupManager = InstanceGroupManager'
606606 { _igmCurrentSize :: !(Maybe (Textual Int32))
607607 , _igmGroup :: !(Maybe Text)
608608 , _igmKind :: !Text
609− , _igmFingerprint :: !(Maybe (Textual Word8))
609+ , _igmFingerprint :: !(Maybe Base64)
610610 , _igmBaseInstanceName :: !(Maybe Text)
611611 , _igmAutoHealingPolicies :: !(Maybe [ReplicaPoolAutoHealingPolicy])
612612 , _igmInstanceTemplate :: !(Maybe Text)
@@ -694,11 +694,11 @@ igmKind = lens _igmKind (\ s a -> s{_igmKind = a})
694694-- | [Output only] Fingerprint of the instance group manager. This field is
695695-- used for optimistic locking. An up-to-date fingerprint must be provided
696696-- in order to modify the Instance Group Manager resource.
697−igmFingerprint :: Lens' InstanceGroupManager (Maybe Word8)
697+igmFingerprint :: Lens' InstanceGroupManager (Maybe ByteString)
698698igmFingerprint
699699 = lens _igmFingerprint
700700 (\ s a -> s{_igmFingerprint = a})
701− . mapping _Coerce
701+ . mapping _Base64
702702
703703-- | The base instance name to use for instances in this group. The value
704704-- must be a valid RFC1035 name. Supported characters are lowercase
@@ -992,7 +992,7 @@ instance ToJSON OperationError where
992992--
993993-- /See:/ 'instanceGroupManagersSetTargetPoolsRequest' smart constructor.
994994data InstanceGroupManagersSetTargetPoolsRequest = InstanceGroupManagersSetTargetPoolsRequest'
995− { _igmstprFingerprint :: !(Maybe (Textual Word8))
995+ { _igmstprFingerprint :: !(Maybe Base64)
996996 , _igmstprTargetPools :: !(Maybe [Text])
997997 } deriving (Eq,Show,Data,Typeable,Generic)
998998
@@ -1014,11 +1014,11 @@ instanceGroupManagersSetTargetPoolsRequest =
10141014-- | The current fingerprint of the Instance Group Manager resource. If this
10151015-- does not match the server-side fingerprint of the resource, then the
10161016-- request will be rejected.
1017−igmstprFingerprint :: Lens' InstanceGroupManagersSetTargetPoolsRequest (Maybe Word8)
1017+igmstprFingerprint :: Lens' InstanceGroupManagersSetTargetPoolsRequest (Maybe ByteString)
10181018igmstprFingerprint
10191019 = lens _igmstprFingerprint
10201020 (\ s a -> s{_igmstprFingerprint = a})
1021− . mapping _Coerce
1021+ . mapping _Base64
10221022
10231023-- | A list of fully-qualified URLs to existing Target Pool resources. New
10241024-- instances in the Instance Group Manager will be added to the specified
gogol-resourcemanager/gen/Network/Google/ResourceManager/Types/Product.hs+3−3
@@ -428,7 +428,7 @@ instance ToJSON TestIAMPermissionsResponse where
428428--
429429-- /See:/ 'policy' smart constructor.
430430data Policy = Policy'
431− { _pEtag :: !(Maybe (Textual Word8))
431+ { _pEtag :: !(Maybe Base64)
432432 , _pVersion :: !(Maybe (Textual Int32))
433433 , _pBindings :: !(Maybe [Binding])
434434 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -460,10 +460,10 @@ policy =
460460-- \`setIamPolicy\` to ensure that their change will be applied to the same
461461-- version of the policy. If no \`etag\` is provided in the call to
462462-- \`setIamPolicy\`, then the existing policy is overwritten blindly.
463−pEtag :: Lens' Policy (Maybe Word8)
463+pEtag :: Lens' Policy (Maybe ByteString)
464464pEtag
465465 = lens _pEtag (\ s a -> s{_pEtag = a}) .
466− mapping _Coerce
466+ mapping _Base64
467467
468468-- | Version of the \`Policy\`. The default version is 0.
469469pVersion :: Lens' Policy (Maybe Int32)
gogol-vision/gen/Network/Google/Vision/Types/Product.hs+3−3
@@ -286,7 +286,7 @@ instance ToJSON Property where
286286--
287287-- /See:/ 'image' smart constructor.
288288data Image = Image'
289− { _iContent :: !(Maybe (Textual Word8))
289+ { _iContent :: !(Maybe Base64)
290290 , _iSource :: !(Maybe ImageSource)
291291 } deriving (Eq,Show,Data,Typeable,Generic)
292292
@@ -306,10 +306,10 @@ image =
306306 }
307307
308308-- | Image content, represented as a stream of bytes.
309−iContent :: Lens' Image (Maybe Word8)
309+iContent :: Lens' Image (Maybe ByteString)
310310iContent
311311 = lens _iContent (\ s a -> s{_iContent = a}) .
312− mapping _Coerce
312+ mapping _Base64
313313
314314-- | Google Cloud Storage image location. If both \'content\' and \'source\'
315315-- are filled for an image, \'content\' takes precedence and it will be
gogol-youtube/gen/Network/Google/YouTube/Types/Product.hs+3−3
@@ -10766,7 +10766,7 @@ data InvideoBranding = InvideoBranding'
1076610766 { _ibImageURL :: !(Maybe Text)
1076710767 , _ibTargetChannelId :: !(Maybe Text)
1076810768 , _ibTiming :: !(Maybe InvideoTiming)
10769− , _ibImageBytes :: !(Maybe (Textual Word8))
10769+ , _ibImageBytes :: !(Maybe Base64)
1077010770 , _ibPosition :: !(Maybe InvideoPosition)
1077110771 } deriving (Eq,Show,Data,Typeable,Generic)
1077210772
@@ -10806,10 +10806,10 @@ ibTargetChannelId
1080610806ibTiming :: Lens' InvideoBranding (Maybe InvideoTiming)
1080710807ibTiming = lens _ibTiming (\ s a -> s{_ibTiming = a})
1080810808
10809−ibImageBytes :: Lens' InvideoBranding (Maybe Word8)
10809+ibImageBytes :: Lens' InvideoBranding (Maybe ByteString)
1081010810ibImageBytes
1081110811 = lens _ibImageBytes (\ s a -> s{_ibImageBytes = a})
10812− . mapping _Coerce
10812+ . mapping _Base64
1081310813
1081410814ibPosition :: Lens' InvideoBranding (Maybe InvideoPosition)
1081510815ibPosition