gf-3.10: src/server/exec/pgf-fcgi.hs

{-# LANGUAGE CPP #-}
import Control.Concurrent(forkIO)
import Network.FastCGI(runFastCGI,runFastCGIConcurrent')

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