distro-build: fix catalog URL handling

This commit is contained in:
Matthew Flatt 2014-08-26 12:24:22 -06:00
parent b00638c52d
commit 5fd46a4d9a

View File

@ -16,7 +16,7 @@
(define catalog-url
(if (regexp-match? #rx"^[a-z]+:" catalog)
(string->url catalog-url)
(string->url catalog)
(path->url (path->complete-path catalog))))
(define details