on develop help sign in
Regenerating gogol-games from updated service defintions
99b64c8Brendan Hay
gogol-games/gen/Network/Google/Games/Types/Product.hs+8−8
@@ -847,7 +847,7 @@ instance ToJSON TurnBasedMatch where
847-- /See:/ 'turnBasedMatchData' smart constructor.
847-- /See:/ 'turnBasedMatchData' smart constructor.
848data TurnBasedMatchData = TurnBasedMatchData'
848data TurnBasedMatchData = TurnBasedMatchData'
849 { _tbmdKind :: !Text
849 { _tbmdKind :: !Text
850− , _tbmdData :: !(Maybe Base64)
850+ , _tbmdData :: !(Maybe Bytes)
851 , _tbmdDataAvailable :: !(Maybe Bool)
851 , _tbmdDataAvailable :: !(Maybe Bool)
852 } deriving (Eq,Show,Data,Typeable,Generic)
852 } deriving (Eq,Show,Data,Typeable,Generic)
853
853
@@ -879,7 +879,7 @@ tbmdKind = lens _tbmdKind (\ s a -> s{_tbmdKind = a})
879tbmdData :: Lens' TurnBasedMatchData (Maybe ByteString)
879tbmdData :: Lens' TurnBasedMatchData (Maybe ByteString)
880tbmdData
880tbmdData
881 = lens _tbmdData (\ s a -> s{_tbmdData = a}) .
881 = lens _tbmdData (\ s a -> s{_tbmdData = a}) .
882− mapping _Base64
882+ mapping _Bytes
883
883
884-- | True if this match has data available but it wasn\'t returned in a list
884-- | True if this match has data available but it wasn\'t returned in a list
885-- response; fetching the match individually will retrieve this data.
885-- response; fetching the match individually will retrieve this data.
@@ -6064,7 +6064,7 @@ instance ToJSON TurnBasedMatchResults where
6064--
6064--
6065-- /See:/ 'pushTokenIdIos' smart constructor.
6065-- /See:/ 'pushTokenIdIos' smart constructor.
6066data PushTokenIdIos = PushTokenIdIos'
6066data PushTokenIdIos = PushTokenIdIos'
6067− { _ptiiAPNSDeviceToken :: !(Maybe Base64)
6067+ { _ptiiAPNSDeviceToken :: !(Maybe Bytes)
6068 , _ptiiAPNSEnvironment :: !(Maybe Text)
6068 , _ptiiAPNSEnvironment :: !(Maybe Text)
6069 } deriving (Eq,Show,Data,Typeable,Generic)
6069 } deriving (Eq,Show,Data,Typeable,Generic)
6070
6070
@@ -6089,7 +6089,7 @@ ptiiAPNSDeviceToken :: Lens' PushTokenIdIos (Maybe ByteString)
6089ptiiAPNSDeviceToken
6089ptiiAPNSDeviceToken
6090 = lens _ptiiAPNSDeviceToken
6090 = lens _ptiiAPNSDeviceToken
6091 (\ s a -> s{_ptiiAPNSDeviceToken = a})
6091 (\ s a -> s{_ptiiAPNSDeviceToken = a})
6092− . mapping _Base64
6092+ . mapping _Bytes
6093
6093
6094-- | Indicates whether this token should be used for the production or
6094-- | Indicates whether this token should be used for the production or
6095-- sandbox APNS server.
6095-- sandbox APNS server.
@@ -6664,7 +6664,7 @@ data QuestMilestone = QuestMilestone'
6664 { _qmState :: !(Maybe Text)
6664 { _qmState :: !(Maybe Text)
6665 , _qmKind :: !Text
6665 , _qmKind :: !Text
6666 , _qmId :: !(Maybe Text)
6666 , _qmId :: !(Maybe Text)
6667− , _qmCompletionRewardData :: !(Maybe Base64)
6667+ , _qmCompletionRewardData :: !(Maybe Bytes)
6668 , _qmCriteria :: !(Maybe [QuestCriterion])
6668 , _qmCriteria :: !(Maybe [QuestCriterion])
6669 } deriving (Eq,Show,Data,Typeable,Generic)
6669 } deriving (Eq,Show,Data,Typeable,Generic)
6670
6670
@@ -6717,7 +6717,7 @@ qmCompletionRewardData :: Lens' QuestMilestone (Maybe ByteString)
6717qmCompletionRewardData
6717qmCompletionRewardData
6718 = lens _qmCompletionRewardData
6718 = lens _qmCompletionRewardData
6719 (\ s a -> s{_qmCompletionRewardData = a})
6719 (\ s a -> s{_qmCompletionRewardData = a})
6720− . mapping _Base64
6720+ . mapping _Bytes
6721
6721
6722-- | The criteria of the milestone.
6722-- | The criteria of the milestone.
6723qmCriteria :: Lens' QuestMilestone [QuestCriterion]
6723qmCriteria :: Lens' QuestMilestone [QuestCriterion]
@@ -8233,7 +8233,7 @@ instance ToJSON PlayerEventListResponse where
8233-- /See:/ 'turnBasedMatchDataRequest' smart constructor.
8233-- /See:/ 'turnBasedMatchDataRequest' smart constructor.
8234data TurnBasedMatchDataRequest = TurnBasedMatchDataRequest'
8234data TurnBasedMatchDataRequest = TurnBasedMatchDataRequest'
8235 { _tbmdrKind :: !Text
8235 { _tbmdrKind :: !Text
8236− , _tbmdrData :: !(Maybe Base64)
8236+ , _tbmdrData :: !(Maybe Bytes)
8237 } deriving (Eq,Show,Data,Typeable,Generic)
8237 } deriving (Eq,Show,Data,Typeable,Generic)
8238
8238
8239-- | Creates a value of 'TurnBasedMatchDataRequest' with the minimum fields required to make a request.
8239-- | Creates a value of 'TurnBasedMatchDataRequest' with the minimum fields required to make a request.
@@ -8262,7 +8262,7 @@ tbmdrKind
8262tbmdrData :: Lens' TurnBasedMatchDataRequest (Maybe ByteString)
8262tbmdrData :: Lens' TurnBasedMatchDataRequest (Maybe ByteString)
8263tbmdrData
8263tbmdrData
8264 = lens _tbmdrData (\ s a -> s{_tbmdrData = a}) .
8264 = lens _tbmdrData (\ s a -> s{_tbmdrData = a}) .
8265− mapping _Base64
8265+ mapping _Bytes
8266
8266
8267instance FromJSON TurnBasedMatchDataRequest where
8267instance FromJSON TurnBasedMatchDataRequest where
8268 parseJSON
8268 parseJSON