diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2021-05-15 22:55:24 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2021-05-15 22:55:24 +0200 |
| commit | 25487c3fe6a41dd62f6e53f256392224a3be2a08 (patch) | |
| tree | 1051a1716d962ba0a7bbbf9dc8f7b67aa2674400 /guix/swh.scm | |
| parent | 4a9597e4516ec5ca58df3e007fcd5ef1d3fd2e54 (diff) | |
| parent | 46eac03e720e9b21d225e2ec1c41299c09202d18 (diff) | |
Merge branch 'master' into core-updates
Diffstat (limited to 'guix/swh.scm')
| -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) |