forked from GitHub/gf-core
17 lines
408 B
Haskell
17 lines
408 B
Haskell
{-# LANGUAGE CPP #-}
|
|
import Control.Concurrent(forkIO)
|
|
import Network.FastCGI(runFastCGI,runFastCGIConcurrent')
|
|
|
|
import PGFService(cgiMain,newPGFCache,stderrToFile,logFile)
|
|
import System.IO
|
|
main = do stderrToFile logFile
|
|
fcgiMain =<< newPGFCache
|
|
|
|
|
|
fcgiMain cache =
|
|
#ifndef mingw32_HOST_OS
|
|
runFastCGIConcurrent' forkIO 100 (cgiMain cache)
|
|
#else
|
|
runFastCGI (cgiMain cache)
|
|
#endif
|