Permalink
Find file
Fetching contributors…
Cannot retrieve contributors at this time
30 lines (20 sloc) 811 Bytes
-module(etsgive_sup).
-behaviour(supervisor).
%% API
-export([start_link/0]).
%% Supervisor callbacks
-export([init/1]).
%% Helper macro for declaring children of supervisor
-define(CHILD(I, Type), {I, {I, start_link, []}, permanent, 5000, Type, [I]}).
%% ===================================================================
%% API functions
%% ===================================================================
start_link() ->
supervisor:start_link({local, ?MODULE}, ?MODULE, []).
%% ===================================================================
%% Supervisor callbacks
%% ===================================================================
init([]) ->
Child1 = ?CHILD(etsgive_srv, worker),
Child2 = ?CHILD(etsgive_mgr, worker),
{ok, { {one_for_one, 5, 10}, [Child1, Child2]} }.