futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

substitute: Remove unneeded conditionals.

Browse Source 
* guix/scripts/substitute.scm (guix-substitute): Remove unneeded (if cache
  ...) forms since CACHE is always true (it's a promise.)
This commit is contained in:
Ludovic Courtès 2015-07-13 11:35:56 +02:00
parent b57ec5f6cd
commit e4e099feca
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix/scripts/substitute.scm
View File

@ -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)