diff options
| author | krasimir <krasimir@chalmers.se> | 2009-01-25 22:04:59 +0000 |
|---|---|---|
| committer | krasimir <krasimir@chalmers.se> | 2009-01-25 22:04:59 +0000 |
| commit | 7dfc17cd98852250a62040c3b02c526772fdb4bd (patch) | |
| tree | b8aa87ee5404df58c75077668c3d9c64d5a71c44 | |
| parent | 904282fb87ea35c5db9da905b3ce20175f5907fa (diff) | |
the pgf-server is single-threaded on Windows
| -rw-r--r-- | src/server/PGFService.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs index 50765abdd..070f83b49 100644 --- a/src/server/PGFService.hs +++ b/src/server/PGFService.hs @@ -1,4 +1,4 @@ -{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveDataTypeable, CPP #-} import PGF (PGF) import qualified PGF @@ -26,7 +26,11 @@ logFile = "pgf-error.log" main :: IO () main = do stderrToFile logFile cache <- newCache PGF.readPGF +#ifndef mingw32_HOST_OS runFastCGIConcurrent' forkIO 100 (handleErrors (handleCGIErrors (cgiMain cache))) +#else + runFastCGI (handleErrors (handleCGIErrors (cgiMain cache))) +#endif cgiMain :: Cache PGF -> CGI CGIResult cgiMain cache = |