From c4d6c32de39eedffb3c4c0982a85545472eef057 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 10 Nov 2023 11:02:03 +0000 Subject: Create the pid file even earlier --- bffe/server.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/bffe/server.scm b/bffe/server.scm index 1940488..76f8212 100644 --- a/bffe/server.scm +++ b/bffe/server.scm @@ -602,6 +602,11 @@ pid-file metrics-registry) + (when pid-file + (call-with-output-file pid-file + (lambda (port) + (simple-format port "~A\n" (getpid))))) + (let* ((state-channel (make-state-channel event-source)) @@ -629,11 +634,6 @@ event-source controller-args))) - (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)) -- cgit v1.2.3