diff options
author | Ludovic Courtès <ludo@gnu.org> | 2024-06-12 09:42:25 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2024-06-12 09:45:44 +0200 |
commit | bb73faea028cc9a15af62cb8ade15d58da51bea2 (patch) | |
tree | f986f33ef1d88086a3ee57211f10befd0a56b895 /guix/hg-download.scm | |
parent | 30f0faafc4b1cb092d50b58b38db7435c8dbcfeb (diff) | |
download | guix-patches-bb73faea028cc9a15af62cb8ade15d58da51bea2.tar guix-patches-bb73faea028cc9a15af62cb8ade15d58da51bea2.tar.gz |
hg-download: Pass strings to ‘hg-fetch’.
Fixes a regression introduced in
275f27989175f31e9feb364ed7deac2435b08f68.
* guix/hg-download.scm (hg-fetch-builder): Remove calls to
‘string->symbol’.
Change-Id: I2e049d1ecb8860b6f946ca51358aaba22bdc9e2e
Diffstat (limited to 'guix/hg-download.scm')
-rw-r--r-- | guix/hg-download.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/hg-download.scm b/guix/hg-download.scm index 812017e73d..df48ed6eb7 100644 --- a/guix/hg-download.scm +++ b/guix/hg-download.scm @@ -105,8 +105,8 @@ (setvbuf (current-error-port) 'line) (or (and (download-method-enabled? 'upstream) - (hg-fetch (string->symbol (getenv "hg ref url")) - (string->symbol (getenv "hg ref changeset")) + (hg-fetch (getenv "hg ref url") + (getenv "hg ref changeset") #$output #:hg-command (string-append #+hg "/bin/hg"))) (and (download-method-enabled? 'nar) |