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.scm10
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")))
)