diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-11-08 14:56:00 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-11-08 14:56:00 +0000 |
| commit | 20f85c2fdba3199aa14b6e314291577cf5b44611 (patch) | |
| tree | 55c280c98217901e80cc366610232b2ec3813d60 | |
| parent | 722c37ec8a23835edfc85cba3d89868592a2ed2d (diff) | |
| download | bffe-20f85c2fdba3199aa14b6e314291577cf5b44611.tar bffe-20f85c2fdba3199aa14b6e314291577cf5b44611.tar.gz | |
Create the pid file earlier
| -rw-r--r-- | bffe/server.scm | 8 |
1 files 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 |