forge: Implement our own git downloader.

Implement our own git downloader independent of that provided by
Guix. This is required for better control of the output, and to later
print the current git commit.

* forge/build/git.scm: Do not import (guix build git). Import (rnrs
exceptions).
(download-git-to-store): Do not accept #:git-command argument. Expect
git and nss-certs to be in the environment. Do not call git-fetch
from (guix build git).
* forge/forge.scm: Import nss-certs from (gnu packages certs).
(gexp-producer->job-script): Run in environment with the git-minimal
and nss-certs packages. Do not pass #:git-command to
latest-git-checkout.

1 files changed, 29 insertions, 28 deletions

diff --git a/forge/forge.scm b/forge/forge.scm
index 11a1e92..d3bb879 100644
--- a/forge/forge.scm
+++ b/forge/forge.scm
@@ -22,6 +22,7 @@
   #:use-module (srfi srfi-1)
   #:use-module (srfi srfi-26)
   #:use-module (ice-9 match)
+  #:use-module ((gnu packages certs) #:select (nss-certs))
   #:use-module (gnu packages ci)
   #:use-module ((gnu packages gnupg) #:select (guile-gcrypt))
   #:use-module ((gnu packages guile) #:select (guile-3.0 guile-zlib))
@@ -198,35 +199,35 @@ derivation to run."
                                                   (guix profiles))
                                                 #:select? import-module?)
     (with-extensions (list guile-gcrypt guile-zlib)
-      #~(begin
-          (use-modules (forge build git)
-                       (guix derivations)
-                       (guix gexp)
-                       (guix monads)
-                       (guix store)
-                       (rnrs exceptions))
+      (with-packages (list git-minimal nss-certs)
+        #~(begin
+            (use-modules (forge build git)
+                         (guix derivations)
+                         (guix gexp)
+                         (guix monads)
+                         (guix store)
+                         (rnrs exceptions))
 
-          (parameterize ((%daemon-socket-uri #$guix-daemon-uri))
-            (with-store store
-              (guard (condition ((store-protocol-error? condition)
-                                 (exit #f)))
-                (format (current-error-port)
-                        "Built ~a successfully~%"
-                        (run-with-store store
-                          (mlet* %store-monad ((git-checkout (latest-git-checkout #$git-checkout-name
-                                                                                  #$git-repository
-                                                                                  #$git-branch
-                                                                                  #:git-command #$(file-append git-minimal "/bin/git")))
-                                               (tests-drv (gexp->derivation #$derivation-name
-                                                            (#$gexp-producer git-checkout)
-                                                            #:guile-for-build (read-derivation-from-file
-                                                                               #$(raw-derivation-file
-                                                                                  (with-store store
-                                                                                    (package-derivation store guile-3.0))))
-                                                            #:substitutable? #f)))
-                            (mbegin %store-monad
-                              (built-derivations (list tests-drv))
-                              (return (derivation->output-path tests-drv)))))))))))))
+            (parameterize ((%daemon-socket-uri #$guix-daemon-uri))
+              (with-store store
+                (guard (condition ((store-protocol-error? condition)
+                                   (exit #f)))
+                  (format (current-error-port)
+                          "Built ~a successfully~%"
+                          (run-with-store store
+                            (mlet* %store-monad ((git-checkout (latest-git-checkout #$git-checkout-name
+                                                                                    #$git-repository
+                                                                                    #$git-branch))
+                                                 (tests-drv (gexp->derivation #$derivation-name
+                                                              (#$gexp-producer git-checkout)
+                                                              #:guile-for-build (read-derivation-from-file
+                                                                                 #$(raw-derivation-file
+                                                                                    (with-store store
+                                                                                      (package-derivation store guile-3.0))))
+                                                              #:substitutable? #f)))
+                              (mbegin %store-monad
+                                (built-derivations (list tests-drv))
+                                (return (derivation->output-path tests-drv))))))))))))))
 
 (define forge-service-type
   (service-type