diff options
author | Tobias Geerinckx-Rice <me@tobias.gr> | 2022-05-01 02:00:01 +0200 |
---|---|---|
committer | Tobias Geerinckx-Rice <me@tobias.gr> | 2022-05-01 02:00:06 +0200 |
commit | 027c21dcf7b81f47c4f0ab5bd429aa2c781e3757 (patch) | |
tree | acf5afb6474639ca9303b4a106fb5ec913661321 /gnu/packages | |
parent | cb8e483c78eed9693c2b68ce490742e58c1efc13 (diff) | |
download | guix-patches-027c21dcf7b81f47c4f0ab5bd429aa2c781e3757.tar guix-patches-027c21dcf7b81f47c4f0ab5bd429aa2c781e3757.tar.gz |
gnu: butt: Use G-expressions.
* gnu/packages/audio.scm (butt)[arguments]:
Rewrite as G-expressions.
Diffstat (limited to 'gnu/packages')
-rw-r--r-- | gnu/packages/audio.scm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gnu/packages/audio.scm b/gnu/packages/audio.scm index b75a00d89f..4aa302b59d 100644 --- a/gnu/packages/audio.scm +++ b/gnu/packages/audio.scm @@ -5466,15 +5466,15 @@ while still staying in time.") ((".*zica.*") ""))))) (build-system gnu-build-system) (arguments - `(#:phases - (modify-phases %standard-phases - (add-after 'install 'install-documentation - (lambda* (#:key inputs outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (manual (assoc-ref inputs "manual")) - (doc (string-append out "/share/doc/" ,name "-" ,version))) - (install-file "README" doc) - (copy-file manual (string-append doc "/butt-manual.pdf")))))))) + (list #:phases + #~(modify-phases %standard-phases + (add-after 'install 'install-documentation + (lambda _ + (let ((doc (string-append #$output "/share/doc/" + #$name "-" #$version))) + (install-file "README" doc) + (copy-file #$(this-package-native-input "manual") + (string-append doc "/butt-manual.pdf")))))))) (native-inputs `(("pkg-config" ,pkg-config) ("manual" |