[elpa] externals/web-server 0e92425 2/8: Fix ws-start docstring

[Stefan Monnier]

branch: externals/web-server
commit 0e92425659e2af555dbff5fbbca2389fa18c5eeb
Author: Xu Chunyang <xuchunyang56@gmail.com>
Commit: Xu Chunyang <xuchunyang56@gmail.com>

    Fix ws-start docstring
    
    The handler function takes (REQUEST) instead of (PROC REQUEST).
---
 web-server.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/web-server.el b/web-server.el
index 7bc710f..ede0ae6 100644
--- a/web-server.el
+++ b/web-server.el
@@ -108,11 +108,11 @@ function MATCH and the `ws-response-header' convenience
 function.
 
   (ws-start
-   '(((lambda (_) t) .
-      (lambda (proc request)
-        (ws-response-header proc 200 '(\"Content-type\" . \"text/plain\"))
-        (process-send-string proc \"hello world\")
-        t)))
+   (list (cons (lambda (_request) t)
+               (lambda (request)
+                 (with-slots ((proc process)) request
+                   (ws-response-header proc 200 '(\"Content-Type\" . 
\"text/plain\"))
+                   (process-send-string proc \"hello world\")))))
    8080)
 
 "