From 027c21dcf7b81f47c4f0ab5bd429aa2c781e3757 Mon Sep 17 00:00:00 2001
From: Tobias Geerinckx-Rice <me@tobias.gr>
Date: Sun, 1 May 2022 02:00:01 +0200
Subject: gnu: butt: Use G-expressions.

* gnu/packages/audio.scm (butt)[arguments]:
Rewrite as G-expressions.
---
 gnu/packages/audio.scm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'gnu/packages')

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"
-- 
cgit v1.2.3

='hidden' name='id' value='a7790d30857cd2bbfcc8691f7f4b60779459de49'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=a7790d30857cd2bbfcc8691f7f4b60779459de49'>root</a>/<a href='/guix/log/build-aux?id=a7790d30857cd2bbfcc8691f7f4b60779459de49'>build-aux</a>/<a href='/guix/log/build-aux/pre-inst-env.in?id=a7790d30857cd2bbfcc8691f7f4b60779459de49'>pre-inst-env.in</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/build-aux/pre-inst-env.in?id=a7790d30857cd2bbfcc8691f7f4b60779459de49&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2020-08-29 16:24:17 +0200'>2020-08-29</span></td><td><a href='/guix/commit/build-aux/pre-inst-env.in?id=d7965b58d25c9c7648ba5682223f32d759fdffda'>build: Remove references to the 'nix-hash' program.</a><span class='msg-avail'>...<span class='msg-tooltip'>* configure.ac: Remove check for 'nix-hash'.
* tests/base32.scm (%nix-hash, %have-nix-hash?): Remove.
("sha256 &amp; bytevector-&gt;nix-base32-string"): Remove test.
* build-aux/pre-inst-env.in: Do not set 'NIX_HASH' environment
variable.
</span></span></td><td>Ludovic Courtès</td></tr>