kreyren/guix-kreyren
1
0
Fork 0
Code Issues 1 Pull Requests 1 Releases Activity

gnu: boxes: Match over CAR/CDR.

Browse Source 
* gnu/packages/shellutils.scm (boxes)[arguments]: Import (ice-9 match)
and use it to replace the 'install phases's CAR & CDR usage.
This commit is contained in:
Tobias Geerinckx-Rice 2021-10-21 22:18:38 +02:00
parent ed0215d3f9
commit 980146637c
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
gnu/packages/shellutils.scm
View File

@ -72,18 +72,22 @@
#:make-flags (list (string-append "GLOBALCONF=" #:make-flags (list (string-append "GLOBALCONF="
(assoc-ref %outputs "out") (assoc-ref %outputs "out")
"/etc/boxes-config")) "/etc/boxes-config"))
#:modules
((ice-9 match)
,@%gnu-build-system-modules)
#:phases #:phases
(modify-phases %standard-phases (modify-phases %standard-phases
(delete 'configure) (delete 'configure)
(replace 'install (replace 'install
(lambda* (#:key outputs #:allow-other-keys) (lambda* (#:key outputs #:allow-other-keys)
(let ((dest (assoc-ref outputs "out"))) (let ((out (assoc-ref outputs "out")))
(for-each (lambda (x) (for-each (match-lambda
(install-file (car x) ((source target)
(string-append dest "/" (cdr x)))) (install-file source
'(("out/boxes" . "bin") (string-append out "/" target))))
("doc/boxes.1" . "share/man/man1") '(("out/boxes" "bin/")
("boxes-config" . "etc/"))))))))) ("doc/boxes.1" "share/man/man1/")
("boxes-config" "etc/")))))))))
(native-inputs (native-inputs
`(("bison" ,bison) `(("bison" ,bison)
("flex" ,flex) ("flex" ,flex)