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

small annotation for later

Browse source
This commit is contained in:
Dennis Frieberg 2021-03-18 16:34:29 +01:00
parent c4a1a442f3
commit d202c777d2
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
app/Config.hs
View file

@ -40,6 +40,8 @@ withConfigs f codec configFile = do
(mapM f) (mapM f)
parseResult parseResult
-- Note for later:
-- TODO this may need logging if f dies with an exception
forkBackend :: IO () -> IO (MVar ()) forkBackend :: IO () -> IO (MVar ())
forkBackend f = do forkBackend f = do
mVar <- newEmptyMVar mVar <- newEmptyMVar