From d9b157680364cb182546e6578d75c7a382f3ec8f Mon Sep 17 00:00:00 2001 From: Jan Lehnardt Date: Tue, 24 Mar 2009 10:48:09 +0000 Subject: make some error messages more readable, committed for jchris git-svn-id: https://svn.apache.org/repos/asf/couchdb/trunk@757714 13f79535-47bb-0310-9956-ffa450edef68 --- src/couchdb/couch_httpd.erl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/couchdb/couch_httpd.erl b/src/couchdb/couch_httpd.erl index 4dfbd954..4acc3d44 100644 --- a/src/couchdb/couch_httpd.erl +++ b/src/couchdb/couch_httpd.erl @@ -394,6 +394,8 @@ end_json_response(Resp) -> send_chunk(Resp, []). +error_info({Error, Reason}) when is_list(Reason) -> + error_info({Error, ?l2b(Reason)}); error_info(bad_request) -> {400, <<"bad_request">>, <<>>}; error_info({bad_request, Reason}) -> @@ -440,7 +442,7 @@ send_error(Req, Code, Headers, ErrorStr, ReasonStr) -> {[{<<"error">>, ErrorStr}, {<<"reason">>, ReasonStr}]}). - send_redirect(Req, Path) -> +send_redirect(Req, Path) -> Headers = [{"Location", couch_httpd:absolute_uri(Req, Path)}], send_response(Req, 301, Headers, <<>>). -- cgit v1.2.3