[elpa] externals/web-server 7b517ab 5/8: Tighter example in ws-start documentation

[Stefan Monnier]

branch: externals/web-server
commit 7b517abf236e7fe718696a4cb7566d718ea68a3f
Author: Eric Schulte <eschulte@grammatech.com>
Commit: Eric Schulte <eschulte@grammatech.com>

    Tighter example in ws-start documentation
---
 web-server.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/web-server.el b/web-server.el
index 85802eb..1474bf9 100644
--- a/web-server.el
+++ b/web-server.el
@@ -108,11 +108,11 @@ function MATCH and the `ws-response-header' convenience
 function.
 
   (ws-start
-   (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\")))))
+   `(((lambda (_) t) .
+      (lambda (request)
+        (with-slots ((proc process)) request
+          (ws-response-header proc 200 '(\"Content-Type\" . \"text/plain\"))
+          (process-send-string proc \"hello world\")))))
    8080)
 
 "