diff options
| -rw-r--r-- | pseudo-meta-egg-info.scm | 10 |
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 |