kreyren/guix-kreyren
1
0
Fork 0
Code Issues 1 Pull Requests 1 Releases Activity

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

Browse Source 
* guix/build/download.scm (uri-abbreviation)[elide-path]: Handle the
  case where URI has no `host' part.
This commit is contained in:
Ludovic Courtès 2013-06-22 16:10:25 +02:00
parent f3211ef386
commit 91a7fde456
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
guix/build/download.scm
View File

@ -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)