From 20b4e7c566cd268f8fafd3e2d3846513e31949e7 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 8 Apr 2024 17:31:06 -0400
Subject: Update to latest hoot.

---
 web-server.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'web-server.scm')

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)))
-- 
cgit v1.2.3