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

packages: Simplify patch instantiation. 

* 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 @@ specifies modules in scope when evaluating SNIPPET."
(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