rekahsoft
/
guix
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

download: 'download-to-store' accepts plain file names. 

* guix/download.scm (download-to-store): When URI is #f, assume that URL
  is a file name, and handle it.
This commit is contained in:
Ludovic Courtès 2014-03-11 22:09:31 +01:00
parent 6f58d58243
commit d91a879121
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/download.scm
View File

@ -255,8 +255,9 @@ omitted. Write progress reports to LOG."
(define uri
(string->uri url))
(if (memq (uri-scheme uri) '(file #f))
(add-to-store store name #f "sha256" (uri-path uri))
(if (or (not uri) (memq (uri-scheme uri) '(file #f)))
(add-to-store store name #f "sha256"
(if uri (uri-path uri) url))
(call-with-temporary-output-file
(lambda (temp port)
(let ((result