packages: Patches can be any lowerable object.
* guix/packages.scm (patch-and-repack)[instantiate-patch]: Replace 'origin?' with 'struct?'.
This commit is contained in:
parent
0208476260
commit
7ebc6cf869
@ -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"))
|
||||
|
Loading…
Reference in New Issue
Block a user