Support creating a PID file

1 files changed, 2 insertions, 0 deletions

diff --git a/bffe.scm b/bffe.scm
index 1a137e4..e190ead 100644
--- a/bffe.scm
+++ b/bffe.scm
@@ -33,6 +33,7 @@
             #:namespace
             "bffe"))
           (build '())
+          pid-file
           web-server-args)
   (let ((lgr      (make <logger>))
         (port-log (make <port-log>
@@ -55,4 +56,5 @@
 
     (apply start-bffe-web-server
            `(,@web-server-args
+             #:pid-file ,pid-file
              #:metrics-registry ,metrics-registry))))