X-Git-Url: https://git.xandkar.net/?p=beam_stats.git;a=blobdiff_plain;f=src%2Fbeam_stats_sup.erl;h=d582df4d86b71d4cf6529db96144b419ecd2ba6a;hp=7cfec5514ecaa5a845a56598e0ff9e02084f1e27;hb=b2c364fd163d74df4914b6d4d5da42dec28368af;hpb=6c4d94fd5465a1952a9fa28a21fd264226487945

diff --git a/src/beam_stats_sup.erl b/src/beam_stats_sup.erl
index 7cfec55..d582df4 100644
--- a/src/beam_stats_sup.erl
+++ b/src/beam_stats_sup.erl
@@ -3,30 +3,30 @@
 -behaviour(supervisor).
 
 %% API
--export([start_link/0]).
+-export([start_link/1]).
 
 %% Supervisor callbacks
 -export([init/1]).
 
 %% Helper macro for declaring children of supervisor
--define(CHILD(Type, Module),
-    {Module, {Module, start_link, []}, permanent, 5000, Type, [Module]}).
+-define(CHILD(Type, Module, Args),
+    {Module, {Module, start_link, Args}, permanent, 5000, Type, [Module]}).
 
 %% ===================================================================
 %% API functions
 %% ===================================================================
 
-start_link() ->
-    supervisor:start_link({local, ?MODULE}, ?MODULE, []).
+start_link(DeltasServer) ->
+    supervisor:start_link({local, ?MODULE}, ?MODULE, DeltasServer).
 
 %% ===================================================================
 %% Supervisor callbacks
 %% ===================================================================
 
-init([]) ->
+init(DeltasServer) ->
     Children =
-        [ ?CHILD(worker     , beam_stats_producer)
-        , ?CHILD(supervisor , beam_stats_sup_consumers)
-        ],
+    [ ?CHILD(worker     , beam_stats_producer     , [DeltasServer])
+    , ?CHILD(supervisor , beam_stats_sup_consumers, [])
+    ],
     SupFlags = {one_for_one, 5, 10},
     {ok, {SupFlags, Children}}.