anchor.diff:  %% Supervisor callbacks
   -export([init/1]).
   
  +-include("config.hrl").
  +
   -define(SERVER, ?MODULE).
   
   %%====================================================================
  
positive.code: %% @doc Starts the supervisor
  %% @end 
  %%--------------------------------------------------------------------
  start_link(Args) ->
      supervisor:start_link(storage_server_sup, Args).
  
  %%====================================================================
  %% Supervisor callbacks
  
negative.code: %% specifications.
  %% @end 
  %%--------------------------------------------------------------------
  init(Config) ->
    Partitions = membership:partitions_for_node(node(), all),
    ChildSpecs = lists:map(fun(Part) ->
        Name = list_to_atom(lists:concat([storage_, Part])),
        DbKey = lists:concat([Config#config.directory, "/", Part]),
        {Name, {storage_server,start_link,[Config#config.storage_mod, DbKey, Name]}, permanent, 1000, worker, [storage_server]}
      end, Partitions),
      {ok,{{one_for_one,0,1}, ChildSpecs}}.
  
  %%====================================================================
  %% Internal functions
  