From 316da0034503b782c6bebaf3062b65da9f42605b Mon Sep 17 00:00:00 2001
From: Alexey Shchepin <alexey@process-one.net>
Date: Fri, 31 Mar 2017 17:37:18 +0300
Subject: [PATCH] Add ejabberd_sql:abort/1 and ejabberd_sql:restart/1

---
 src/ejabberd_sql.erl | 8 ++++++++
 1 file changed, 8 insertions(+)

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 >>.