diff options
| -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"))) ) |