[no subject]

[Ludovic Courtès]

branch: master
commit 480ae5440d1ebf04e5c18172bf2ccbe434e507a1
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Jun 28 23:41:15 2023 +0200

    Show the right program name in '--version'.
    
    * src/cuirass/scripts/remote-server.scm (%options): Fix program name
    passed as a 'show-version-and-exit' argument.
    * src/cuirass/scripts/remote-worker.scm (%options): Likewise.
---
 src/cuirass/scripts/remote-server.scm | 2 +-
 src/cuirass/scripts/remote-worker.scm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cuirass/scripts/remote-server.scm 
b/src/cuirass/scripts/remote-server.scm
index e93b2b6..51ee069 100644
--- a/src/cuirass/scripts/remote-server.scm
+++ b/src/cuirass/scripts/remote-server.scm
@@ -142,7 +142,7 @@ Start a remote build server.\n") (%program-name))
                   (exit 0)))
         (option '(#\V "version") #f #f
                 (lambda _
-                  (show-version-and-exit "guix publish")))
+                  (show-version-and-exit "cuirass remote-server")))
         (option '(#\b "backend-port") #t #f
                 (lambda (opt name arg result)
                   (alist-cons 'backend-port (string->number* arg) result)))
diff --git a/src/cuirass/scripts/remote-worker.scm 
b/src/cuirass/scripts/remote-worker.scm
index 1c47950..6bdb5c8 100644
--- a/src/cuirass/scripts/remote-worker.scm
+++ b/src/cuirass/scripts/remote-worker.scm
@@ -110,7 +110,7 @@ Start a remote build worker.\n" (%program-name))
                   (exit 0)))
         (option '(#\V "version") #f #f
                 (lambda _
-                  (show-version-and-exit "guix publish")))
+                  (show-version-and-exit "cuirass remote-worker")))
         (option '(#\w "workers") #t #f
                 (lambda (opt name arg result)
                   (alist-cons 'workers (string->number* arg) result)))