ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 22:38:07 -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
(match-lambda
((? string? patch) ;deprecated
(interned-file patch #:recursive? #t))
(local-file patch #:recursive? #t))
((? struct? patch) ;origin, local-file, etc.
(lower-object patch system))))
patch)))
(mlet %store-monad ((tar -> (lookup-input "tar"))
(gzip -> (lookup-input "gzip"))
(bzip2 -> (lookup-input "bzip2"))
(lzip -> (lookup-input "lzip"))
(xz -> (lookup-input "xz"))
(patch -> (lookup-input "patch"))
(locales -> (lookup-input "locales"))
(comp -> (and=> (compressor source-file-name)
lookup-input))
(patches (sequence %store-monad
(map instantiate-patch patches))))
(let ((tar (lookup-input "tar"))
(gzip (lookup-input "gzip"))
(bzip2 (lookup-input "bzip2"))
(lzip (lookup-input "lzip"))
(xz (lookup-input "xz"))
(patch (lookup-input "patch"))
(locales (lookup-input "locales"))
(comp (and=> (compressor source-file-name) lookup-input))
(patches (map instantiate-patch patches)))
(define build
(with-imported-modules '((guix build utils))
#~(begin