me
/
guix
Archived
1
0
Fork 0

packages: Allow use of origins as patches.

* guix/packages.scm (patch-and-repack)[patch-inputs]: Use 'add-to-store'
  only if the PATCH is a file name, and 'package-source-derivation' if
  PATCH is an origin.
master
Ludovic Courtès 2014-09-24 19:07:22 +02:00
parent 8689901f95
commit 3f6f7b36d3
1 changed files with 6 additions and 2 deletions

View File

@ -345,8 +345,12 @@ IMPORTED-MODULES specify modules to use/import for use by SNIPPET."
(define patch-inputs
(map (lambda (number patch)
(list (string-append "patch" (number->string number))
(add-to-store store (basename patch) #t
"sha256" patch)))
(match patch
((? string?)
(add-to-store store (basename patch) #t
"sha256" patch))
((? origin?)
(package-source-derivation store patch)))))
(iota (length patches))
patches))