@@ -45,6 +45,7 @@ data Groups = Groups'
45 , _gMessageDisplayFont :: !(Maybe Text)
45 , _gMessageDisplayFont :: !(Maybe Text)
46 , _gCustomReplyTo :: !(Maybe Text)
46 , _gCustomReplyTo :: !(Maybe Text)
47 , _gWhoCanContactOwner :: !(Maybe Text)
47 , _gWhoCanContactOwner :: !(Maybe Text)
48+ , _gWhoCanAdd :: !(Maybe Text)
48 , _gWhoCanInvite :: !(Maybe Text)
49 , _gWhoCanInvite :: !(Maybe Text)
49 , _gWhoCanLeaveGroup :: !(Maybe Text)
50 , _gWhoCanLeaveGroup :: !(Maybe Text)
50 , _gAllowGoogleCommunication :: !(Maybe Text)
51 , _gAllowGoogleCommunication :: !(Maybe Text)
@@ -100,6 +101,8 @@ data Groups = Groups'
101-- * 'gWhoCanContactOwner'
102-- * 'gWhoCanContactOwner'
103-- * 'gWhoCanInvite'
106-- * 'gWhoCanInvite'
105-- * 'gWhoCanLeaveGroup'
108-- * 'gWhoCanLeaveGroup'
@@ -138,6 +141,7 @@ groups =
138 , _gMessageDisplayFont = Nothing
141 , _gMessageDisplayFont = Nothing
139 , _gCustomReplyTo = Nothing
142 , _gCustomReplyTo = Nothing
140 , _gWhoCanContactOwner = Nothing
143 , _gWhoCanContactOwner = Nothing
144+ , _gWhoCanAdd = Nothing
141 , _gWhoCanInvite = Nothing
145 , _gWhoCanInvite = Nothing
142 , _gWhoCanLeaveGroup = Nothing
146 , _gWhoCanLeaveGroup = Nothing
143 , _gAllowGoogleCommunication = Nothing
147 , _gAllowGoogleCommunication = Nothing
@@ -188,7 +192,7 @@ gSpamModerationLevel
188gKind :: Lens' Groups Text
192gKind :: Lens' Groups Text
189gKind = lens _gKind (\ s a -> s{_gKind = a})
193gKind = lens _gKind (\ s a -> s{_gKind = a})
191−-- | Permissions to view membership. Possbile values are:
195+-- | Permissions to view membership. Possible values are:
192-- ALL_IN_DOMAIN_CAN_VIEW ALL_MEMBERS_CAN_VIEW ALL_MANAGERS_CAN_VIEW
196-- ALL_IN_DOMAIN_CAN_VIEW ALL_MEMBERS_CAN_VIEW ALL_MANAGERS_CAN_VIEW
193gWhoCanViewMembership :: Lens' Groups (Maybe Text)
197gWhoCanViewMembership :: Lens' Groups (Maybe Text)
194gWhoCanViewMembership
198gWhoCanViewMembership
@@ -201,7 +205,7 @@ gMembersCanPostAsTheGroup
201 = lens _gMembersCanPostAsTheGroup
205 = lens _gMembersCanPostAsTheGroup
202 (\ s a -> s{_gMembersCanPostAsTheGroup = a})
206 (\ s a -> s{_gMembersCanPostAsTheGroup = a})
204−-- | Permissions to view group. Possbile values are: ANYONE_CAN_VIEW
208+-- | Permissions to view group. Possible values are: ANYONE_CAN_VIEW
205-- ALL_IN_DOMAIN_CAN_VIEW ALL_MEMBERS_CAN_VIEW ALL_MANAGERS_CAN_VIEW
209-- ALL_IN_DOMAIN_CAN_VIEW ALL_MEMBERS_CAN_VIEW ALL_MANAGERS_CAN_VIEW
206gWhoCanViewGroup :: Lens' Groups (Maybe Text)
210gWhoCanViewGroup :: Lens' Groups (Maybe Text)
207gWhoCanViewGroup
211gWhoCanViewGroup
@@ -268,7 +272,7 @@ gCustomReplyTo
268 = lens _gCustomReplyTo
272 = lens _gCustomReplyTo
269 (\ s a -> s{_gCustomReplyTo = a})
273 (\ s a -> s{_gCustomReplyTo = a})
271−-- | Permission to contact owner of the group via web UI. Possbile values
275+-- | Permission to contact owner of the group via web UI. Possible values
272-- are: ANYONE_CAN_CONTACT ALL_IN_DOMAIN_CAN_CONTACT
276-- are: ANYONE_CAN_CONTACT ALL_IN_DOMAIN_CAN_CONTACT
273-- ALL_MEMBERS_CAN_CONTACT ALL_MANAGERS_CAN_CONTACT
277-- ALL_MEMBERS_CAN_CONTACT ALL_MANAGERS_CAN_CONTACT
274gWhoCanContactOwner :: Lens' Groups (Maybe Text)
278gWhoCanContactOwner :: Lens' Groups (Maybe Text)
@@ -276,15 +280,21 @@ gWhoCanContactOwner
276 = lens _gWhoCanContactOwner
280 = lens _gWhoCanContactOwner
277 (\ s a -> s{_gWhoCanContactOwner = a})
281 (\ s a -> s{_gWhoCanContactOwner = a})
283+-- | Permissions to add members. Possible values are: ALL_MANAGERS_CAN_ADD
284+-- ALL_MEMBERS_CAN_ADD NONE_CAN_ADD
285+gWhoCanAdd :: Lens' Groups (Maybe Text)
287+ = lens _gWhoCanAdd (\ s a -> s{_gWhoCanAdd = a})
279−-- | Permissions to invite members. Possbile values are:
289+-- | Permissions to invite members. Possible values are:
280−-- ALL_MEMBERS_CAN_INVITE ALL_MANAGERS_CAN_INVITE
290+-- ALL_MEMBERS_CAN_INVITE ALL_MANAGERS_CAN_INVITE NONE_CAN_INVITE
281gWhoCanInvite :: Lens' Groups (Maybe Text)
291gWhoCanInvite :: Lens' Groups (Maybe Text)
282gWhoCanInvite
292gWhoCanInvite
283 = lens _gWhoCanInvite
293 = lens _gWhoCanInvite
284 (\ s a -> s{_gWhoCanInvite = a})
294 (\ s a -> s{_gWhoCanInvite = a})
286-- | Permission to leave the group. Possible values are:
296-- | Permission to leave the group. Possible values are:
287−-- ALL_MANAGERS_CAN_LEAVE ALL_MEMBERS_CAN_LEAVE
297+-- ALL_MANAGERS_CAN_LEAVE ALL_MEMBERS_CAN_LEAVE NONE_CAN_LEAVE
288gWhoCanLeaveGroup :: Lens' Groups (Maybe Text)
298gWhoCanLeaveGroup :: Lens' Groups (Maybe Text)
289gWhoCanLeaveGroup
299gWhoCanLeaveGroup
290 = lens _gWhoCanLeaveGroup
300 = lens _gWhoCanLeaveGroup
@@ -346,6 +356,7 @@ instance FromJSON Groups where
346 <*> (o .:? "messageDisplayFont")
356 <*> (o .:? "messageDisplayFont")
347 <*> (o .:? "customReplyTo")
357 <*> (o .:? "customReplyTo")
348 <*> (o .:? "whoCanContactOwner")
358 <*> (o .:? "whoCanContactOwner")
359+ <*> (o .:? "whoCanAdd")
349 <*> (o .:? "whoCanInvite")
360 <*> (o .:? "whoCanInvite")
350 <*> (o .:? "whoCanLeaveGroup")
361 <*> (o .:? "whoCanLeaveGroup")
351 <*> (o .:? "allowGoogleCommunication")
362 <*> (o .:? "allowGoogleCommunication")
@@ -386,6 +397,7 @@ instance ToJSON Groups where
386 ("messageDisplayFont" .=) <$> _gMessageDisplayFont,
397 ("messageDisplayFont" .=) <$> _gMessageDisplayFont,
387 ("customReplyTo" .=) <$> _gCustomReplyTo,
398 ("customReplyTo" .=) <$> _gCustomReplyTo,
388 ("whoCanContactOwner" .=) <$> _gWhoCanContactOwner,
399 ("whoCanContactOwner" .=) <$> _gWhoCanContactOwner,
400+ ("whoCanAdd" .=) <$> _gWhoCanAdd,
389 ("whoCanInvite" .=) <$> _gWhoCanInvite,
401 ("whoCanInvite" .=) <$> _gWhoCanInvite,
390 ("whoCanLeaveGroup" .=) <$> _gWhoCanLeaveGroup,
402 ("whoCanLeaveGroup" .=) <$> _gWhoCanLeaveGroup,
391 ("allowGoogleCommunication" .=) <$>
403 ("allowGoogleCommunication" .=) <$>