Chapril/xmpp.chapril.org-ejabberd
25
1
Fork 0
mirror of https://github.com/processone/ejabberd.git synced 2024-11-20 16:15:59 +01:00
Code Releases Activity

Tweak pg2_backport.erl to work with Erlang older than R13A (EJAB-1349)

Browse Source
This commit is contained in:
Badlop 2011-02-22 23:43:38 +01:00
parent 677d8b1a29
commit db0962804d
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/pg2_backport.erl
View File

@ -207,9 +207,12 @@ terminate(_Reason, _S) ->
store(List) -> store(List) ->
_ = [(assure_group(Name) _ = [(assure_group(Name)
andalso andalso
[join_group(Name, P) || P <- Members -- group_members(Name)]) || store2(Name, Members)) ||
[Name, Members] <- List], [Name, Members] <- List],
ok. ok.
store2(Name, Members) ->
[join_group(Name, P) || P <- Members -- group_members(Name)],
true.
assure_group(Name) -> assure_group(Name) ->
Key = {group, Name}, Key = {group, Name},