aboutsummaryrefslogtreecommitdiff
path: root/pseudo-meta-egg-info.scm
diff options
context:
space:
mode:
authorPeter Bex <peter@more-magic.net>2013-09-27 08:04:45 -0400
committerPeter Bex <peter@more-magic.net>2013-09-27 08:04:45 -0400
commit8d4b7e91f727e6817212fd70045c3d29575d8bb1 (patch)
tree2c7c44a334bdc74f9939599dbcf9d3b7a4ada506 /pseudo-meta-egg-info.scm
parent117426e4d217bccc92670aebb0f2f99510974aeb (diff)
downloadpseudo-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
Diffstat (limited to 'pseudo-meta-egg-info.scm')
-rw-r--r--pseudo-meta-egg-info.scm8
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")))
)