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:
parent
30f0faafc4
commit
bb73faea02
@ -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)
|
||||||
|
Loading…
Reference in New Issue
Block a user