From b4b14a49cd2438d58f99787f768523bff080cdfd Mon Sep 17 00:00:00 2001 From: Tomas Volf <~@wolfsden.cz> Date: Sat, 25 Jan 2025 00:46:38 +0100 Subject: [PATCH] gnu: mcron: Re-indent (arguments). MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit The more common formatting style for arguments seems to be to align the value under the keyword. This commit adjusts the definition to match that style. * gnu/packages/guile-xyz.scm (mcron)[arguments]: Re-indent. Change-Id: I5d3be19e41828db43af70207cb28b14c35d13419 Signed-off-by: Ludovic Courtès --- gnu/packages/guile-xyz.scm | 31 ++++++++++++++++--------------- 1 file changed, 16 insertions(+), 15 deletions(-) diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm index 1677914682617abd227e9ffd9b0f54e10925d483..21eb8c34144037d63947bea4436fc4b11e6a5cbb 100644 --- a/gnu/packages/guile-xyz.scm +++ b/gnu/packages/guile-xyz.scm @@ -3294,21 +3294,22 @@ is no support for parsing block and inline level HTML.") #:configure-flags #~(list "--with-sendmail=/run/privileged/bin/sendmail -t") - #:phases #~(modify-phases %standard-phases - (add-before 'check 'adjust-tests - (lambda _ - (substitute* "tests/job-specifier.scm" - ;; (getpw) fails with "entry not found" in the build - ;; environment, so pass an argument. - (("\\(getpw\\)") - "(getpwnam (getuid))") - ;; The build environment lacks an entry for root in - ;; /etc/passwd. - (("\\(getpw 0\\)") - "(getpwnam \"nobody\")") - ;; FIXME: Skip the 4 faulty tests (see above). - (("\\(test-equal \"next-year\"" all) - (string-append "(test-skip 4)\n" all)))))))) + #:phases + #~(modify-phases %standard-phases + (add-before 'check 'adjust-tests + (lambda _ + (substitute* "tests/job-specifier.scm" + ;; (getpw) fails with "entry not found" in the build + ;; environment, so pass an argument. + (("\\(getpw\\)") + "(getpwnam (getuid))") + ;; The build environment lacks an entry for root in + ;; /etc/passwd. + (("\\(getpw 0\\)") + "(getpwnam \"nobody\")") + ;; FIXME: Skip the 4 faulty tests (see above). + (("\\(test-equal \"next-year\"" all) + (string-append "(test-skip 4)\n" all)))))))) (native-inputs (list autoconf automake guile-3.0 ;for 'guild compile'