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 @@ (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)