anchor.diff:              RD2 = wrq:append_to_resp_body(JSON, RD),
               {{halt, 400}, RD2, Ctx}
       end.
  +
  +%% @spec delete_resource(reqdata(), context()) -> {boolean, reqdata(), context()}
  +%% @doc Reset the bucket properties back to the default values
  +delete_resource(RD, Ctx=#ctx{bucket=B, client=C}) ->
  +    C:reset_bucket(B),
  +    {true, RD, Ctx}.
   
   %% @spec jsonify_bucket_prop({Property::atom(), erlpropvalue()}) ->
   %%           {Property::binary(), jsonpropvalue()}
  
positive.code: init(Props) ->
      {ok, #ctx{
         prefix=proplists:get_value(prefix, Props),
         riak=proplists:get_value(riak, Props)
        }}.
  
  %% @spec service_available(reqdata(), context()) ->
  
negative.code: %%          {[method()], reqdata(), context()}
  %% @doc Get the list of methods this resource supports.
  %%      Properties allows HEAD, GET, and PUT.
  allowed_methods(RD, Ctx) when Ctx#ctx.api_version =:= 1 ->
      {['HEAD', 'GET', 'PUT'], RD, Ctx};
  allowed_methods(RD, Ctx) when Ctx#ctx.api_version =:= 2 ->
      {['HEAD', 'GET', 'PUT', 'DELETE'], RD, Ctx}.
  
  %% @spec malformed_request(reqdata(), context()) ->
  %%          {boolean(), reqdata(), context()}
  