me
/
guix
Archived
1
0
Fork 0
Code

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

* guix/swh.scm (lookup-origin-revision): Filter out visits with a status
different from 'full.
master
Ludovic Courtès 2021-05-14 23:21:45 +02:00
parent 67bf612554
commit 46eac03e72
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 1 deletions
Show Stats 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)