From: Alexey Shchepin <alexey@process-one.net>
Date: Fri, 31 Mar 2017 14:37:18 +0000 (+0300)
Subject: Add ejabberd_sql:abort/1 and ejabberd_sql:restart/1
X-Git-Tag: 17.04~23^2
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=316da0034503b782c6bebaf3062b65da9f42605b;p=ejabberd

Add ejabberd_sql:abort/1 and ejabberd_sql:restart/1
---

diff --git a/src/ejabberd_sql.erl b/src/ejabberd_sql.erl
index ab0601a6c..b9dbbe7ce 100644
--- a/src/ejabberd_sql.erl
+++ b/src/ejabberd_sql.erl
@@ -39,6 +39,8 @@
 	 sql_query_t/1,
 	 sql_transaction/2,
 	 sql_bloc/2,
+         abort/1,
+         restart/1,
          sql_query_to_iolist/1,
 	 escape/1,
          standard_escape/1,
@@ -190,6 +192,12 @@ sql_query_t(Query) ->
       _ -> QRes
     end.
 
+abort(Reason) ->
+    exit(Reason).
+
+restart(Reason) ->
+    throw({aborted, Reason}).
+
 %% Escape character that will confuse an SQL engine
 escape(S) ->
 	<<  <<(sql_queries:escape(Char))/binary>> || <<Char>> <= S >>.