38 lines
1.3 KiB
Haskell
38 lines
1.3 KiB
Haskell
{-# LANGUAGE CPP #-}
|
|
module Backend.Backend where
|
|
|
|
import Control.Concurrent.MVar
|
|
import qualified Network.Wai as Wai
|
|
import Environment
|
|
|
|
#ifdef HTTP_SUPPORT
|
|
import qualified Backend.Http as HTTP
|
|
#endif
|
|
#ifdef HTTPS_SUPPORT
|
|
import qualified Backend.Https as HTTPS
|
|
#endif
|
|
-- maybe we want a String instead of T.Text depends on
|
|
-- the argument parser
|
|
|
|
-- A backend consists of three things, The backend action, a Text to be
|
|
-- used as the command line option Flag, and a Bool if it has a config file.
|
|
--
|
|
-- The backend action must be non blocking and fork the backend, the returned
|
|
-- list of MVar is there to communicate the termination of the backend. (The main
|
|
-- threat will wait till all MVar are present (not neccesarry at once)).
|
|
-- The action takes two parameter, the application the backend should run and
|
|
-- the path of the config File.
|
|
|
|
data Backend =
|
|
BackendWithConfig (Wai.Application -> FilePath -> EnvM [MVar ()]) String String
|
|
| BackendWithoutConfig (Wai.Application -> EnvM [MVar ()]) String String
|
|
|
|
backends :: [Backend]
|
|
backends =
|
|
#ifdef HTTP_SUPPORT
|
|
BackendWithConfig HTTP.forkHttpBackend "http" "Host as a simple http server, using Warp" :
|
|
#endif
|
|
#ifdef HTTPS_SUPPORT
|
|
BackendWithConfig HTTPS.forkHttpsBackend "https" "Host as as simple https server, using Warp" :
|
|
#endif
|
|
[]
|