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