anchor.diff:                             last=Current,
                              current=undefined},
       {next_state, idle, NewState};
  -calculating(continue, State) ->
  +deleting(continue, State) ->
       %% more to do yet
  -    NewState = calculate_next_user(State),
  +    %% @TODO Continue file deletion
  +    %% NewState = delete_next_file(State),
  +    NewState = State,
       gen_fsm:send_event(?SERVER, continue),
       {next_state, calculating, NewState};
  -calculating(_, State) ->
  +deleting(_, State) ->
       {next_state, calculating, State}.
   
   paused(_, State) ->
  
positive.code: 
  %% @doc Time is allowed as a `{Hour, Minute}' tuple, or as an `"HHMM"'
  %% string.  This function purposely fails (with function or case
  %% clause currently) to allow {@link read_storage_schedule1/0} to pick
  %% out the bad eggs.
  parse_time({Hour, Min}) when (Hour >= 0 andalso Hour =< 23),
                               (Min >= 0 andalso Min =< 59) ->
  
negative.code: 
  %% @doc Actually kick off the batch.  After calling this function, you
  %% must advance the FSM state to `calculating'.
  start_batch(_Options, Time, State) ->
      BatchStart = calendar:universal_time(),
      %% TODO: probably want to do this fetch streaming, to avoid
      %% accidental memory pressure at other points
  
  