anchor.diff:      end.
   
   
  -select_worker(Ets, Name) ->
  -    case catch ets:select(Ets, ?SELECT(worker, Name)) of
  +select_worker(Ets, Ident) ->
  +    case catch ets:select(Ets, ?SELECT(worker, Ident)) of
           [] -> {error, no_worker};
           [Pid|_] -> {ok, Pid};
           Error ->  
  
positive.code: 
  
  select_workers_pids(Ets, Ident) ->
      ets:select(Ets, [{{'_', '$1', Ident, '$2'}, [{'==', worker, '$1'}], ['$2']}]).
  
  
  push_archives_to_new_worker(#state{ets=Ets}, WorkId, WorkerPid) ->
  
negative.code: -include_lib("caterpillar_event_internal.hrl").
  -define(
      SELECT(Type, ServiceOrIdent), 
      [{{'_', '$1', ServiceOrIdent, '$3'}, [{'==', '$1', Type}], ['$3']}]
  ).
  
  -export([start_link/1, stop/0, get_info/0]).
  