aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--pseudo-meta-egg-info.scm10
1 files changed, 6 insertions, 4 deletions
diff --git a/pseudo-meta-egg-info.scm b/pseudo-meta-egg-info.scm
index f104e47..d82af51 100644
--- a/pseudo-meta-egg-info.scm
+++ b/pseudo-meta-egg-info.scm
@@ -44,16 +44,18 @@
(egg-name (alist-ref 'egg params))
(egg-release (alist-ref 'release params))
(files-dir (update-uri (uri-reference "")
- path: (list egg-name "tags" egg-release)))
+ path: (list egg-name "tags" egg-release "")))
(repo-uri (uri-reference (egg-repo)))
- (files-uri (update-uri (uri-relative-to files-dir repo-uri)
- username: #f password: #f)))
- (or (and-let* ((files (svn-ls (uri->string files-uri) '() ;; Needs recursion!
+ (files-uri (update-uri (uri-relative-to files-dir repo-uri))))
+ (or (and-let* ((files (svn-ls (uri->string files-uri (constantly "")) '() ;; Needs recursion!
(uri-username repo-uri)
(uri-password repo-uri))))
(with-headers '((content-type "text/plain"))
(lambda ()
(write-logged-response)
+ (display (uri->string files-uri
+ (lambda (u p) (conc u ":" p))) port)
+ (newline port)
(for-each (lambda (f) (display (car f) port) (newline port)) files)
(close-output-port port))))
(send-status 500