Cyril Roelandt <tipec...@gmail.com> skribis: > +(define (check-source package) > + "" > + (let ((origin (package-source package))) > + (when (and origin > + (eqv? (origin-method origin) url-fetch)) > + (let* ((strings (origin-uri origin)) > + (uris (if (list? strings) > + (map string->uri strings) > + (list (string->uri strings)))))
I realized while fixing it in list-packages.scm that mirror:// URIs actually need to be expanded here. See commit 1c69e4c for an example. Ludo’.
