diff options
| -rw-r--r-- | guix/swh.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guix/swh.scm b/guix/swh.scm index 3005323fd1..06d2957252 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) |