diff options
| author | Carlos Durán Domínguez <wurt@wurt.eu> | 2026-02-25 05:27:58 +0100 |
|---|---|---|
| committer | Andreas Enge <andreas@enge.fr> | 2026-02-25 14:16:28 +0100 |
| commit | d8c19e13e30c895f1092d2db5c6c06a35fac83cb (patch) | |
| tree | 20e4528e6c6b4d52c0b238e4895418216a8d6440 | |
| parent | a330b49452132fefe8d9c84726a19dd51a439df0 (diff) | |
gnu: burp: Improve style.
* gnu/packages/backup.scm (burp): Use G-expressions.
[arguments]: Use G-expressions.
Change-Id: I56ab9b7a686997014d378612cf2e3901771848a5
Signed-off-by: Andreas Enge <andreas@enge.fr>
| -rw-r--r-- | gnu/packages/backup.scm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gnu/packages/backup.scm b/gnu/packages/backup.scm index 534674bc6be..b303c5cde13 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 |