@@ -1063,11 +1063,12 @@ data GetUserGroupsArgs = GetUserGroupsArgs
10631063 pSize :: Maybe Int ,
10641064 lastName :: Maybe String ,
10651065 lastCreatedAt :: Maybe String ,
1066- lastId :: Maybe String
1066+ lastId :: Maybe String ,
1067+ includeMemberCount :: Bool
10671068 }
10681069
10691070instance Default GetUserGroupsArgs where
1070- def = GetUserGroupsArgs Nothing Nothing Nothing Nothing Nothing Nothing Nothing
1071+ def = GetUserGroupsArgs Nothing Nothing Nothing Nothing Nothing Nothing Nothing False
10711072
10721073getUserGroups :: (MakesValue user ) => user -> GetUserGroupsArgs -> App Response
10731074getUserGroups user GetUserGroupsArgs {.. } = do
@@ -1082,7 +1083,8 @@ getUserGroups user GetUserGroupsArgs {..} = do
10821083 ((" page_size" ,) . show ) <$> pSize,
10831084 (" last_seen_name" ,) <$> lastName,
10841085 (" last_seen_created_at" ,) <$> lastCreatedAt,
1085- (" last_seen_id" ,) <$> lastId
1086+ (" last_seen_id" ,) <$> lastId,
1087+ (if includeMemberCount then Just (" include_member_count" , " true" ) else Nothing )
10861088 ]
10871089 )
10881090
@@ -1102,6 +1104,15 @@ addUserToGroup user gid uid = do
11021104 req <- baseRequest user Brig Versioned $ joinHttpPath [" user-groups" , gid, " users" , uid]
11031105 submit " POST" req
11041106
1107+ addUsersToGroup :: (MakesValue user ) => user -> String -> [String ] -> App Response
1108+ addUsersToGroup user gid uids = do
1109+ req <- baseRequest user Brig Versioned $ joinHttpPath [" user-groups" , gid, " users" ]
1110+ submit " POST" $
1111+ req
1112+ & addJSONObject
1113+ [ " members" .= uids
1114+ ]
1115+
11051116removeUserFromGroup :: (MakesValue user ) => user -> String -> String -> App Response
11061117removeUserFromGroup user gid uid = do
11071118 req <- baseRequest user Brig Versioned $ joinHttpPath [" user-groups" , gid, " users" , uid]
0 commit comments