c10k 0.4.0 → 0.4.1

raw patch · 2 files changed

+8/−8 lines, 2 filesdep −hdaemonizePVP ok

version bump matches the API change (PVP)

Dependencies removed: hdaemonize

API changes (from Hackage documentation)

Files

• Network/C10kServer.hs +6/−6
• c10k.cabal +2/−2

@@ -29,7 +29,7 @@ import Control.Concurrent import Control.Exception import Control.Monad-import IO hiding (catch, try)+import System.IO import Network.BSD import Network.Socket import Prelude hiding (catch)@@ -128,7 +128,7 @@ stay :: (Socket -> Dispatch) -> C10kConfig -> IO () stay sDispatch cnf = do     parentStartedHook cnf `catch` ignore-    s <- listenOn addr port+    s <- listenTo addr port     writePidFile cnf     setGroupUser cnf     runServer (sDispatch s) cnf@@ -153,7 +153,7 @@     pause = awaitSignal Nothing >> yield     initHandler func sig = installHandler sig func Nothing     ignoreSigChild = initHandler Ignore sigCHLD-    terminator cids sig = initHandler (Catch (terminateChildren cids)) sig+    terminator cids = initHandler (Catch (terminateChildren cids))     terminateChildren cids = do         ignoreSigChild         mapM_ terminateChild cids@@ -163,7 +163,7 @@  doPrefork :: (Socket -> Dispatch) -> C10kConfig -> IO [ProcessID] doPrefork sDispatch cnf = do-    s <- listenOn addr port+    s <- listenTo addr port     writePidFile cnf     setGroupUser cnf     cids <- fork (sDispatch s)@@ -238,8 +238,8 @@  ---------------------------------------------------------------- -listenOn :: Maybe HostName -> ServiceName -> IO Socket-listenOn maddr serv = do+listenTo :: Maybe HostName -> ServiceName -> IO Socket+listenTo maddr serv = do     proto <- getProtocolNumber "tcp"     let hints = defaultHints {             addrFlags = [ AI_ADDRCONFIG, AI_NUMERICHOST

@@ -1,5 +1,5 @@ Name:                   c10k-Version:                0.4.0+Version:                0.4.1 Author:                 Kazu Yamamoto <kazu@iij.ad.jp> Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp> License:                BSD3@@ -25,7 +25,7 @@     GHC-Options:        -Wall -O2   Exposed-Modules:      Network.C10kServer                         Network.TCPInfo-  Build-Depends:        base >= 4 && < 5, haskell98, network, unix, hdaemonize+  Build-Depends:        base >= 4 && < 5, haskell98, network, unix Source-Repository head   Type:                 git   Location:             git://github.com/kazu-yamamoto/c10k.git