diff options
| -rw-r--r-- | bffe/server.scm | 10 |
1 files 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)) |