diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-03-17 18:26:46 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-03-17 18:26:46 +0100 |
| commit | 0562dbe5d3160b72856bfa7d890ec2caf4073633 (patch) | |
| tree | 56849a825f679cbd2e02ca03e42bbd8f9ff44a45 /guix/download.scm | |
| parent | bfb6b1c7b788a5fbcffb089c0df9d254faed4d5b (diff) | |
| parent | 9b43a0ffa3869e56063cd4dea054828e53113c4b (diff) | |
Merge branch 'master' into core-updates
Diffstat (limited to 'guix/download.scm')
| -rw-r--r-- | guix/download.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/download.scm b/guix/download.scm index 0889928d3a..2cb0740897 100644 --- a/guix/download.scm +++ b/guix/download.scm @@ -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 |