diff options
Diffstat (limited to 'guix/build')
| -rw-r--r-- | guix/build/download.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/guix/build/download.scm b/guix/build/download.scm index ce31038b05..b14db42352 100644 --- a/guix/build/download.scm +++ b/guix/build/download.scm @@ -662,14 +662,15 @@ and write the output to FILE." (lambda (disarchive) (cons (module-ref disarchive '%disarchive-log-port) (module-ref disarchive 'disarchive-assemble)))) - (#f - (format #t "could not load Disarchive~%")) + (#f (format #t "could not load Disarchive~%") + #f) ((%disarchive-log-port . disarchive-assemble) (match (fetch-specification uris) - (#f - (format #t "could not find its Disarchive specification~%")) + (#f (format #t "could not find its Disarchive specification~%") + #f) (spec (parameterize ((%disarchive-log-port (current-output-port))) - (disarchive-assemble spec file #:resolver resolve))))))) + (false-if-exception* + (disarchive-assemble spec file #:resolver resolve)))))))) (define* (url-fetch url file #:key |