From: Evgeniy Khramtsov <ekhramtsov@process-one.net>
Date: Wed, 16 Jul 2014 03:42:59 +0000 (+0400)
Subject: Fix blocklist get
X-Git-Tag: 14.07~21
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=89025eea393ed2dc0ad9e1b0a5e99a3eaf0573e4;p=ejabberd

Fix blocklist get
---

diff --git a/src/mod_blocking.erl b/src/mod_blocking.erl
index 968f3c814..241a29f0e 100644
--- a/src/mod_blocking.erl
+++ b/src/mod_blocking.erl
@@ -493,8 +493,8 @@ process_blocklist_get(LUser, LServer, mnesia) ->
 	  end
     end;
 process_blocklist_get(LUser, LServer, riak) ->
-    case ejabberd_riak:get(privacy, {LUser, LServer},
-			   mod_privacy:privacy_schema()) of
+    case ejabberd_riak:get(privacy, mod_privacy:privacy_schema(),
+			   {LUser, LServer}) of
         {ok, #privacy{default = Default, lists = Lists}} ->
             case lists:keysearch(Default, 1, Lists) of
                 {value, {_, List}} -> List;