me
/
guix
Archived
1
0
Fork 0
Code

substitute: Remove unneeded conditionals. 

* guix/scripts/substitute.scm (guix-substitute): Remove unneeded (if cache
  ...) forms since CACHE is always true (it's a promise.)
master
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) (("have" paths ..1)
;; Return the subset of PATHS available in CACHE. ;; Return the subset of PATHS available in CACHE.
(let ((substitutable (let ((substitutable
(if cache (lookup-narinfos cache paths)))
(lookup-narinfos cache paths)
'())))
(for-each (lambda (narinfo) (for-each (lambda (narinfo)
(format #t "~a~%" (narinfo-path narinfo))) (format #t "~a~%" (narinfo-path narinfo)))
(filter valid? substitutable)) (filter valid? substitutable))
@ -810,9 +808,7 @@ substituter disabled~%")
(("info" paths ..1) (("info" paths ..1)
;; Reply info about PATHS if it's in CACHE. ;; Reply info about PATHS if it's in CACHE.
(let ((substitutable (let ((substitutable
(if cache (lookup-narinfos cache paths)))
(lookup-narinfos cache paths)
'())))
(for-each (lambda (narinfo) (for-each (lambda (narinfo)
(format #t "~a\n~a\n~a\n" (format #t "~a\n~a\n~a\n"
(narinfo-path narinfo) (narinfo-path narinfo)