Support not running the web server

1 files 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 <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))