elibs/fuzed_sup.erl

   1 %%%-------------------------------------------------------------------
   2 %%% Author  : Tom Preston-Werner
   3 %%%-------------------------------------------------------------------
   4 -module(fuzed_sup).
   5 -behaviour(supervisor).
   6
   7 -export([start/0, start_shell/0, start_link/1, init/1]).
   8
   9 start() ->
  10   spawn(fun() ->
  11     supervisor:start_link({local, ?MODULE}, ?MODULE, _Arg = [])
  12   end).
  13
  14 start_shell() ->
  15   {ok, Pid} = supervisor:start_link({local, ?MODULE}, ?MODULE, _Arg = []),
  16   unlink(Pid).
  17
  18 start_link(Args) ->
  19   supervisor:start_link({local, ?MODULE}, ?MODULE, Args).
  20
  21 init([]) ->
  22   {ok, {{one_for_one, 3, 10},
  23     [{rails_connection_pool,
  24        {rails_connection_pool, start_link, []},
  25        permanent,
  26        10000,
  27        worker,
  28        [rails_connection_pool]},
  29      {pool_sweeper,
  30        {pool_sweeper, start_link, []},
  31        permanent,
  32        10000,
  33        worker,
  34        [pool_sweeper]}
  35     ]}}.