Splittertech/tickLeisteServer
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

added fastcgi support

Browse source
This commit is contained in:
Dennis Frieberg 2021-03-18 18:13:47 +01:00
parent 5f7fa8ce2b
commit 7662744153
2 changed files with 14 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
app/Backend/Backend.hs
View file

@ -9,7 +9,9 @@ import qualified Backend.Http as HTTP
#ifdef HTTPS_SUPPORT
import qualified Backend.Https as HTTPS
#endif
#ifdef FASTCGI_SUPPORT
import qualified Backend.FastCGI as FASTCGI
#endif
-- maybe we want a String instead of T.Text depends on
-- the argument parser
@ -35,5 +37,8 @@ backends =
#endif
#ifdef HTTPS_SUPPORT
BackendWithConfig HTTPS.forkHttpsBackend "https" "Host as as simple https server, using Warp" :
#endif
#ifdef FASTCGI_SUPPORT
BackendWithoutConfig FASTCGI.forkFastCGIBackend "fastcgi" "Deploy with fastcgi" :
#endif
[]

8
app/Backend/FastCGI.hs
View file

@ -1 +1,9 @@
module Backend.FastCGI where
import Config
import qualified Network.Wai as Wai
import qualified Network.Wai.Handler.FastCGI as Fcgi
import Control.Concurrent.MVar
forkFastCGIBackend :: Wai.Application -> IO [MVar ()]
forkFastCGIBackend = fmap (: []) . forkBackend . Fcgi.run