anchor.diff:          Body
       end.
   
  -oauth_header(Url, Action, Props) ->
  +oauth_header(Url, QS, Action, Props) ->
  +    QSL = [{couch_util:to_list(K), couch_util:to_list(V)} || {K,V} <- QS],
       ConsumerKey = ?b2l(proplists:get_value(<<"consumer_key">>, Props)),
       Token = ?b2l(proplists:get_value(<<"token">>, Props)),
       TokenSecret = ?b2l(proplists:get_value(<<"token_secret">>, Props)),
  
positive.code: do_request(Req) ->
      #http_db{
          auth = Auth,
          headers = Headers0,
          method = Method,
          body = B,
          options = Opts,
          conn = Conn
      } = Req,
      Url = full_url(Req),
      Headers = case proplists:get_value(<<"oauth">>, Auth) of
      undefined ->
          Headers0;
      {OAuthProps} ->
          [oauth_header(Url, Method, OAuthProps) | Headers0]
      end,
      Body = case B of
      {Fun, InitialState} when is_function(Fun) ->
  
negative.code:     Method = case Action of
          get -> "GET";
          post -> "POST";
          put -> "PUT";
          head -> "HEAD"
      end,
      Params = oauth:signed_params(Method, Url, QSL, Consumer, Token, TokenSecret)
          -- QSL,
      {"Authorization", "OAuth " ++ oauth_uri:params_to_header_string(Params)}.
  