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

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 46eac03e720e9b21d225e2ec1c41299c09202d18
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri May 14 23:21:45 2021 +0200

    swh: 'lookup-origin-revision' ignores partial visits.
    
    * guix/swh.scm (lookup-origin-revision): Filter out visits with a status
    different from 'full.
---
 guix/swh.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/guix/swh.scm b/guix/swh.scm
index 3005323..06d2957 100644
--- a/guix/swh.scm
+++ b/guix/swh.scm
@@ -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)