From 15dcb9a6a66162d25392eac78d0b3418358d8a12 Mon Sep 17 00:00:00 2001
From: Dominik Picheta <dominikpicheta@googlemail.com>
Date: Sun, 23 Sep 2012 16:04:17 +0100
Subject: [PATCH] Added close() to async versions of scgi and httpserver.

---
 lib/pure/httpserver.nim | 8 ++++++--
 lib/pure/scgi.nim       | 4 ++++
 2 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/lib/pure/httpserver.nim b/lib/pure/httpserver.nim
index b8ef6e113..9d9ea2012 100755
--- a/lib/pure/httpserver.nim
+++ b/lib/pure/httpserver.nim
@@ -499,9 +499,13 @@ proc asyncHTTPServer*(handleRequest: proc (server: PAsyncHTTPServer, client: TSo
   result = capturedRet
 
 proc register*(d: PDispatcher, s: PAsyncHTTPServer) =
-  ## Registers a PAsyncHTTPServer with a PDispatcher.
+  ## Registers a ``PAsyncHTTPServer`` with a ``PDispatcher``.
   d.register(s.asyncSocket)
-  
+
+proc close*(h: PAsyncHTTPServer) =
+  ## Closes the ``PAsyncHTTPServer``.
+  h.asyncSocket.close()
+
 when isMainModule:
   var counter = 0
 
diff --git a/lib/pure/scgi.nim b/lib/pure/scgi.nim
index 04dc3b015..3ee6198d6 100755
--- a/lib/pure/scgi.nim
+++ b/lib/pure/scgi.nim
@@ -183,6 +183,10 @@ proc register*(d: PDispatcher, s: PAsyncScgiState): PDelegate {.discardable.} =
   ## Registers ``s`` with dispatcher ``d``.
   result = d.register(s.asyncServer)
 
+proc close*(s: PAsyncScgiState) =
+  ## Closes the ``PAsyncScgiState``.
+  s.asyncServer.close()
+
 when false:
   var counter = 0
   proc handleRequest(client: TSocket, input: string,