web: Wrap handler before passing to run-server.

This enables live hacking via the REPL.

* mumi/web/server.scm: Import (srfi srfi-26).
(start-mumi-web-server): Wrap handler before passing it to run-server.

diff --git a/mumi/web/server.scm b/mumi/web/server.scm
index db7662aaf0783bcfbc2b83b04c87f8558d08c429..6de6fa452b09bd4ebba76d74c5f43c070671c300 100644 (file)
--- a/mumi/web/server.scm
+++ b/mumi/web/server.scm
@@ -18,6 +18,7 @@
 
 (define-module (mumi web server)
   #:use-module (srfi srfi-1)
+  #:use-module (srfi srfi-26)
   #:use-module (web http)
   #:use-module (web request)
   #:use-module (web uri)
@@ -39,6 +40,11 @@
   (format (current-error-port)
           "Mumi web server listening on http://~a:~a/~%"
           address port)
-  (run-server handler
+  ;; Wrap handler in another function to support live hacking via the
+  ;; REPL. If handler is passed as is and is then redefined via the
+  ;; REPL, the web server will still be using the old handler. The
+  ;; only way to update the handler reference held by the web server
+  ;; would be to restart the web server.
+  (run-server (cut handler <> <>)
               #:addr (inet-pton AF_INET address)
               #:port port))