TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

packages: Patches can be any lowerable object.

Browse source 
* 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 @@ (define (tarxz-name file-name)
(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"))