diff options
| -rw-r--r-- | bffe.scm | 11 |
1 files changed, 6 insertions, 5 deletions
@@ -40,7 +40,7 @@ "bffe")) (build '()) pid-file - web-server-args) + (web-server-args '())) (let ((lgr (make <logger>)) (port-log (make <port-log> #: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)) |