From d91a879121485b079796ab5174468bf4c034ae40 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 11 Mar 2014 22:09:31 +0100 Subject: 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. --- guix/download.scm | 5 +++-- 1 file 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 @@ (define* (download-to-store store url #:optional (name (basename url)) (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 -- cgit v1.2.3