summaryrefslogtreecommitdiff
path: root/src/server/pgf-fcgi.hs
diff options
context:
space:
mode:
authorhallgren <hallgren@chalmers.se>2010-11-26 14:30:51 +0000
committerhallgren <hallgren@chalmers.se>2010-11-26 14:30:51 +0000
commit72d2d9b204568b3683c29dea0ae794d3a524f2ee (patch)
treef392cb3859e2a173d17a820ae3a6294f4386a755 /src/server/pgf-fcgi.hs
parent75ad59b1217e4b81d19fed6eadf4fc80d3ebd2f1 (diff)
Split pgf-server into pgf-fcgi and pgf-http.
The dependency on the fastcgi package made pgf-server difficult to compile, so it is now split into - pgf-fgci (main module in pgf-fcgi.hs), which is built only if fastcgi is already installed or if you turn on the fastcgi flag (e.g. by doing 'cabal install -f fastcgi'). - pgf-http (main module in pgf-http.hs) which is always built (and hopefully has no problematic dependencies.) The modules FastCGIUtils and PGFService no longer depend on fastcgi.
Diffstat (limited to 'src/server/pgf-fcgi.hs')
-rw-r--r--src/server/pgf-fcgi.hs16
1 files changed, 16 insertions, 0 deletions
diff --git a/src/server/pgf-fcgi.hs b/src/server/pgf-fcgi.hs
new file mode 100644
index 000000000..547f263c3
--- /dev/null
+++ b/src/server/pgf-fcgi.hs
@@ -0,0 +1,16 @@
+{-# LANGUAGE CPP #-}
+import Control.Concurrent(forkIO)
+import Network.FastCGI(runFastCGI,runFastCGIConcurrent')
+
+import PGFService(cgiMain,newPGFCache,stderrToFile,logFile)
+
+main = do stderrToFile logFile
+ fcgiMain =<< newPGFCache
+
+
+fcgiMain cache =
+#ifndef mingw32_HOST_OS
+ runFastCGIConcurrent' forkIO 100 (cgiMain cache)
+#else
+ runFastCGI (cgiMain cache)
+#endif