Skip to content

Instantly share code, notes, and snippets.

@sebastiaanvisser
Created March 10, 2010 14:32
Show Gist options
  • Save sebastiaanvisser/327913 to your computer and use it in GitHub Desktop.
Save sebastiaanvisser/327913 to your computer and use it in GitHub Desktop.
module Main where
import Network.C10kServer
import System.IO
main :: IO ()
main =
runC10kServer (\h i -> hPutStrLn h $ "HTTP/1.1 200 Ok\r\nContent-Type: text/plain; charset=UTF-8\r\n\r\n" ++ show i)
C10kConfig
{ initHook = return ()
, exitHook = \s -> print ("err", s)
, parentStartedHook = putStrLn "prefork"
, startedHook = putStrLn "started"
, sleepTimer = 10
, preforkProcessNumber = 10
, threadNumberPerProcess = 100
, portName = "80"
, pidFile = "pid"
, user = "sebas"
, group = "wheel"
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment