diff --git a/app/Config.hs b/app/Config.hs index fcae9e3..34148f9 100644 --- a/app/Config.hs +++ b/app/Config.hs @@ -40,6 +40,8 @@ withConfigs f codec configFile = do (mapM f) parseResult +-- Note for later: +-- TODO this may need logging if f dies with an exception forkBackend :: IO () -> IO (MVar ()) forkBackend f = do mVar <- newEmptyMVar