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