ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-27 04:59:27 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

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 @@ (define uri-as-string
(define (elide-path) (define (elide-path)
(let ((path (uri-path uri))) (let ((path (uri-path uri)))
(string-append (symbol->string (uri-scheme uri)) (string-append (symbol->string (uri-scheme uri)) "://"
"://" (uri-host uri)
;; `file' URIs have no host part.
(or (uri-host uri) "")
(string-append "/.../" (basename path))))) (string-append "/.../" (basename path)))))
(if (> (string-length uri-as-string) max-length) (if (> (string-length uri-as-string) max-length)