From 53a114dd456211364f729f74918775c9133cc67b Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Thu, 10 Feb 2022 00:00:37 +0530
Subject: forge: Print current commit before running CI job.

This aids debugging especially when a job fails.

* forge/build/git.scm (hline): New function.
(download-git-to-store): Add #:show-commit? keyword argument. When
show-commit? is #t, print current commit.
* forge/forge.scm (gexp-producer->job-script): Pass #t as
#:show-commit? to latest-git-checkout.
---
 forge/forge.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'forge/forge.scm')

diff --git a/forge/forge.scm b/forge/forge.scm
index d3bb879..199c4c3 100644
--- a/forge/forge.scm
+++ b/forge/forge.scm
@@ -217,7 +217,8 @@ derivation to run."
                           (run-with-store store
                             (mlet* %store-monad ((git-checkout (latest-git-checkout #$git-checkout-name
                                                                                     #$git-repository
-                                                                                    #$git-branch))
+                                                                                    #$git-branch
+                                                                                    #:show-commit? #t))
                                                  (tests-drv (gexp->derivation #$derivation-name
                                                               (#$gexp-producer git-checkout)
                                                               #:guile-for-build (read-derivation-from-file
-- 
cgit v1.2.3