Fix sql query

diff --git a/src/mod_muc_sql.erl b/src/mod_muc_sql.erl
index 6d3cfd46bf49c4e11d9c44267deea747dcb27141..7ec598bf32be653c7e48bbe831aed500fff49ab4 100644 (file)
--- a/src/mod_muc_sql.erl
+++ b/src/mod_muc_sql.erl
@@ -412,7 +412,7 @@ get_subscribed_rooms(LServer, Host, Jid) ->
        ?SQL("select @(room)s from muc_room_subscribers where jid=%(JidS)s"
             " and host=%(Host)s")) of
        {selected, Subs} ->
-           [jid:make(Room, Host, <<>>) || Room<-Subs];
+           [jid:make(Room, Host, <<>>) || {Room} <- Subs];
        Error ->
            ?ERROR_MSG("Error when fetching subscribed rooms ~p", [Error]),
            []