aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-07-13 11:35:56 +0200
committerLudovic Courtès <ludo@gnu.org>2015-07-13 18:29:01 +0200
commite4e099feca0d6725b6614c2acdbae7f1dab261fb (patch)
tree9c623eeb08f78949a4b7085c0f25426ce90af300
parentb57ec5f6cd1a4252badd92c5aa8bcac4e1dfa96e (diff)
downloadpatches-e4e099feca0d6725b6614c2acdbae7f1dab261fb.tar
patches-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-xguix/scripts/substitute.scm8
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)