packages: Patches can be any lowerable object.

* guix/packages.scm (patch-and-repack)[instantiate-patch]: Replace
'origin?' with 'struct?'.
This commit is contained in:
Ludovic Courtès 2017-06-15 18:07:10 +02:00 committed by Ludovic Courtès
parent 0208476260
commit 7ebc6cf869
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5

@ -477,10 +477,10 @@ specifies modules in scope when evaluating SNIPPET."
(define instantiate-patch
(match-lambda
((? string? patch)
((? string? patch) ;deprecated
(interned-file patch #:recursive? #t))
((? origin? patch)
(origin->derivation patch system))))
((? struct? patch) ;origin, local-file, etc.
(lower-object patch system))))
(mlet %store-monad ((tar -> (lookup-input "tar"))
(xz -> (lookup-input "xz"))