branch: master
commit 480ae5440d1ebf04e5c18172bf2ccbe434e507a1
Author: Ludovic Courtès <[email protected]>
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)))
