summaryrefslogtreecommitdiff
path: root/guix/import/print.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix/import/print.scm')
-rw-r--r--guix/import/print.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/import/print.scm b/guix/import/print.scm
index 471687c0ff..11cc218285 100644
--- a/guix/import/print.scm
+++ b/guix/import/print.scm
@@ -79,7 +79,9 @@ when evaluated."
(patches (origin-patches source)))
`(origin
(method ,(procedure-name method))
- (uri (string-append ,@(factorize-uri uri version)))
+ (uri (string-append ,@(match (factorize-uri uri version)
+ ((? string? uri) (list uri))
+ (factorized factorized))))
(sha256
(base32
,(format #f "~a" (bytevector->nix-base32-string sha256))))