src/beam_stats_sup.erl

   1 -module(beam_stats_sup).
   2
   3 -behaviour(supervisor).
   4
   5 %% API
   6 -export([start_link/1]).
   7
   8 %% Supervisor callbacks
   9 -export([init/1]).
  10
  11 %% Helper macro for declaring children of supervisor
  12 -define(CHILD(Type, Module, Args),
  13     {Module, {Module, start_link, Args}, permanent, 5000, Type, [Module]}).
  14
  15 %% ===================================================================
  16 %% API functions
  17 %% ===================================================================
  18
  19 start_link(DeltasServer) ->
  20     supervisor:start_link({local, ?MODULE}, ?MODULE, DeltasServer).
  21
  22 %% ===================================================================
  23 %% Supervisor callbacks
  24 %% ===================================================================
  25
  26 init(DeltasServer) ->
  27     Children =
  28     [ ?CHILD(worker     , beam_stats_producer     , [DeltasServer])
  29     , ?CHILD(supervisor , beam_stats_sup_consumers, [])
  30     ],
  31     SupFlags = {one_for_one, 5, 10},
  32     {ok, {SupFlags, Children}}.