Fix handling ejabberd_sql:sql_transaction result (#1584)

diff --git a/src/ejd2sql.erl b/src/ejd2sql.erl
index ae37a9b5528062f2e18da93eae162ab54ee1a5b6..66411ef76886da72070ae61a6714bfaec0e4ec7a 100644 (file)
--- a/src/ejd2sql.erl
+++ b/src/ejd2sql.erl
@@ -172,7 +172,8 @@ export(LServer, Table, IO, ConvertFun) ->
 output(_LServer, _Table, _IO, []) ->
     ok;
 output(LServer, _Table, sql, SQLs) ->
-    ejabberd_sql:sql_transaction(LServer, SQLs);
+    {atomic, ok} = ejabberd_sql:sql_transaction(LServer, SQLs),
+    ok;
 output(_LServer, Table, Fd, SQLs) ->
     file:write(Fd, ["-- \n-- Mnesia table: ", atom_to_list(Table),
                     "\n--\n", SQLs]).