From bb73faea028cc9a15af62cb8ade15d58da51bea2 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 12 Jun 2024 09:42:25 +0200
Subject: hg-download: Pass strings to ‘hg-fetch’.
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(-)

(limited to 'guix/hg-download.scm')

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)
-- 
cgit v1.2.3