From b9f8ce17e4dbfb3f89bddcab0bc0396b4d790cb5 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 22 Oct 2020 14:21:19 +0100
Subject: services: guix-build-coordinator: Output the start script name.

As this can be useful for debugging purposes.

* gnu/services/guix.scm (make-guix-build-coordinator-start-script): Output the
current filename.
---
 gnu/services/guix.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'gnu')

diff --git a/gnu/services/guix.scm b/gnu/services/guix.scm
index 665267f5e3..1666733e9c 100644
--- a/gnu/services/guix.scm
+++ b/gnu/services/guix.scm
@@ -200,6 +200,8 @@ (define* (make-guix-build-coordinator-start-script database-uri-string
                       (guix-build-coordinator build-allocator)
                       (guix-build-coordinator coordinator))
 
+         (simple-format #t "starting the guix-build-coordinator:\n  ~A\n"
+                        (current-filename))
          (let* ((metrics-registry (make-metrics-registry
                                    #:namespace
                                    "guixbuildcoordinator_"))
-- 
cgit v1.2.3