anchor.diff:      lager:info("purging continued", []),
       gen_fsm:send_event(self(), purge),
       {next_state, purging, State};
  -paused(_Event, State) ->
  -    {next_state, paused, State}.
  +paused({restore, Org}, #state{org_names_fun = Orgs }) ->
  +    restore_and_log(Org, Orgs),
  +    {next_state, ready, #state{}}.
  +
  +restore_one({restore, Org}, #state{}) ->
  +    restore_and_log(Org),
  +    {next_state, ready, #state{}}.
   
   handle_event(_Event, StateName, State) ->
       {next_state, StateName, State}.
  
positive.code: ready({start_purge, Org}, State) ->
      gen_fsm:send_event(self(), {purge_one, Org}),
      {next_state, purge_one, State};
  ready(_Event, State) ->
      {next_state, ready, State}.
  
  purge_one({purge_one, Org}, State) ->
  
negative.code:     ready/2,
      purging/2,
      paused/2,
      purge_one/2,
      restore_one/2
    ]).
  %% gen_fsm callbacks
  -export([init/1,
  