on develop help sign in
Regenerating gogol-safebrowsing from updated service defintions
commit744a2987d54b4a7c18e1358613c79ac626a9b661 authorBrendan Hay <brendan.g.hay@gmail.com> dateSat 11 Feb 2017, 11:36 (10 years ago) parent217bef1
1 file changed+19−19
gogol-safebrowsing/gen/Network/Google/SafeBrowsing/Types/Product.hs+19−19
gogol-safebrowsing/gen/Network/Google/SafeBrowsing/Types/Product.hs+19−19
@@ -63,7 +63,7 @@ instance ToJSON ThreatEntryMetadata where
6363--
6464-- /See:/ 'checksum' smart constructor.
6565newtype Checksum = Checksum'
66− { _cSha256 :: Maybe Base64
66+ { _cSha256 :: Maybe Bytes
6767 } deriving (Eq,Show,Data,Typeable,Generic)
6868
6969-- | Creates a value of 'Checksum' with the minimum fields required to make a request.
@@ -83,7 +83,7 @@ checksum =
8383cSha256 :: Lens' Checksum (Maybe ByteString)
8484cSha256
8585 = lens _cSha256 (\ s a -> s{_cSha256 = a}) .
86− mapping _Base64
86+ mapping _Bytes
8787
8888instance FromJSON Checksum where
8989 parseJSON
@@ -273,7 +273,7 @@ instance ToJSON FetchThreatListUpdatesRequest where
273273-- /See:/ 'findFullHashesRequest' smart constructor.
274274data FindFullHashesRequest = FindFullHashesRequest'
275275 { _ffhrThreatInfo :: !(Maybe ThreatInfo)
276− , _ffhrClientStates :: !(Maybe [Base64])
276+ , _ffhrClientStates :: !(Maybe [Bytes])
277277 , _ffhrClient :: !(Maybe ClientInfo)
278278 } deriving (Eq,Show,Data,Typeable,Generic)
279279
@@ -421,7 +421,7 @@ data RiceDeltaEncoding = RiceDeltaEncoding'
421421 { _rdeFirstValue :: !(Maybe (Textual Int64))
422422 , _rdeRiceParameter :: !(Maybe (Textual Int32))
423423 , _rdeNumEntries :: !(Maybe (Textual Int32))
424− , _rdeEncodedData :: !(Maybe Base64)
424+ , _rdeEncodedData :: !(Maybe Bytes)
425425 } deriving (Eq,Show,Data,Typeable,Generic)
426426
427427-- | Creates a value of 'RiceDeltaEncoding' with the minimum fields required to make a request.
@@ -475,7 +475,7 @@ rdeEncodedData :: Lens' RiceDeltaEncoding (Maybe ByteString)
475475rdeEncodedData
476476 = lens _rdeEncodedData
477477 (\ s a -> s{_rdeEncodedData = a})
478− . mapping _Base64
478+ . mapping _Bytes
479479
480480instance FromJSON RiceDeltaEncoding where
481481 parseJSON
@@ -697,7 +697,7 @@ instance ToJSON FindThreatMatchesRequest where
697697--
698698-- /See:/ 'listUpdateRequest' smart constructor.
699699data ListUpdateRequest = ListUpdateRequest'
700− { _lurState :: !(Maybe Base64)
700+ { _lurState :: !(Maybe Bytes)
701701 , _lurThreatEntryType :: !(Maybe Text)
702702 , _lurConstraints :: !(Maybe Constraints)
703703 , _lurThreatType :: !(Maybe Text)
@@ -733,7 +733,7 @@ listUpdateRequest =
733733lurState :: Lens' ListUpdateRequest (Maybe ByteString)
734734lurState
735735 = lens _lurState (\ s a -> s{_lurState = a}) .
736− mapping _Base64
736+ mapping _Bytes
737737
738738-- | The types of entries present in the list.
739739lurThreatEntryType :: Lens' ListUpdateRequest (Maybe Text)
@@ -784,9 +784,9 @@ instance ToJSON ListUpdateRequest where
784784--
785785-- /See:/ 'threatEntry' smart constructor.
786786data ThreatEntry = ThreatEntry'
787− { _teHash :: !(Maybe Base64)
787+ { _teHash :: !(Maybe Bytes)
788788 , _teURL :: !(Maybe Text)
789− , _teDigest :: !(Maybe Base64)
789+ , _teDigest :: !(Maybe Bytes)
790790 } deriving (Eq,Show,Data,Typeable,Generic)
791791
792792-- | Creates a value of 'ThreatEntry' with the minimum fields required to make a request.
@@ -812,7 +812,7 @@ threatEntry =
812812teHash :: Lens' ThreatEntry (Maybe ByteString)
813813teHash
814814 = lens _teHash (\ s a -> s{_teHash = a}) .
815− mapping _Base64
815+ mapping _Bytes
816816
817817-- | A URL.
818818teURL :: Lens' ThreatEntry (Maybe Text)
@@ -823,7 +823,7 @@ teURL = lens _teURL (\ s a -> s{_teURL = a})
823823teDigest :: Lens' ThreatEntry (Maybe ByteString)
824824teDigest
825825 = lens _teDigest (\ s a -> s{_teDigest = a}) .
826− mapping _Base64
826+ mapping _Bytes
827827
828828instance FromJSON ThreatEntry where
829829 parseJSON
@@ -947,7 +947,7 @@ instance ToJSON ThreatMatch where
947947-- /See:/ 'rawHashes' smart constructor.
948948data RawHashes = RawHashes'
949949 { _rhPrefixSize :: !(Maybe (Textual Int32))
950− , _rhRawHashes :: !(Maybe Base64)
950+ , _rhRawHashes :: !(Maybe Bytes)
951951 } deriving (Eq,Show,Data,Typeable,Generic)
952952
953953-- | Creates a value of 'RawHashes' with the minimum fields required to make a request.
@@ -978,7 +978,7 @@ rhPrefixSize
978978rhRawHashes :: Lens' RawHashes (Maybe ByteString)
979979rhRawHashes
980980 = lens _rhRawHashes (\ s a -> s{_rhRawHashes = a}) .
981− mapping _Base64
981+ mapping _Bytes
982982
983983instance FromJSON RawHashes where
984984 parseJSON
@@ -1003,7 +1003,7 @@ data ListUpdateResponse = ListUpdateResponse'
10031003 , _lChecksum :: !(Maybe Checksum)
10041004 , _lThreatType :: !(Maybe Text)
10051005 , _lPlatformType :: !(Maybe Text)
1006− , _lNewClientState :: !(Maybe Base64)
1006+ , _lNewClientState :: !(Maybe Bytes)
10071007 , _lRemovals :: !(Maybe [ThreatEntrySet])
10081008 , _lResponseType :: !(Maybe Text)
10091009 } deriving (Eq,Show,Data,Typeable,Generic)
@@ -1080,7 +1080,7 @@ lNewClientState :: Lens' ListUpdateResponse (Maybe ByteString)
10801080lNewClientState
10811081 = lens _lNewClientState
10821082 (\ s a -> s{_lNewClientState = a})
1083− . mapping _Base64
1083+ . mapping _Bytes
10841084
10851085-- | A set of entries to remove from a local threat type\'s list. Repeated
10861086-- for the same reason as above.
@@ -1317,8 +1317,8 @@ instance ToJSON FindFullHashesResponse where
13171317--
13181318-- /See:/ 'metadataEntry' smart constructor.
13191319data MetadataEntry = MetadataEntry'
1320− { _meValue :: !(Maybe Base64)
1321− , _meKey :: !(Maybe Base64)
1320+ { _meValue :: !(Maybe Bytes)
1321+ , _meKey :: !(Maybe Bytes)
13221322 } deriving (Eq,Show,Data,Typeable,Generic)
13231323
13241324-- | Creates a value of 'MetadataEntry' with the minimum fields required to make a request.
@@ -1340,13 +1340,13 @@ metadataEntry =
13401340meValue :: Lens' MetadataEntry (Maybe ByteString)
13411341meValue
13421342 = lens _meValue (\ s a -> s{_meValue = a}) .
1343− mapping _Base64
1343+ mapping _Bytes
13441344
13451345-- | The metadata entry key.
13461346meKey :: Lens' MetadataEntry (Maybe ByteString)
13471347meKey
13481348 = lens _meKey (\ s a -> s{_meKey = a}) .
1349− mapping _Base64
1349+ mapping _Bytes
13501350
13511351instance FromJSON MetadataEntry where
13521352 parseJSON