From 7dfc17cd98852250a62040c3b02c526772fdb4bd Mon Sep 17 00:00:00 2001
From: krasimir <krasimir@chalmers.se>
Date: Sun, 25 Jan 2009 22:04:59 +0000
Subject: [PATCH] the pgf-server is single-threaded on Windows

---
 src/server/PGFService.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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 =