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

wrapped everything in the EnvM Monad, the logging might commence

Browse source
This commit is contained in:
Dennis Frieberg 2021-04-05 22:11:07 +02:00
parent 27a51c2121
commit ac303abcc0
7 changed files with 78 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

5
app/Backend/Backend.hs
View file

@ -3,6 +3,7 @@ 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
@ -25,8 +26,8 @@ import qualified Backend.Https as HTTPS
-- type Backend = (Wai.Application -> FilePath -> IO [MVar ()],T.Text,Bool)
data Backend =
BackendWithConfig (Wai.Application -> FilePath -> IO [MVar ()]) String String
| BackendWithoutConfig (Wai.Application -> IO [MVar ()]) String String
BackendWithConfig (Wai.Application -> FilePath -> EnvM [MVar ()]) String String
| BackendWithoutConfig (Wai.Application -> EnvM [MVar ()]) String String
backends :: [Backend]
backends =