anchor.diff:              Language = z_convert:to_list(proplists:get_value(language, Opts, en)),
               Accept = z_convert:to_list(proplists:get_value(accept, Opts, ?HTTP_ACCEPT)),
               UserAgent = z_convert:to_list(proplists:get_value(user_agent, Opts, httpc_ua(Url))),
  +            ContentType = case proplists:get_value(content_type, Opts) of
  +                undefined -> "application/octet-stream";
  +                CT -> to_list(CT)
  +            end,
               Headers = [
                   {"Accept", Accept},
                   {"Accept-Encoding", "identity"},
  
positive.code:             Error
      end.
  
  fetch_partial(Url0, RedirectCount, _Max, _OutDev, _Opts) when RedirectCount >= ?HTTPC_REDIRECT_COUNT ->
      error_logger:warning_msg("Error fetching url, too many redirects ~p", [Url0]),
      {error, too_many_redirects};
  fetch_partial(Url0, RedirectCount, Max, OutDev, Opts) ->
      httpc_flush(),
      case normalize_url(Url0) of
          {ok, {Host, UrlBin}} ->
  
negative.code:                 undefined -> [];
                  Auth -> [ {"Authorization", to_list(Auth)} ]
              end,
              Request = case Method of
                  get -> {Url, Headers};
                  delete when Payload =:= <<>> -> {Url, Headers};
                  delete -> {Url, Headers, ContentType, Payload};
                  post -> {Url, Headers, ContentType, Payload};
                  put -> {Url, Headers, ContentType, Payload};
                  patch -> {Url, Headers, ContentType, Payload}
              end,
              case fetch_stream(start_stream(Host, Method, Url, Request, Opts), Max, OutDev, Opts) of
                  {ok, Result} ->
                      maybe_redirect(Result, Method, Url, Payload, RedirectCount, Max, OutDev, Opts);
                  {error, _} = Error ->
                      error_logger:warning_msg("Error fetching url ~p error: ~p", [Url, Error]),
                      Error
  