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

configuration parser for the http backend added

Browse source
This commit is contained in:
Dennis Frieberg 2020-09-25 11:45:19 +02:00
parent 04d9f063d4
commit df0b72235f
5 changed files with 79 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
app/Main.hs
View file

@ -10,6 +10,7 @@ module Main where
import Control.Concurrent.MVar
import WaiApp
import Control.Concurrent
#ifdef HTTP_SUPPORT
import qualified Network.Wai.Handler.Warp as HTTP
@ -28,6 +29,8 @@ import qualified Network.Wai.Handler.FastCGI as FastCGI
import qualified Network.Wai.Handler.CGI as CGI
#endif
-- we should add support for multiple backends (so we should fork them and
-- then wait till all of them terminated)
main :: IO ()
main = do
serverState <- newMVar newServerState