anchor.diff:  
   %% @doc First state of the delete fsm
   -spec initialize(timeout, state()) ->
  -                        {next_state, write_root, state(), timeout()} |
  +                        {next_state, waiting_file_info, state(), timeout()} |
                           {stop, term(), state()}.
   initialize(timeout, State=#state{bucket=Bucket,
                                    filename=FileName,
  
positive.code:     {next_state, waiting_root_update, UpdState, Timeout};
  waiting_file_info({deleter_ready, {error, Reason}},
                    State=#state{deleter_pid=DeleterPid}) ->
      lager:warning("The deletion process encountered an error. Reason: ~p", [Reason]),
      riak_moss_deleter:stop(DeleterPid),
      {stop, normal, State}.
  
  
negative.code:     %% all block delete requests will serialize at the `riak_moss_deleter'.
      case BlockCount of
          0 ->
              _ = riak_moss_deleter:delete_root(DeleterPid),
              {next_state, waiting_root_delete, State, Timeout};
          _ ->
              _ = [riak_moss_deleter:delete_block(DeleterPid, BlockID) ||
                      BlockID <- lists:seq(0, BlockCount-1)],
              {next_state, waiting_blocks_delete, State, Timeout}
      end.
  
  