msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

the pgf-server is single-threaded on Windows

Browse Source
This commit is contained in:
krasimir
2009-01-25 22:04:59 +00:00
parent 904282fb87
commit 7dfc17cd98
1 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/server/PGFService.hs
View File

@@ -1,4 +1,4 @@
{-# LANGUAGE DeriveDataTypeable #-} {-# LANGUAGE DeriveDataTypeable, CPP #-}
import PGF (PGF) import PGF (PGF)
import qualified PGF import qualified PGF
@@ -26,7 +26,11 @@ logFile = "pgf-error.log"
main :: IO () main :: IO ()
main = do stderrToFile logFile main = do stderrToFile logFile
cache <- newCache PGF.readPGF cache <- newCache PGF.readPGF
#ifndef mingw32_HOST_OS
runFastCGIConcurrent' forkIO 100 (handleErrors (handleCGIErrors (cgiMain cache))) runFastCGIConcurrent' forkIO 100 (handleErrors (handleCGIErrors (cgiMain cache)))
#else
runFastCGI (handleErrors (handleCGIErrors (cgiMain cache)))
#endif
cgiMain :: Cache PGF -> CGI CGIResult cgiMain :: Cache PGF -> CGI CGIResult
cgiMain cache = cgiMain cache =