From d8c19e13e30c895f1092d2db5c6c06a35fac83cb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Carlos=20Dur=C3=A1n=20Dom=C3=ADnguez?= Date: Wed, 25 Feb 2026 05:27:58 +0100 Subject: [PATCH] gnu: burp: Improve style. * gnu/packages/backup.scm (burp): Use G-expressions. [arguments]: Use G-expressions. Change-Id: I56ab9b7a686997014d378612cf2e3901771848a5 Signed-off-by: Andreas Enge --- gnu/packages/backup.scm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm index 534674bc6b..b303c5cde1 100644 --- a/gnu/packages/backup.scm +++ b/gnu/packages/backup.scm @@ -1202,15 +1202,15 @@ additional snapshots).") (file-name (git-file-name name version)))) (build-system gnu-build-system) (arguments - `(#:phases - (modify-phases %standard-phases - (add-before 'check 'extend-test-time-outs - ;; The defaults are far too low for busy boxes & spinning storage. - (lambda _ - (substitute* (find-files "utest" "\\.c$") - (("(tcase_set_timeout\\(tc_core,)[ 0-9]*(\\);.*)$" _ prefix suffix) - (string-append prefix " 3600" suffix "\n"))) - #t))))) + (list + #:phases + #~(modify-phases %standard-phases + (add-before 'check 'extend-test-time-outs + ;; The defaults are far too low for busy boxes & spinning storage. + (lambda _ + (substitute* (find-files "utest" "\\.c$") + (("(tcase_set_timeout\\(tc_core,)[ 0-9]*(\\);.*)$" _ prefix suffix) + (string-append prefix " 3600" suffix "\n")))))))) (inputs (list acl librsync