anchor.diff:  server_info({Server, ServerPort}) when is_list(Server), is_integer(ServerPort) ->
       Url = build_uri(),
       case raw_request("GET", Server, ServerPort, Url, []) of
  -        {json, {struct, Welcome}} -> {ok, Welcome};
  +        {json, Welcome} -> {ok, Welcome};
           Other -> {other, Other}
       end.
   
  
positive.code: %% @todo Create a spec for this.
  create_documents({Server, ServerPort}, Database, Documents) when is_list(Server), is_integer(ServerPort) ->
      Url = build_uri(Database, "_bulk_docs"),
      BulkCreate = {struct, [
          {<<"docs">>, [
              {struct, Doc} || Doc <- Documents
          ]}
      ]},
      JSON = list_to_binary(mochijson2:encode(BulkCreate)),
      raw_request("POST", Server, ServerPort, Url, JSON).
  
  %% @doc Return a tuple containing a document id and the document's latest
  
negative.code: document_revision({Server, ServerPort}, Database, DocID) when is_list(Server), is_integer(ServerPort) ->
      Url = build_uri(Database, DocID, []),
      case raw_request("GET", Server, ServerPort, Url, []) of
          {json, Props} ->
              {ok, proplists:get_value(<<"_id">>, Props, undefined), proplists:get_value(<<"_rev">>, Props, undefined)};
          Other -> {error, Other}
      end.
  