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

smaller changes not changing semantics

Browse source
This commit is contained in:
Dennis Frieberg 2022-01-02 23:58:22 +01:00
parent 70ee16d202
commit 1816bd9bb5
2 changed files with 8 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

4
app/Backend/Backend.hs
View file

@ -21,9 +21,7 @@ import qualified Backend.Https as HTTPS
-- 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. If the Bool is False there are no guarantees on the FilePath
-- and the action should not try to evaluate the FilePath.
-- type Backend = (Wai.Application -> FilePath -> IO [MVar ()],T.Text,Bool)
-- the path of the config File.
data Backend =
BackendWithConfig (Wai.Application -> FilePath -> EnvM [MVar ()]) String String