diff mbox series

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

Message ID 725dd8ab7a1c9628d425c52f18be5e1ff54cfe2d.1624206584.git.public@yoctocell.xyz
State Accepted
Headers show
Series [bug#49141] etc: snippets: Use ‘hg-file-name’ when origin uses ‘hg-fetch’. | expand

Checks

Context Check Description
cbaines/comparison success View comparision
cbaines/git branch success View Git branch
cbaines/applying patch success View Laminar job
cbaines/issue success View issue

Commit Message

Xinglu Chen June 20, 2021, 4:30 p.m. UTC 
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’.
---
 etc/snippets/scheme-mode/guix-origin | 2 ++
 1 file changed, 2 insertions(+)


base-commit: a211078f992bc5a26eaf787c6b01caa41de67597
diff mbox series

Patch

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