ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-28 07:12:30 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

packages: Simplify patch instantiation.

Browse source 
* guix/packages.scm (patch-and-repack)[instantiate-patch]: Use
'local-file' instead of 'interned-file'.  When PATCH is a struct, return
it.  Use 'let' instead of 'mlet'.
This commit is contained in:
Ludovic Courtès 2017-06-25 15:31:37 +02:00
parent ba41f87ec7
commit 37c32caf2c
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 11 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
guix/packages.scm
View file

@ -642,21 +642,19 @@ (define (tarxz-name file-name)
(define instantiate-patch (define instantiate-patch
(match-lambda (match-lambda
((? string? patch) ;deprecated ((? string? patch) ;deprecated
(interned-file patch #:recursive? #t)) (local-file patch #:recursive? #t))
((? struct? patch) ;origin, local-file, etc. ((? struct? patch) ;origin, local-file, etc.
(lower-object patch system)))) patch)))
(mlet %store-monad ((tar -> (lookup-input "tar")) (let ((tar (lookup-input "tar"))
(gzip -> (lookup-input "gzip")) (gzip (lookup-input "gzip"))
(bzip2 -> (lookup-input "bzip2")) (bzip2 (lookup-input "bzip2"))
(lzip -> (lookup-input "lzip")) (lzip (lookup-input "lzip"))
(xz -> (lookup-input "xz")) (xz (lookup-input "xz"))
(patch -> (lookup-input "patch")) (patch (lookup-input "patch"))
(locales -> (lookup-input "locales")) (locales (lookup-input "locales"))
(comp -> (and=> (compressor source-file-name) (comp (and=> (compressor source-file-name) lookup-input))
lookup-input)) (patches (map instantiate-patch patches)))
(patches (sequence %store-monad
(map instantiate-patch patches))))
(define build (define build
(with-imported-modules '((guix build utils)) (with-imported-modules '((guix build utils))
#~(begin #~(begin