diff options
| -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 |