~ruther/guix-local: download: Don't fail when abbreviating `file://' URIs.

91a7fde45654b2d78cd791542e6a18dbbedd7297 — Ludovic Courtès 12 years ago f3211ef

download: Don't fail when abbreviating `file://' URIs.

* guix/build/download.scm (uri-abbreviation)[elide-path]: Handle the
  case where URI has no `host' part.

patch browse .tar.gz

1 files changed, 5 insertions(+), 2 deletions(-)

M guix/build/download.scm

M guix/build/download.scm => guix/build/download.scm +5 -2

@@ 65,8 65,11 @@ abbreviation of URI showing the scheme, host, and basename of the file."
 
   (define (elide-path)
     (let ((path (uri-path uri)))
-      (string-append (symbol->string (uri-scheme uri))
-                     "://" (uri-host uri)
+      (string-append (symbol->string (uri-scheme uri)) "://"
+
+                     ;; `file' URIs have no host part.
+                     (or (uri-host uri) "")
+
                      (string-append "/.../" (basename path)))))
 
   (if (> (string-length uri-as-string) max-length)