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