me
/
guix
Archived
1
0
Fork 0
Code

swh: Support lookup of Hg tags. 

* guix/swh.scm (lookup-origin-revision): Support lookup of Hg tags, not just
Git tags.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
master
Xinglu Chen 2021-06-12 13:57:19 +02:00 committed by Ludovic Courtès
parent f70c3429ed
commit c4ff492879
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
guix/swh.scm
View File

@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net> ;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -455,8 +456,13 @@ URL could not be found."
((visit . _) ((visit . _)
(let ((snapshot (visit-snapshot visit))) (let ((snapshot (visit-snapshot visit)))
(match (and=> (find (lambda (branch) (match (and=> (find (lambda (branch)
(string=? (string-append "refs/tags/" tag) (or
(branch-name branch))) ;; Git specific.
(string=? (string-append "refs/tags/" tag)
(branch-name branch))
;; Hg specific.
(string=? tag
(branch-name branch))))
(snapshot-branches snapshot)) (snapshot-branches snapshot))
branch-target) branch-target)
((? release? release) ((? release? release)