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