Include commits in the log-prefix when submitting buildstest

1 files changed, 6 insertions, 5 deletions

diff --git a/bffe/manage-builds.scm b/bffe/manage-builds.scm
index 3ed2e6e..3ba9525 100644
--- a/bffe/manage-builds.scm
+++ b/bffe/manage-builds.scm
@@ -266,7 +266,8 @@
               (random-v4-uuid)
               derivation
               #:log-prefix
-              (simple-format #f "channel instance (~A): ~A: "
+              (simple-format #f "~A: channel instance (~A): ~A: "
+                             commit
                              system
                              derivation)
               #:tags `(((key . category)
@@ -324,10 +325,10 @@
             derivation
             #:log-prefix
             (if (string=? target "none")
-                (simple-format #f "package (~A): ~A: "
-                               system derivation)
-                (simple-format #f "package (~A=>~A): ~A: "
-                               system target derivation))
+                (simple-format #f "~A: package (~A): ~A: "
+                               commit system derivation)
+                (simple-format #f "~A package (~A=>~A): ~A: "
+                               commit system target derivation))
             #:tags `(((key . category)
                       (value . package))
                      ((key . revision)