From e9e919e6e3bd92ef6c30181817dd9c6e571011de Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Tue, 17 Dec 2013 15:55:14 +0000
Subject: src/server/gf-server.cabal: compile it as a common library +
 executables

---
 src/server/exec/pgf-fcgi.hs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 src/server/exec/pgf-fcgi.hs

(limited to 'src/server/exec/pgf-fcgi.hs')

diff --git a/src/server/exec/pgf-fcgi.hs b/src/server/exec/pgf-fcgi.hs
new file mode 100644
index 000000000..3b5b0b3cf
--- /dev/null
+++ b/src/server/exec/pgf-fcgi.hs
@@ -0,0 +1,16 @@
+{-# LANGUAGE CPP #-}
+import Control.Concurrent(forkIO)
+import Network.FastCGI(runFastCGI,runFastCGIConcurrent')
+
+import PGFService(cgiMain,newPGFCache,stderrToFile,logFile)
+import System.IO
+main = do stderrToFile logFile
+          fcgiMain =<< newPGFCache
+
+
+fcgiMain cache =
+#ifndef mingw32_HOST_OS
+          runFastCGIConcurrent' forkIO 100 (cgiMain cache)
+#else
+          runFastCGI (cgiMain cache)
+#endif
-- 
cgit v1.2.3