diff options
| author | Peter Bex <peter@more-magic.net> | 2014-09-15 20:23:06 +0200 |
|---|---|---|
| committer | Peter Bex <peter@more-magic.net> | 2014-09-15 20:23:06 +0200 |
| commit | 6774295c556d2897cf349b9e0ce63962774e561d (patch) | |
| tree | 32d864a5898a24dacbaa0999d29a7cca722d297f | |
| parent | 105e3bb5486f7d9229930850e25bced1eb6fd6b6 (diff) | |
| download | pseudo-meta-egg-info-6774295c556d2897cf349b9e0ce63962774e561d.tar.gz | |
Improve error message. Be more explicit about what release we're talking about
| -rw-r--r-- | pseudo-meta-egg-info.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/pseudo-meta-egg-info.scm b/pseudo-meta-egg-info.scm index e18ed1b..e97da9d 100644 --- a/pseudo-meta-egg-info.scm +++ b/pseudo-meta-egg-info.scm @@ -48,7 +48,7 @@ (uri-reference "files-list") (request-uri (current-request)))) ;; template, so don't make this a query - "?egg={egg-name};release={egg-release};chicken-release={chicken-release}"))) + "?egg={egg-name};egg-release={egg-release};chicken-release={chicken-release}"))) (with-headers '((content-type "text/plain")) (lambda () (write-logged-response) @@ -68,11 +68,11 @@ (or (and-let* ((params (uri-query (request-uri (current-request)))) (port (response-port (current-response))) (chicken-release (string->number - (alist-ref 'release params eq? + (alist-ref 'chicken-release params eq? *default-chicken-release*))) (egg-name (alist-ref 'egg params)) ((not (string=? egg-name ""))) - (egg-release (alist-ref 'release params)) + (egg-release (alist-ref 'egg-release params)) ((not (string=? egg-release ""))) (files-dir (update-uri (uri-reference "") path: (list egg-name "tags" egg-release))) @@ -98,7 +98,7 @@ files) (close-output-port port)))) (send-status 404 - (sprintf "Release \"~A\" for egg \"~A\" doesn't exist" - egg-release egg-name)))) + (sprintf "Release \"~A\" for egg \"~A\" (CHICKEN version ~A) doesn't exist" + egg-release egg-name chicken-release)))) (send-status 400 "No egg name or release given"))) ) |