anchor.diff:  %% @doc Assemble the root URL for the given client
   -spec root_url(string(), pos_integer(), boolean()) -> [string()].
   root_url(Ip, Port, true) ->
  -    ["https://", Ip, ":", integer_to_list(Port), "/"];
  +    ["https://", Ip, ":", integer_to_list(Port)];
   root_url(Ip, Port, false) ->
  -    ["http://", Ip, ":", integer_to_list(Port), "/"].
  +    ["http://", Ip, ":", integer_to_list(Port)].
   
   %% @doc Assemble the URL for the ping resource
   -spec ping_url(string(), pos_integer(), boolean()) -> string().
  
positive.code: stats_url(Ip, Port, Ssl) ->
      lists:flatten([root_url(Ip, Port, Ssl), "stats/"]).
  
  %% @doc Assemble the buckets URL
  -spec buckets_url(string(), pos_integer(), boolean()) -> string().
  buckets_url(Ip, Port, Ssl) ->
      lists:flatten([root_url(Ip, Port, Ssl), "buckets"]).
  
  %% @doc Assemble the URL of a bucket
  -spec bucket_url(string(), pos_integer(), boolean(), binary()) ->
                          string().
  bucket_url(Ip, Port, Ssl, Bucket) ->
      lists:flatten(
        [root_url(Ip, Port, Ssl),
         "buckets/",
         binary_to_list(Bucket)
        ]).
  
  %% @doc Assemble the URL for the given bucket and key
  
negative.code: create_bucket(Ip, Port, Bucket, Requester, Options) ->
      Ssl = proplists:get_value(ssl, Options, true),
      AuthCreds = proplists:get_value(auth_creds, Options, undefined),
      Path = buckets_path([]),
      Url = buckets_url(Ip, Port, Ssl, Path),
      Body= "name=" ++
          binary_to_list(Bucket) ++
          "&requester=" ++
          binary_to_list(Requester),
      Headers0 = [{"Content-Type", "application/x-www-form-urlencoded"},
                  {"Content-Md5", content_md5(Body)},
                  {"Date", httpd_util:rfc1123_date()}],
      case AuthCreds of
          {_, _} ->
              Headers =
                  [{"Authorization", auth_header('POST',
                                                 Headers0,
                                                 Path,
                                                 AuthCreds)} |
                   Headers0];
          undefined ->
              Headers = Headers0
      end,
      case request(post, Url, ["204"], Headers, Body) of
          {ok, "204", _RespHeaders, _RespBody} ->
  