Message ID | e9914b0db3a5230f8d3a992a28104c194c4cce3b.1624214596.git.public@yoctocell.xyz |
---|---|
State | Accepted |
Headers | show |
Series | [bug#49141,v2] etc: snippets: Use ‘hg-file-name’ when origin uses ‘hg-fetch’ | expand |
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 |
Hi, Xinglu Chen <public@yoctocell.xyz> skribis: > 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’. Applied, thanks! Ludo’.
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