@@ -45,6 +45,7 @@ data Groups = Groups'
4545 , _gMessageDisplayFont :: !(Maybe Text)
4646 , _gCustomReplyTo :: !(Maybe Text)
4747 , _gWhoCanContactOwner :: !(Maybe Text)
48+ , _gWhoCanAdd :: !(Maybe Text)
4849 , _gWhoCanInvite :: !(Maybe Text)
4950 , _gWhoCanLeaveGroup :: !(Maybe Text)
5051 , _gAllowGoogleCommunication :: !(Maybe Text)
@@ -100,6 +101,8 @@ data Groups = Groups'
100101--
101102-- * 'gWhoCanContactOwner'
102103--
104+-- * 'gWhoCanAdd'
105+--
103106-- * 'gWhoCanInvite'
104107--
105108-- * 'gWhoCanLeaveGroup'
@@ -138,6 +141,7 @@ groups =
138141 , _gMessageDisplayFont = Nothing
139142 , _gCustomReplyTo = Nothing
140143 , _gWhoCanContactOwner = Nothing
144+ , _gWhoCanAdd = Nothing
141145 , _gWhoCanInvite = Nothing
142146 , _gWhoCanLeaveGroup = Nothing
143147 , _gAllowGoogleCommunication = Nothing
@@ -188,7 +192,7 @@ gSpamModerationLevel
188192gKind :: Lens' Groups Text
189193gKind = lens _gKind (\ s a -> s{_gKind = a})
190194
191−-- | Permissions to view membership. Possbile values are:
195+-- | Permissions to view membership. Possible values are:
192196-- ALL_IN_DOMAIN_CAN_VIEW ALL_MEMBERS_CAN_VIEW ALL_MANAGERS_CAN_VIEW
193197gWhoCanViewMembership :: Lens' Groups (Maybe Text)
194198gWhoCanViewMembership
@@ -201,7 +205,7 @@ gMembersCanPostAsTheGroup
201205 = lens _gMembersCanPostAsTheGroup
202206 (\ s a -> s{_gMembersCanPostAsTheGroup = a})
203207
204−-- | Permissions to view group. Possbile values are: ANYONE_CAN_VIEW
208+-- | Permissions to view group. Possible values are: ANYONE_CAN_VIEW
205209-- ALL_IN_DOMAIN_CAN_VIEW ALL_MEMBERS_CAN_VIEW ALL_MANAGERS_CAN_VIEW
206210gWhoCanViewGroup :: Lens' Groups (Maybe Text)
207211gWhoCanViewGroup
@@ -268,7 +272,7 @@ gCustomReplyTo
268272 = lens _gCustomReplyTo
269273 (\ s a -> s{_gCustomReplyTo = a})
270274
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
272276-- are: ANYONE_CAN_CONTACT ALL_IN_DOMAIN_CAN_CONTACT
273277-- ALL_MEMBERS_CAN_CONTACT ALL_MANAGERS_CAN_CONTACT
274278gWhoCanContactOwner :: Lens' Groups (Maybe Text)
@@ -276,15 +280,21 @@ gWhoCanContactOwner
276280 = lens _gWhoCanContactOwner
277281 (\ s a -> s{_gWhoCanContactOwner = a})
278282
279−-- | Permissions to invite members. Possbile values are:
280−-- ALL_MEMBERS_CAN_INVITE ALL_MANAGERS_CAN_INVITE
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)
286+gWhoCanAdd
287+ = lens _gWhoCanAdd (\ s a -> s{_gWhoCanAdd = a})
288+
289+-- | Permissions to invite members. Possible values are:
290+-- ALL_MEMBERS_CAN_INVITE ALL_MANAGERS_CAN_INVITE NONE_CAN_INVITE
281291gWhoCanInvite :: Lens' Groups (Maybe Text)
282292gWhoCanInvite
283293 = lens _gWhoCanInvite
284294 (\ s a -> s{_gWhoCanInvite = a})
285295
286296-- | 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
288298gWhoCanLeaveGroup :: Lens' Groups (Maybe Text)
289299gWhoCanLeaveGroup
290300 = lens _gWhoCanLeaveGroup
@@ -346,6 +356,7 @@ instance FromJSON Groups where
346356 <*> (o .:? "messageDisplayFont")
347357 <*> (o .:? "customReplyTo")
348358 <*> (o .:? "whoCanContactOwner")
359+ <*> (o .:? "whoCanAdd")
349360 <*> (o .:? "whoCanInvite")
350361 <*> (o .:? "whoCanLeaveGroup")
351362 <*> (o .:? "allowGoogleCommunication")
@@ -386,6 +397,7 @@ instance ToJSON Groups where
386397 ("messageDisplayFont" .=) <$> _gMessageDisplayFont,
387398 ("customReplyTo" .=) <$> _gCustomReplyTo,
388399 ("whoCanContactOwner" .=) <$> _gWhoCanContactOwner,
400+ ("whoCanAdd" .=) <$> _gWhoCanAdd,
389401 ("whoCanInvite" .=) <$> _gWhoCanInvite,
390402 ("whoCanLeaveGroup" .=) <$> _gWhoCanLeaveGroup,
391403 ("allowGoogleCommunication" .=) <$>