diff options
author | Christopher Baines <mail@cbaines.net> | 2020-06-19 18:37:31 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-06-19 18:37:31 +0100 |
commit | e7bd8193a036a9133d2032adecad017e1716719b (patch) | |
tree | 382203bd4a1a434eb5265664db693778499d3f9b | |
parent | 89c2823f1a332da9e9ea3a4f84ef27cce7e22a3a (diff) | |
download | build-coordinator-e7bd8193a036a9133d2032adecad017e1716719b.tar build-coordinator-e7bd8193a036a9133d2032adecad017e1716719b.tar.gz |
Remove left over debugging
-rw-r--r-- | scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in b/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in index 664c442..40d71e2 100644 --- a/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in +++ b/scripts/guix-build-coordinator-queue-builds-from-guix-data-service.in @@ -179,7 +179,6 @@ (define %options (list (option '("system") #t #f (lambda (opt name arg result) - (peek "ARG" arg) (alist-cons 'systems-and-targets `((,arg . "none") ,@(or (assq-ref result 'systems-and-targets) '())) @@ -217,7 +216,7 @@ (systems-and-targets (assq-ref opts 'systems-and-targets))) - (unless (peek systems-and-targets) + (unless systems-and-targets (simple-format (current-error-port) "error: you must specify at least one system to fetch builds for\n") (exit 1)) |