anchor.diff:  -module(ns_server_sup).
   
   -behaviour(supervisor).
  +
  +-include("ns_common.hrl").
   
   -export([start_link/0]).
   
  
positive.code:                           R = supervisor:restart_child(?MODULE, C),
                            error_logger:info_msg("Restarting ~p: ~p~n", [C, R])
                    end,
                    BadChildren).
  
  bad_bucket_children(Bucket) ->
      [{{stats_collector, Bucket}, {stats_collector, start_link, [Bucket]},
  
negative.code: %% beware that if it's called from one of restarted childs it won't
  %% work. This can be allowed with further work here.
  pull_plug(Fun) ->
      FullGoodChildren = good_children(),
      GoodChildren = [Id || {Id, _, _, _, _, _} <- FullGoodChildren],
      BadChildren = [Id || {Id, _, _, _, _, _} <- bad_children()],
      error_logger:info_msg("~p plug pulled.  Killing ~p, keeping ~p~n",
                            [?MODULE, BadChildren, GoodChildren]),
  