[elpa] 87/119: update server stopping w/requests process field

[Eric Schulte]

eschulte pushed a commit to branch master
in repository elpa.

commit 6b958435095049ba2755e4d5d8a93cd45f9b8621
Author: Eric Schulte <address@hidden>
Date:   Thu Jan 9 22:16:12 2014 -0700

    update server stopping w/requests process field
    
      ws-stop-server was still assuming the old list representation
---
 NOTES         |    8 ++++----
 web-server.el |    2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/NOTES b/NOTES
index be84aaf..a81e92c 100644
--- a/NOTES
+++ b/NOTES
@@ -1,7 +1,7 @@
                                                            -*- org -*-
 
 * Notes
-* Tasks [15/25]
+* Tasks [15/24]
 ** DONE web sockets
 - http://en.wikipedia.org/wiki/WebSocket
 - http://tools.ietf.org/html/rfc6455
@@ -161,13 +161,13 @@ provide a light-weight mechanism for a function to wait 
for incoming
 process text without something gross like the =(sit-for 0.1)= used in
 the test suite.
 
-** TODO use gnutls for https
+** use gnutls for https
 low priority -- just [[*running%20behind%20an%20https%20proxy][run behind an 
https proxy]].
 
 This will be a pain, and will require expanding [[info:emacs-gnutls]] to
 add support for starting server processes, currently only client
 processes are supported.
-* Bugs [0/1]
-** TODO Sometimes servers don't stop cleanly
+* Bugs [1/1]
+** DONE Sometimes servers don't stop cleanly
 - specifically servers with active client process
 - maybe also implement a =ws-stop-all= function
diff --git a/web-server.el b/web-server.el
index dfa924e..1072371 100644
--- a/web-server.el
+++ b/web-server.el
@@ -126,7 +126,7 @@ function.
 (defun ws-stop (server)
   "Stop SERVER."
   (setq ws-servers (remove server ws-servers))
-  (mapc #'delete-process (append (mapcar #'car (requests server))
+  (mapc #'delete-process (append (mapcar #'process (requests server))
                                  (list (process server)))))
 
 (defvar ws-http-common-methods '(GET HEAD POST PUT DELETE TRACE)