tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

swh: 'lookup-origin-revision' ignores partial visits.

Browse Source 
* guix/swh.scm (lookup-origin-revision): Filter out visits with a status
different from 'full.
This commit is contained in:
Ludovic Courtès
2021-05-14 23:21:45 +02:00
parent 67bf612554
commit 46eac03e72
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
guix/swh.scm
View File

@@ -455,7 +455,11 @@ URL could not be found."
(match (lookup-origin url)
(#f #f)
(origin
(match (filter visit-snapshot-url (origin-visits origin))
(match (filter (lambda (visit)
;; Return #f if (visit-snapshot VISIT) would return #f.
(and (visit-snapshot-url visit)
(eq? 'full (visit-status visit))))
(origin-visits origin))
((visit . _)
(let ((snapshot (visit-snapshot visit)))
(match (and=> (find (lambda (branch)