amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

substitute: 'lookup-narinfos' returns exactly a list of narinfos.

Browse source 
* guix/scripts/substitute.scm (lookup-narinfos): Filter out #f values
  from CACHED, such that the end result is exactly a list of narinfos,
  not interspersed with #f.
* guix/scripts/challenge.scm (discrepancies): Assume REMOTE is a list of
  narinfos.
This commit is contained in:
Ludovic Courtès 2015-10-28 11:48:27 +01:00
parent f151298fa0
commit a89dde1ed8
2 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
guix/scripts/challenge.scm
View file

@ -125,10 +125,8 @@ taken since we do not import the archives."
servers))
;; No 'assert-valid-narinfo' on purpose.
(narinfos -> (fold (lambda (narinfo vhash)
(if narinfo
(vhash-cons (narinfo-path narinfo) narinfo
vhash)
vhash))
(vhash-cons (narinfo-path narinfo) narinfo
vhash))
vlist-null
remote)))
(return (filter-map (lambda (item local)