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

added CGI backend (hopefully)

Browse source
This commit is contained in:
Dennis Frieberg 2021-03-30 14:23:58 +02:00
parent 7662744153
commit 2611bdd254
2 changed files with 15 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
app/Backend/CGI.hs
View file

@ -1,4 +1,12 @@
module Backend.CGI where
module Backend.CGI(forkCGIBackend) where
import Config
import qualified Network.Wai as Wai
import qualified Network.Wai.Handler.CGI as CGI
import Control.Concurrent.MVar
forkCGIBackend :: Wai.Application -> IO [MVar ()]
forkCGIBackend = fmap (: []) . forkBackend . CGI.run