diff --git a/knots/web-server.scm b/knots/web-server.scm index bd0d9f9..c5ec246 100644 --- a/knots/web-server.scm +++ b/knots/web-server.scm @@ -353,7 +353,7 @@ on the procedure being called at any particular time." (write-response-exception-handler default-write-response-exception-handler) (connection-idle-timeout 60)) - "Run the fibers web server. + "Run the knots web server. HANDLER should be a procedure that takes one argument, the HTTP request and returns two values, the response and response body. @@ -365,7 +365,7 @@ For example, here is a simple \"Hello, World!\" server: (let ((body (read-request-body request))) (values '((content-type . (text/plain))) \"Hello, World!\"))) - (run-server handler) + (run-knots-web-server handler) @end example The response and body will be run through ‘sanitize-response’