anchor.diff:           content_types_accepted/2,
            resource_exists/2,
            produce_bucket_type_body/2,
  -         accept_bucket_type_body/2,
  -         delete_resource/2
  +         accept_bucket_type_body/2
           ]).
   
   %% @type context() = term()
  
positive.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_type=T}) ->
      case riak_core_bucket_type:reset(T) of
          ok ->
              {true, RD, Ctx};
          Error ->
              {false,
               wrq:append_to_resp_body(
                 io_lib:format("The bucket type ~s could not be reset: ~p~n", [T, Error]),
                 wrq:set_resp_header(?HEAD_CTYPE, "text/plain", RD)), Ctx}
      end.
  
negative.code: %% @doc Get the list of methods this resource supports.
  %%      Properties allows HEAD, GET, and PUT.
  allowed_methods(RD, Ctx) when Ctx#ctx.api_version =:= 3 ->
      {['HEAD', 'GET', 'PUT'], RD, Ctx}.
  
  %% @spec malformed_request(reqdata(), context()) ->
  %%          {boolean(), reqdata(), context()}
  