diff options
| author | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2022-12-05 15:26:44 -0500 |
|---|---|---|
| committer | Jakob L. Kreuze <zerodaysfordays@sdf.org> | 2022-12-05 21:24:21 -0500 |
| commit | 678ef1c3b1a3b194c4ddd9451101a77da5cd5757 (patch) | |
| tree | 8e236e1e3fd2e789e85b58bc61ee1def5cfdf55c /haunt | |
| parent | d3f95102ab43c7f4791dbf1ce694da773a03c254 (diff) | |
Write to stout when process is started
Diffstat (limited to 'haunt')
| -rw-r--r-- | haunt/api.scm | 1 | ||||
| -rw-r--r-- | haunt/jakob/dynamic/logging.scm | 2 |
2 files changed, 2 insertions, 1 deletions
diff --git a/haunt/api.scm b/haunt/api.scm index 1ddfb3c..49db893 100644 --- a/haunt/api.scm +++ b/haunt/api.scm @@ -102,4 +102,5 @@ (not-found request))) (values (wrap-response response) resp-body))) +(format #t "Server started.~%") (run-server main-request-handler 'http `(#:addr ,INADDR_ANY #:port 8080)) diff --git a/haunt/jakob/dynamic/logging.scm b/haunt/jakob/dynamic/logging.scm index 24b8527..17f1ecd 100644 --- a/haunt/jakob/dynamic/logging.scm +++ b/haunt/jakob/dynamic/logging.scm @@ -33,5 +33,5 @@ (when (dominates level (%log-level)) (let ((output-port (open-file (%log-file-name) "a")) (now (date->string (current-date) "~4"))) - (format port "[~a] ~a: ~a~%" now level message) + (format output-port "[~a] ~a: ~a~%" now level message) (close output-port)))) |