From 8d774650a87b3116396a2426bdd94ce3a225b2bc Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 14 Mar 2024 09:36:33 +0000 Subject: Support not running the web server --- bffe.scm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/bffe.scm b/bffe.scm index 63bc72b..5b3d428 100644 --- a/bffe.scm +++ b/bffe.scm @@ -40,7 +40,7 @@ "bffe")) (build '()) pid-file - web-server-args) + (web-server-args '())) (let ((lgr (make )) (port-log (make #:port (current-output-port) @@ -65,10 +65,11 @@ (for-each start-submit-builds-fibers build) - (apply start-bffe-web-server - `(,@web-server-args - #:pid-file ,pid-file - #:metrics-registry ,metrics-registry)) + (when web-server-args + (apply start-bffe-web-server + `(,@web-server-args + #:pid-file ,pid-file + #:metrics-registry ,metrics-registry))) (wait finished?)) #:hz 0 #:parallelism 1)) -- cgit v1.2.3