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.
This commit is contained in:
Ludovic Courtès 2014-09-24 19:07:22 +02:00
parent 8689901f95
commit 3f6f7b36d3

View file

@ -345,8 +345,12 @@ (define (tarxz-name file-name)
(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))