diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-07-13 11:35:56 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-07-13 18:29:01 +0200 |
| commit | e4e099feca0d6725b6614c2acdbae7f1dab261fb (patch) | |
| tree | 9c623eeb08f78949a4b7085c0f25426ce90af300 | |
| parent | b57ec5f6cd1a4252badd92c5aa8bcac4e1dfa96e (diff) | |
| download | guix-e4e099feca0d6725b6614c2acdbae7f1dab261fb.tar guix-e4e099feca0d6725b6614c2acdbae7f1dab261fb.tar.gz | |
substitute: Remove unneeded conditionals.
* guix/scripts/substitute.scm (guix-substitute): Remove unneeded (if cache
...) forms since CACHE is always true (it's a promise.)
| -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) |