aboutsummaryrefslogtreecommitdiff
path: root/pseudo-meta-egg-info.scm
diff options
context:
space:
mode:
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")))
)