amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: mcron: Re-indent (arguments).

Browse source 
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 <ludo@gnu.org>
This commit is contained in:
Tomas Volf 2025-01-25 00:46:38 +01:00 • committed by Ludovic Courtès
parent f8743d4b24
commit b4b14a49cd
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 16 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

31
gnu/packages/guile-xyz.scm
View file

@ -3294,21 +3294,22 @@ is no support for parsing block and inline level HTML.")
#:configure-flags #:configure-flags
#~(list #~(list
"--with-sendmail=/run/privileged/bin/sendmail -t") "--with-sendmail=/run/privileged/bin/sendmail -t")
#:phases #~(modify-phases %standard-phases #:phases
(add-before 'check 'adjust-tests #~(modify-phases %standard-phases
(lambda _ (add-before 'check 'adjust-tests
(substitute* "tests/job-specifier.scm" (lambda _
;; (getpw) fails with "entry not found" in the build (substitute* "tests/job-specifier.scm"
;; environment, so pass an argument. ;; (getpw) fails with "entry not found" in the build
(("\\(getpw\\)") ;; environment, so pass an argument.
"(getpwnam (getuid))") (("\\(getpw\\)")
;; The build environment lacks an entry for root in "(getpwnam (getuid))")
;; /etc/passwd. ;; The build environment lacks an entry for root in
(("\\(getpw 0\\)") ;; /etc/passwd.
"(getpwnam \"nobody\")") (("\\(getpw 0\\)")
;; FIXME: Skip the 4 faulty tests (see above). "(getpwnam \"nobody\")")
(("\\(test-equal \"next-year\"" all) ;; FIXME: Skip the 4 faulty tests (see above).
(string-append "(test-skip 4)\n" all)))))))) (("\\(test-equal \"next-year\"" all)
(string-append "(test-skip 4)\n" all))))))))
(native-inputs (list autoconf (native-inputs (list autoconf
automake automake
guile-3.0 ;for 'guild compile' guile-3.0 ;for 'guild compile'