hg-download: Pass strings to ‘hg-fetch’.

Fixes a regression introduced in
275f279891.

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

Change-Id: I2e049d1ecb8860b6f946ca51358aaba22bdc9e2e
This commit is contained in:
Ludovic Courtès 2024-06-12 09:42:25 +02:00
parent 30f0faafc4
commit bb73faea02
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5

View File

@ -105,8 +105,8 @@
(setvbuf (current-error-port) 'line) (setvbuf (current-error-port) 'line)
(or (and (download-method-enabled? 'upstream) (or (and (download-method-enabled? 'upstream)
(hg-fetch (string->symbol (getenv "hg ref url")) (hg-fetch (getenv "hg ref url")
(string->symbol (getenv "hg ref changeset")) (getenv "hg ref changeset")
#$output #$output
#:hg-command (string-append #+hg "/bin/hg"))) #:hg-command (string-append #+hg "/bin/hg")))
(and (download-method-enabled? 'nar) (and (download-method-enabled? 'nar)