1
0
forked from GitHub/gf-core

Server-side support for example-based grammar writing

This commit is contained in:
hallgren
2011-09-27 18:59:54 +00:00
parent 681b2c5501
commit ee0a6e6aad
4 changed files with 688 additions and 0 deletions

View File

@@ -0,0 +1,15 @@
{-# 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