diff options
Diffstat (limited to 'bffe/server.scm')
| -rw-r--r-- | bffe/server.scm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/bffe/server.scm b/bffe/server.scm index 40b3193..e929df9 100644 --- a/bffe/server.scm +++ b/bffe/server.scm @@ -538,6 +538,7 @@ (assets-directory (%config 'assets-dir)) (event-source "http://localhost:8746") (controller-args '()) + pid-file metrics-registry) (define state-channel @@ -579,6 +580,11 @@ (while (< (get-state-id) initial-state-id) (sleep 1)) + (when pid-file + (call-with-output-file pid-file + (lambda (port) + (simple-format port "~A\n" (getpid))))) + (simple-format #t "Starting the server\n") (run-server/patched (lambda (request body) (apply values |