anchor.diff:  %% ===================================================================
   %% gen_server callback stubs
   
  +-spec terminate(term(), state()) -> ok.
   terminate(Reason, _State) ->
       lager:warning("Disco server dies: ~p", [Reason]).
   
  +-spec code_change(term(), state(), term()) -> {ok, state()}.
   code_change(_OldVsn, State, _Extra) -> {ok, State}.
   
   %% ===================================================================
  
positive.code: handle_cast({purge_job, JobName}, S) ->
      {noreply, do_purge_job(JobName, S)}.
  
  handle_call(dbg_get_state, _, S) ->
      {reply, S, S};
  
  
negative.code:        true -> S
      end.
  
  -spec do_purge_job(jobname(), state()) -> state().
  do_purge_job(JobName, #state{purged = Purged} = S) ->
      _ = handle_call({clean_job, JobName}, {self(), none}, S),
      % NB! next line disabled for 0.3.1, ISSUE #227
      %ddfs:delete(ddfs_master, disco:oob_name(JobName), internal),
      Key = list_to_binary(JobName),
  