From bb73faea028cc9a15af62cb8ade15d58da51bea2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 12 Jun 2024 09:42:25 +0200
Subject: [PATCH] =?UTF-8?q?hg-download:=20Pass=20strings=20to=20=E2=80=98h?=
 =?UTF-8?q?g-fetch=E2=80=99.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Fixes a regression introduced in
275f27989175f31e9feb364ed7deac2435b08f68.

* guix/hg-download.scm (hg-fetch-builder): Remove calls to
‘string->symbol’.

Change-Id: I2e049d1ecb8860b6f946ca51358aaba22bdc9e2e
---
 guix/hg-download.scm | 4 ++--
 1 file 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 @@ (define modules
           (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)