Revert "remove the example-based folder. The code is still in the archive"

This reverts commit 05c2cfb628.
This commit is contained in:
John J. Camilleri
2018-11-28 19:22:19 +01:00
parent 69cea20dac
commit e2401f32ca
5 changed files with 741 additions and 0 deletions

View File

@@ -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