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 | |
| parent | cb8e483c78eed9693c2b68ce490742e58c1efc13 (diff) | |
| download | guix-027c21dcf7b81f47c4f0ab5bd429aa2c781e3757.tar.gz | |
gnu: butt: Use G-expressions.
* gnu/packages/audio.scm (butt)[arguments]: Rewrite as G-expressions.
| -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" |