diff options
| author | Peter Bex <peter@more-magic.net> | 2013-09-27 08:04:45 -0400 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2013-09-27 08:04:45 -0400 |
| commit | 8d4b7e91f727e6817212fd70045c3d29575d8bb1 (patch) | |
| tree | 2c7c44a334bdc74f9939599dbcf9d3b7a4ada506 | |
| parent | 117426e4d217bccc92670aebb0f2f99510974aeb (diff) | |
| download | pseudo-meta-egg-info-8d4b7e91f727e6817212fd70045c3d29575d8bb1.tar.gz | |
Improve error codes given when no egg name or release name is given, or when it couldn't be found: it's a client error, not a server error
| -rw-r--r-- | pseudo-meta-egg-info.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/pseudo-meta-egg-info.scm b/pseudo-meta-egg-info.scm index 5d7336f..d1ff8d8 100644 --- a/pseudo-meta-egg-info.scm +++ b/pseudo-meta-egg-info.scm @@ -45,8 +45,8 @@ (newline port))) releases) (close-output-port port)))) - (send-status 500 (sprintf "Egg \"~A\" doesn't exist or has no tags dir" egg-name)))) - (send-status 500 "No egg name given"))) + (send-status 404 (sprintf "Egg \"~A\" doesn't exist or has no tags dir" egg-name)))) + (send-status 400 "No egg name given"))) (define (files-list continue) (or (and-let* ((params (uri-query (request-uri (current-request)))) @@ -75,8 +75,8 @@ (newline port))) files) (close-output-port port)))) - (send-status 500 + (send-status 404 (sprintf "Release \"~A\" for egg \"~A\" doesn't exist" egg-release egg-name)))) - (send-status 500 "No egg name or release given"))) + (send-status 400 "No egg name or release given"))) ) |