70/97: gnu: go-github-com-go-git-go-git-v5: Update style.

[guix-commits]

sharlatan pushed a commit to branch go-team
in repository guix.

commit acd310438ce92c2e694d17fa88f7c0b286cad24b
Author: Sharlatan Hellseher <sharlatanus@gmail.com>
AuthorDate: Sat Sep 14 23:37:25 2024 +0100

    gnu: go-github-com-go-git-go-git-v5: Update style.
    
    * gnu/packages/version-control.scm (go-github-com-go-git-go-git-v5):
    Apply G-expression.
    
    Change-Id: I80fd085c8ea9bda9d7be45ee8965bbea50117516
---
 gnu/packages/version-control.scm | 31 +++++++++++++++----------------
 1 file changed, 15 insertions(+), 16 deletions(-)

diff --git a/gnu/packages/version-control.scm b/gnu/packages/version-control.scm
index c909077b88..45d47cb2fc 100644
--- a/gnu/packages/version-control.scm
+++ b/gnu/packages/version-control.scm
@@ -3845,22 +3845,21 @@ defects faster.")
                 "1vkcmhh2qq8c38sjbnzf0wvg2rzr19wssaq177bsvrjwj1xz1qbs"))))
     (build-system go-build-system)
     (arguments
-     `(#:tests? #f ;requires network connection
-       #:import-path "github.com/go-git/go-git/v5"
-       #:phases
-       (modify-phases %standard-phases
-         (add-before 'build 'setup
-           (lambda* (#:key inputs #:allow-other-keys)
-             (let* ((git (assoc-ref inputs "git"))
-                    (git-bin (string-append (assoc-ref inputs "git") "/bin"))
-                    (git-exe (string-append git-bin "/git")))
-               (setenv "GIT_DIST_PATH=" git)
-               (setenv "GIT_EXEC_PATH=" git-bin)
-               (setenv "HOME" (getcwd))
-               (invoke git-exe "config" "--global" "user.email" 
"gha@example.com")
-               (invoke git-exe "config" "--global" "user.name" "GitHub 
Actions")
-               #t)
-             #t)))))
+     (list
+      #:tests? #f ;requires network connection
+      #:import-path "github.com/go-git/go-git/v5"
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-before 'build 'setup
+            (lambda* (#:key inputs #:allow-other-keys)
+              (let* ((git #$(this-package-native-input "git"))
+                     (git-bin (string-append git "/bin"))
+                     (git-exe (string-append git-bin "/git")))
+                (setenv "GIT_DIST_PATH=" git)
+                (setenv "GIT_EXEC_PATH=" git-bin)
+                (setenv "HOME" (getcwd))
+                (invoke git-exe "config" "--global" "user.email" 
"gha@example.com")
+                (invoke git-exe "config" "--global" "user.name" "GitHub 
Actions")))))))
     (propagated-inputs
      (list go-github-com-alcortesm-tgz
            go-github-com-emirpasic-gods