nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
guix/packages.scm
View File

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