[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
08/13: gnu: direvent: Use G-expressions.
From: |
guix-commits |
Subject: |
08/13: gnu: direvent: Use G-expressions. |
Date: |
Mon, 3 Jan 2022 23:39:18 -0500 (EST) |
nckx pushed a commit to branch master
in repository guix.
commit 65fdb84d7ceff38b542ed129489fc14ce7612334
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Tue Jan 4 04:33:12 2022 +0100
gnu: direvent: Use G-expressions.
* gnu/packages/admin.scm (direvent)[source, arguments]:
Rewrite using G-expressions. Don't explicitly return #t from phases.
---
gnu/packages/admin.scm | 43 +++++++++++++++++++++----------------------
1 file changed, 21 insertions(+), 22 deletions(-)
diff --git a/gnu/packages/admin.scm b/gnu/packages/admin.scm
index 5181b3046c..48a65e649b 100644
--- a/gnu/packages/admin.scm
+++ b/gnu/packages/admin.scm
@@ -76,6 +76,7 @@
#:use-module (guix build-system trivial)
#:use-module (guix download)
#:use-module (guix git-download)
+ #:use-module (guix gexp)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix packages)
#:use-module (guix utils)
@@ -2387,30 +2388,28 @@ features of ls(1), find(1), stat(1) and du(1).")
(base32
"0m9vi01b1km0cpknflyzsjnknbava0s1n6393b2bpjwyvb6j5613"))
(modules '((guix build utils)))
- (snippet '(begin
- (substitute* "tests/testsuite"
- (("#![[:blank:]]?/bin/sh")
- "#!$SHELL"))
- #t))))
+ (snippet
+ #~(begin
+ (substitute* "tests/testsuite"
+ (("#![[:blank:]]?/bin/sh")
+ "#!$SHELL"))))))
(build-system gnu-build-system)
(arguments
- '(#:phases
- (modify-phases %standard-phases
- (add-before 'build 'patch-/bin/sh
- (lambda* (#:key inputs #:allow-other-keys)
- ;; Use the right shell when executing the watcher and
- ;; user-provided shell commands.
- (let ((bash (assoc-ref inputs "bash")))
- (substitute* '("src/direvent.c" "src/progman.c")
- (("\"/bin/sh\"")
- (string-append "\"" bash "/bin/sh\"")))
-
- ;; Adjust the 'shell.at' test accordingly.
- (substitute* "tests/testsuite"
- (("SHELL=/bin/sh")
- (string-append "SHELL=" bash "/bin/sh")))
-
- #t))))))
+ (list #:phases
+ #~(modify-phases %standard-phases
+ (add-before 'build 'patch-/bin/sh
+ (lambda* (#:key inputs #:allow-other-keys)
+ ;; Use the right shell when executing the watcher and
+ ;; user-provided shell commands.
+ (let ((bash (assoc-ref inputs "bash")))
+ (substitute* '("src/direvent.c" "src/progman.c")
+ (("\"/bin/sh\"")
+ (string-append "\"" bash "/bin/sh\"")))
+
+ ;; Adjust the 'shell.at' test accordingly.
+ (substitute* "tests/testsuite"
+ (("SHELL=/bin/sh")
+ (string-append "SHELL=" bash "/bin/sh")))))))))
(home-page "https://www.gnu.org.ua/software/direvent/")
(synopsis "Daemon to monitor directories for events such as file removal")
(description
- branch master updated (80ebf564e3 -> 44fdd27bf2), guix-commits, 2022/01/03
- 04/13: gnu: rinutils: Use G-expressions., guix-commits, 2022/01/03
- 03/13: gnu: shlomif-cmake-modules: Update to 89f05caf86078f783873975525230cf4fecede8a., guix-commits, 2022/01/03
- 02/13: gnu: Add perl-app-xml-docbook-builder., guix-commits, 2022/01/03
- 06/13: gnu: fortune-mod: Use G-expressions., guix-commits, 2022/01/03
- 01/13: gnu: fasm: Update to 1.73.29., guix-commits, 2022/01/03
- 05/13: gnu: rinutils: Update to 0.10.0., guix-commits, 2022/01/03
- 08/13: gnu: direvent: Use G-expressions.,
guix-commits <=
- 10/13: gnu: pgloader: Update to 3.6.3., guix-commits, 2022/01/03
- 13/13: gnu: diffoscope: Update to 198., guix-commits, 2022/01/03
- 07/13: gnu: fortune-mod: Update to 3.12.0., guix-commits, 2022/01/03
- 11/13: gnu: pgloader: Use G-expressions., guix-commits, 2022/01/03
- 12/13: gnu: mpv: Update to 0.34.1., guix-commits, 2022/01/03
- 09/13: gnu: direvent: Update to 5.3., guix-commits, 2022/01/03