anchor.diff:  %%     {"props":{Prop:Val}}
   %%   Where the "props" object takes the same form as returned from
   %%   a GET of the same resource.
  +%% 
  +%% DELETE /buckets/Bucket/props
  +%%   Reset bucket properties back to the default settings
  +%%   not supporteed by the OLD API
   
   -module(riak_kv_wm_props).
   
  
positive.code: %%          {[method()], reqdata(), context()}
  %% @doc Get the list of methods this resource supports.
  %%      Properties allows HEAD, GET, and PUT.
  allowed_methods(RD, Ctx) ->
      {['HEAD', 'GET', 'PUT'], RD, Ctx}.
  
  %% @spec malformed_request(reqdata(), context()) ->
  %%          {boolean(), reqdata(), context()}
  
negative.code:             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()}
  