[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
03/05: swh: Support lookup of Hg tags.
From: |
guix-commits |
Subject: |
03/05: swh: Support lookup of Hg tags. |
Date: |
Mon, 14 Jun 2021 12:38:17 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit c4ff4928798b1c2f02fd905b1bf7c75632cef376
Author: Xinglu Chen <public@yoctocell.xyz>
AuthorDate: Sat Jun 12 13:57:19 2021 +0200
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>
---
guix/swh.scm | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/guix/swh.scm b/guix/swh.scm
index f6d5241..b5c8000 100644
--- a/guix/swh.scm
+++ b/guix/swh.scm
@@ -1,6 +1,7 @@
;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2018, 2019, 2020, 2021 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2020 Jakub Kądziołka <kuba@kadziolka.net>
+;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -455,8 +456,13 @@ URL could not be found."
((visit . _)
(let ((snapshot (visit-snapshot visit)))
(match (and=> (find (lambda (branch)
- (string=? (string-append "refs/tags/" tag)
- (branch-name branch)))
+ (or
+ ;; Git specific.
+ (string=? (string-append "refs/tags/" tag)
+ (branch-name branch))
+ ;; Hg specific.
+ (string=? tag
+ (branch-name branch))))
(snapshot-branches snapshot))
branch-target)
((? release? release)