guix_mirror_bot pushed a commit to branch master
in repository guix.
commit 1961dd6a1869b021ad2274f6fa4520e2597bf578
Author: Artyom V. Poptsov <[email protected]>
AuthorDate: Wed Nov 5 00:00:37 2025 +0300
gnu: tla: Modernize the package.
* gnu/packages/version-control.scm (tla): Modernize the package.
[source]<snippet>: Don't return #t.
[arguments]<#:phases>: Use GEXPs.
Change-Id: I80e18380ae0c1f73515ef1e7943793fc0c38eeb2
---
gnu/packages/version-control.scm | 39 ++++++++++++++++++---------------------
1 file changed, 18 insertions(+), 21 deletions(-)
diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index a5ff72e57e..0af23f0f49 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -4369,34 +4369,31 @@ guessing the URL pattern from the @code{origin}
remote.")
;; error, so address that.
(substitute* "src/tla/libarch/archive.c"
(("\"--preserve\"")
- "\"--preserve-permissions\""))
- #t))))
+ "\"--preserve-permissions\""))))))
(build-system gnu-build-system)
(arguments
- '(#:phases (modify-phases %standard-phases
- (replace 'configure
- (lambda* (#:key inputs outputs #:allow-other-keys)
- (let ((out (assoc-ref outputs "out")))
- (chdir "src")
-
- (mkdir "=build")
- (chdir "=build")
+ (list #:phases #~(modify-phases %standard-phases
+ (replace 'configure
+ (lambda _
+ (chdir "src")
- ;; For libneon's 'configure' script.
- ;; XXX: There's a bundled copy of neon.
- (setenv "CONFIG_SHELL" (which "sh"))
+ (mkdir "=build")
+ (chdir "=build")
- (invoke "../configure" "--prefix" out
- "--config-shell" (which "sh")
- "--with-posix-shell" (which "sh")
- "--with-cc" "gcc")))))
+ ;; For libneon's 'configure' script.
+ ;; XXX: There's a bundled copy of neon.
+ (setenv "CONFIG_SHELL" (which "sh"))
+ (invoke "../configure" "--prefix" #$output
+ "--config-shell" (which "sh")
+ "--with-posix-shell" (which "sh")
+ "--with-cc" "gcc"))))
- ;; There are build failures when building in parallel.
- #:parallel-build? #f
- #:parallel-tests? #f
+ ;; There are build failures when building in parallel.
+ #:parallel-build? #f
+ #:parallel-tests? #f
- #:test-target "test"))
+ #:test-target "test"))
(native-inputs
(list gcc-10 which))
(synopsis "Historical distributed version-control system")
