gistfile1.hs

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"
    }