Applicationize Vanillae and fix 'ok' assertion

2023-05-01 13:38:34 +09:00
parent 1b4b810936
commit 5a92682c22
3 changed files with 70 additions and 19 deletions
@@ -0,0 +1,43 @@
+%%% @doc
+%%% Vanillae Erlang Aeternity application supervisor
+%%%
+%%% The very top level supervisor in the system. It only has one service branch: the
+%%% "vanillae_man" (Vanillae Manager).
+%%%
+%%% See: http://erlang.org/doc/design_principles/applications.html
+%%% See: http://zxq9.com/archives/1311
+%%% @end
+
+-module(vanillae_sup).
+-vsn("0.1.0").
+-behaviour(supervisor).
+-author("Craig Everett <zxq9@zxq9.com>").
+-copyright("Craig Everett <zxq9@zxq9.com>").
+-license("GPL-3.0-or-later").
+
+-export([start_link/0]).
+-export([init/1]).
+
+
+-spec start_link() -> {ok, pid()}.
+%% @private
+%% This supervisor's own start function.
+
+start_link() ->
+  supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+
+
+-spec init([]) -> {ok, {supervisor:sup_flags(), [supervisor:child_spec()]}}.
+%% @private
+%% The OTP init/1 function.
+
+init([]) ->
+    RestartStrategy = {one_for_one, 0, 60},
+    Manager   = {vanillae_man,
+                 {vanillae_man, start_link, []},
+                 permanent,
+                 5000,
+                 worker,
+                 [vanillae_man]},
+    Children  = [Manager],
+    {ok, {RestartStrategy, Children}}.