From 054413d8f4aac0fcee92bdd3650f8cd4a3393834 Mon Sep 17 00:00:00 2001
From: Evgeniy Khramtsov <ekhramtsov@process-one.net>
Date: Tue, 14 Nov 2017 18:41:28 +0300
Subject: [PATCH] Halt ejabberd if the top supervisor fails to start

---
 src/ejabberd_app.erl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/ejabberd_app.erl b/src/ejabberd_app.erl
index 56f225220..3743a8f04 100644
--- a/src/ejabberd_app.erl
+++ b/src/ejabberd_app.erl
@@ -60,7 +60,9 @@ start(normal, _Args) ->
 	    lists:foreach(fun erlang:garbage_collect/1, processes()),
 	    {ok, SupPid};
 	Err ->
-	    Err
+	    ?CRITICAL_MSG("Failed to start ejabberd application: ~p", [Err]),
+	    timer:sleep(1000),
+	    halt("Refer to ejabberd log files to diagnose the problem")
     end;
 start(_, _) ->
     {error, badarg}.