on develop help sign in
Regenerating gogol-iam from updated service defintions
commit3738145df2e8541f94796a41b3056199a1188931 authorBrendan Hay <brendan.g.hay@gmail.com> dateSat 11 Feb 2017, 11:36 (10 years ago) parent8590ccf
1 file changed+12−12
gogol-iam/gen/Network/Google/IAM/Types/Product.hs+12−12
gogol-iam/gen/Network/Google/IAM/Types/Product.hs+12−12
@@ -93,8 +93,8 @@ instance ToJSON AuditData where
9393-- /See:/ 'serviceAccountKey' smart constructor.
9494data ServiceAccountKey = ServiceAccountKey'
9595 { _sakValidAfterTime :: !(Maybe Text)
96− , _sakPrivateKeyData :: !(Maybe Base64)
97− , _sakPublicKeyData :: !(Maybe Base64)
96+ , _sakPrivateKeyData :: !(Maybe Bytes)
97+ , _sakPublicKeyData :: !(Maybe Bytes)
9898 , _sakName :: !(Maybe Text)
9999 , _sakPrivateKeyType :: !(Maybe Text)
100100 , _sakValidBeforeTime :: !(Maybe Text)
@@ -143,7 +143,7 @@ sakPrivateKeyData :: Lens' ServiceAccountKey (Maybe ByteString)
143143sakPrivateKeyData
144144 = lens _sakPrivateKeyData
145145 (\ s a -> s{_sakPrivateKeyData = a})
146− . mapping _Base64
146+ . mapping _Bytes
147147
148148-- | The public key data. Only provided in \`GetServiceAccountKey\`
149149-- responses.
@@ -151,7 +151,7 @@ sakPublicKeyData :: Lens' ServiceAccountKey (Maybe ByteString)
151151sakPublicKeyData
152152 = lens _sakPublicKeyData
153153 (\ s a -> s{_sakPublicKeyData = a})
154− . mapping _Base64
154+ . mapping _Bytes
155155
156156-- | The resource name of the service account key in the following format
157157-- \`projects\/{project}\/serviceAccounts\/{account}\/keys\/{key}\`.
@@ -354,7 +354,7 @@ instance ToJSON BindingDelta where
354354--
355355-- /See:/ 'signBlobRequest' smart constructor.
356356newtype SignBlobRequest = SignBlobRequest'
357− { _sbrBytesToSign :: Maybe Base64
357+ { _sbrBytesToSign :: Maybe Bytes
358358 } deriving (Eq,Show,Data,Typeable,Generic)
359359
360360-- | Creates a value of 'SignBlobRequest' with the minimum fields required to make a request.
@@ -374,7 +374,7 @@ sbrBytesToSign :: Lens' SignBlobRequest (Maybe ByteString)
374374sbrBytesToSign
375375 = lens _sbrBytesToSign
376376 (\ s a -> s{_sbrBytesToSign = a})
377− . mapping _Base64
377+ . mapping _Bytes
378378
379379instance FromJSON SignBlobRequest where
380380 parseJSON
@@ -502,7 +502,7 @@ instance ToJSON Role where
502502-- /See:/ 'serviceAccount' smart constructor.
503503data ServiceAccount = ServiceAccount'
504504 { _saEmail :: !(Maybe Text)
505− , _saEtag :: !(Maybe Base64)
505+ , _saEtag :: !(Maybe Bytes)
506506 , _saUniqueId :: !(Maybe Text)
507507 , _saName :: !(Maybe Text)
508508 , _saDisplayName :: !(Maybe Text)
@@ -548,7 +548,7 @@ saEmail = lens _saEmail (\ s a -> s{_saEmail = a})
548548saEtag :: Lens' ServiceAccount (Maybe ByteString)
549549saEtag
550550 = lens _saEtag (\ s a -> s{_saEtag = a}) .
551− mapping _Base64
551+ mapping _Bytes
552552
553553-- | \'OutputOnly The unique and stable id of the service account.
554554saUniqueId :: Lens' ServiceAccount (Maybe Text)
@@ -744,7 +744,7 @@ instance ToJSON TestIAMPermissionsResponse where
744744--
745745-- /See:/ 'policy' smart constructor.
746746data Policy = Policy'
747− { _pEtag :: !(Maybe Base64)
747+ { _pEtag :: !(Maybe Bytes)
748748 , _pVersion :: !(Maybe (Textual Int32))
749749 , _pBindings :: !(Maybe [Binding])
750750 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -779,7 +779,7 @@ policy =
779779pEtag :: Lens' Policy (Maybe ByteString)
780780pEtag
781781 = lens _pEtag (\ s a -> s{_pEtag = a}) .
782− mapping _Base64
782+ mapping _Bytes
783783
784784-- | Version of the \`Policy\`. The default version is 0.
785785pVersion :: Lens' Policy (Maybe Int32)
@@ -896,7 +896,7 @@ instance ToJSON QueryGrantableRolesRequest where
896896--
897897-- /See:/ 'signBlobResponse' smart constructor.
898898data SignBlobResponse = SignBlobResponse'
899− { _sbrSignature :: !(Maybe Base64)
899+ { _sbrSignature :: !(Maybe Bytes)
900900 , _sbrKeyId :: !(Maybe Text)
901901 } deriving (Eq,Show,Data,Typeable,Generic)
902902
@@ -919,7 +919,7 @@ signBlobResponse =
919919sbrSignature :: Lens' SignBlobResponse (Maybe ByteString)
920920sbrSignature
921921 = lens _sbrSignature (\ s a -> s{_sbrSignature = a})
922− . mapping _Base64
922+ . mapping _Bytes
923923
924924-- | The id of the key used to sign the blob.
925925sbrKeyId :: Lens' SignBlobResponse (Maybe Text)