GNU bug report logs - #49141
[PATCH] etc: snippets: Use ‘hg-file-name’ when origin uses ‘hg-fetch’.

Previous Next

Full log

View this message in rfc822 format

From: Xinglu Chen <public <at> yoctocell.xyz>
To: 49141 <at> debbugs.gnu.org
Subject: [bug#49141] [PATCH v2] etc: snippets: Use ‘hg-file-name’ when origin uses ‘hg-fetch’
Date: Sun, 20 Jun 2021 20:44:44 +0200

Adjust to changes in commit aaafd19bd1e37265de07e246286a6819792c25b4.

* etc/snippets/scheme-mode/guix-origin: Use ‘hg-file-name’ instead of
‘string-append’ when ‘method’ for origin is ‘hg-fetch’.
---
Changes since v1:

* Remove ‘hg-fetch’ from the line below

 etc/snippets/scheme-mode/guix-origin | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/etc/snippets/scheme-mode/guix-origin b/etc/snippets/scheme-mode/guix-origin
index 2820a369f3..eb0cdc8242 100644
--- a/etc/snippets/scheme-mode/guix-origin
+++ b/etc/snippets/scheme-mode/guix-origin
@@ -19,7 +19,9 @@
                  (t "(string-append \\"https://\\" version \\".tar.gz\\")"))}$0)
  ${1:$(cond ((equal yas-text "git-fetch")
              "(file-name (git-file-name name version))")
-            ((member yas-text '("svn-fetch" "hg-fetch" "cvs-fetch" "bzr-fetch"))
+            ((equal yas-text "hg-fetch")
+             "(file-name (hg-file-name name version))")
+            ((member yas-text '("svn-fetch" "cvs-fetch" "bzr-fetch"))
              "(file-name (string-append name \\"-\\" version \\"-checkout\\"))")
             (t ""))}
  (sha256

base-commit: a211078f992bc5a26eaf787c6b01caa41de67597
-- 
2.32.0

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.