diff options
| author | hallgren <hallgren@chalmers.se> | 2011-09-27 18:59:54 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2011-09-27 18:59:54 +0000 |
| commit | b9b353795bec6ea9155d086e109485c960ee5397 (patch) | |
| tree | a3848f98c6140c2a5844da00aa81746234b31dcc /src/example-based/exb-fcgi.hs | |
| parent | 667b37f418f3c8bdde227c7491bc5a2a00d18947 (diff) | |
Server-side support for example-based grammar writing
Diffstat (limited to 'src/example-based/exb-fcgi.hs')
| -rw-r--r-- | src/example-based/exb-fcgi.hs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/src/example-based/exb-fcgi.hs b/src/example-based/exb-fcgi.hs new file mode 100644 index 000000000..54f1872d0 --- /dev/null +++ b/src/example-based/exb-fcgi.hs @@ -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 |