From e2401f32ca20f8ec9bea23df909139878ad3f8bf Mon Sep 17 00:00:00 2001
From: "John J. Camilleri" <john@johnjcamilleri.com>
Date: Wed, 28 Nov 2018 19:22:19 +0100
Subject: Revert "remove the example-based folder. The code is still in the
 archive"

This reverts commit 05c2cfb628147f7d6fa0a6c2f38eb9d67b2eb007.
---
 src/example-based/exb-fcgi.hs | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 src/example-based/exb-fcgi.hs

(limited to 'src/example-based/exb-fcgi.hs')

diff --git a/src/example-based/exb-fcgi.hs b/src/example-based/exb-fcgi.hs
new file mode 100644
index 000000000..54f1872d0
--- /dev/null
+++ b/src/example-based/exb-fcgi.hs
@@ -0,0 +1,15 @@
+{-# LANGUAGE CPP #-}
+import Control.Concurrent(forkIO)
+import Network.FastCGI(runFastCGI,runFastCGIConcurrent')
+import ExampleService(cgiMain,newPGFCache)
+
+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