anchor.diff:              end
       end.
   
  -do_put(Host, Url, Headers, Value, ReportFun) ->
  +do_put(Host, Url, Headers, Value) ->
       case send_request(Host, Url, Headers ++ [{'Content-Type', 'application/octet-stream'}],
                         put, Value, proxy_opts()) of
           {ok, "200", _Header, _Body} ->
  -            {ok, ReportFun(byte_size(Value))};
  +            ok;
           {ok, "201", _Header, _Body} ->
  -            {ok, ReportFun(byte_size(Value))};
  +            ok;
           {ok, "204", _Header, _Body} ->
  -            {ok, ReportFun(byte_size(Value))};
  +            ok;
           {ok, Code, _Header, _Body} ->
               {error, {http_error, Code}};
           {error, Reason} ->
  
positive.code: 
  -spec new(integer()) -> {ok, term()}.
  new(ID) ->
      application:start(ibrowse),
      application:start(crypto),
  
  
negative.code: run(Op, KeyGen, ValueGen, State) ->
      run2(Op, KeyGen, ValueGen, State).
  
  run2(insert, KeyGen, ValueGen, #state{bucket = Bucket} = State) ->
      {NextHost, S2} = next_host(State),
      ConnInfo = NextHost,
      case insert(KeyGen, ValueGen, ConnInfo, Bucket) of
          ok ->
              {{silent, ok}, S2};
          {error, Reason} ->
              {error, Reason, S2}
      end;
  