diff options
| author | David Thompson <dthompson2@worcester.edu> | 2024-04-08 17:31:06 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2024-04-08 17:31:06 -0400 |
| commit | 20b4e7c566cd268f8fafd3e2d3846513e31949e7 (patch) | |
| tree | 86544a3708de5882a9877ca095e76db02a1d2625 /web-server.scm | |
| parent | 7d23369b60e43193a34d61adfe23930506069a13 (diff) | |
Update to latest hoot.
Diffstat (limited to 'web-server.scm')
| -rw-r--r-- | web-server.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/web-server.scm b/web-server.scm index 86a6902..e21eb42 100644 --- a/web-server.scm +++ b/web-server.scm @@ -153,5 +153,6 @@ FILE-NAME." "Run a simple HTTP server that serves files in WORK-DIR." (run-server (make-handler work-dir) 'http open-params)) -(when (batch-mode?) - (serve (getcwd) #:open-params `(#:port 8088 #:addr ,INADDR_ANY))) +(let ((port 8088)) + (format #t "Serving on http://localhost:~a\n" port) + (serve (getcwd) #:open-params `(#:port ,port #:addr ,INADDR_ANY))) |