civodul pushed a commit to branch master
in repository guix.
commit d822c592438d025107c95dc49435a4c9c3cfd863
Author: Xinglu Chen <[email protected]>
AuthorDate: Sun Jun 20 20:44:44 2021 +0200
etc: snippets: Use ‘hg-file-name’ when origin uses ‘hg-fetch’
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’.
Signed-off-by: Ludovic Courtès <[email protected]>
---
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 2820a36..eb0cdc8 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
