tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-07 05:30:38 +02:00
Code Activity

gnu: burp: Improve style.

Browse Source 
* gnu/packages/backup.scm (burp): Use G-expressions.
[arguments]: Use G-expressions.

Change-Id: I56ab9b7a686997014d378612cf2e3901771848a5
Signed-off-by: Andreas Enge <andreas@enge.fr>
This commit is contained in:
Carlos Durán Domínguez
2026-02-25 05:27:58 +01:00
committed by Andreas Enge
parent a330b49452
commit d8c19e13e3
1 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
gnu/packages/backup.scm
View File

@@ -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