mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
16 lines
376 B
Haskell
16 lines
376 B
Haskell
{-# LANGUAGE CPP #-}
|
|
import Control.Concurrent(forkIO)
|
|
import Network.FastCGI(runFastCGI,runFastCGIConcurrent')
|
|
import ExampleService(cgiMain,newPGFCache)
|
|
|
|
main = do --stderrToFile logFile
|
|
fcgiMain =<< newPGFCache
|
|
|
|
|
|
fcgiMain cache =
|
|
#ifndef mingw32_HOST_OS
|
|
runFastCGIConcurrent' forkIO 100 (cgiMain cache)
|
|
#else
|
|
runFastCGI (cgiMain cache)
|
|
#endif
|