scalable-server 0.2.1 → 0.2.2

raw patch · 2 files changed

+6/−4 lines, 2 files

Files

• scalable-server.cabal +1/−1
• src/Network/Server/ScalableServer.hs +5/−3

@@ -3,7 +3,7 @@ Synopsis:            Library for writing fast/scalable TCP-based services Description:         Library for writing fast/scalable TCP-based services -Version:             0.2.1+Version:             0.2.2  License:             BSD3 

@@ -78,9 +78,11 @@ serverListenLoop :: RequestPipeline a -> Socket -> IO () serverListenLoop pipe s = do     listen s 100-    forever $ do-        (c, _) <- accept s-        forkIO $ connHandler pipe c+    finally (+        forever $ do+            (c, _) <- accept s+            forkIO $ connHandler pipe c+        ) $ sClose s  connHandler :: RequestPipeline a -> Socket -> IO () connHandler (RequestPipeline reqParse reqProc size) s = do