diff options
| -rwxr-xr-x | guix/scripts/substitute.scm | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm index 0baba91981..54491b99a5 100755 --- a/guix/scripts/substitute.scm +++ b/guix/scripts/substitute.scm @@ -800,9 +800,7 @@ substituter disabled~%") (("have" paths ..1) ;; Return the subset of PATHS available in CACHE. (let ((substitutable - (if cache - (lookup-narinfos cache paths) - '()))) + (lookup-narinfos cache paths))) (for-each (lambda (narinfo) (format #t "~a~%" (narinfo-path narinfo))) (filter valid? substitutable)) @@ -810,9 +808,7 @@ substituter disabled~%") (("info" paths ..1) ;; Reply info about PATHS if it's in CACHE. (let ((substitutable - (if cache - (lookup-narinfos cache paths) - '()))) + (lookup-narinfos cache paths))) (for-each (lambda (narinfo) (format #t "~a\n~a\n~a\n" (narinfo-path narinfo) |