From 20f85c2fdba3199aa14b6e314291577cf5b44611 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 8 Nov 2023 14:56:00 +0000 Subject: Create the pid file earlier --- bffe/server.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/bffe/server.scm b/bffe/server.scm index ff36a44..1940488 100644 --- a/bffe/server.scm +++ b/bffe/server.scm @@ -629,15 +629,15 @@ event-source controller-args))) - ;; Wait until the events channel catches up - (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))))) + ;; Wait until the events channel catches up + (while (< (get-state-id) initial-state-id) + (sleep 1)) + (simple-format #t "Starting the server\n") (run-server/patched (lambda (request body) (apply values -- cgit v1.2.3