diff options
| author | Badlop <badlop@process-one.net> | 2017-03-08 16:22:13 +0100 |
|---|---|---|
| committer | Badlop <badlop@process-one.net> | 2017-03-08 16:22:13 +0100 |
| commit | b0a950b6dd98de982f18a46281dc298667dd85bb (patch) | |
| tree | 9f1f4578f1b6e3f71ac53a89e92b472381e9bc17 | |
| parent | Report more TLS errors (diff) | |
Fix handling ejabberd_sql:sql_transaction result (#1584)
| -rw-r--r-- | src/ejd2sql.erl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/ejd2sql.erl b/src/ejd2sql.erl index ae37a9b55..66411ef76 100644 --- 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]). |