From cf2bdf1e572c6a9caa16912ee7ef57358c9003c2 Mon Sep 17 00:00:00 2001 From: Keagan McClelland Date: Tue, 4 Aug 2020 18:45:57 -0600 Subject: [PATCH] printf debugging --- src/Application.hs | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/Application.hs b/src/Application.hs index c345b28..d20cfad 100644 --- a/src/Application.hs +++ b/src/Application.hs @@ -211,14 +211,17 @@ startWeb foundation = do setWebProcessThreadId (asyncThreadId action) foundation void $ waitCatch action + putStrLn @Text "WebServer Killed" shouldRestart <- takeMVar (appShouldRestartWeb foundation) when shouldRestart $ do + putStrLn @Text "Resetting Restart" putMVar (appShouldRestartWeb foundation) False putStrLn @Text "Restarting Web Server" startWeb' app restartWeb :: RegistryCtx -> IO () restartWeb foundation = do + putStrLn @Text "Should restart" void $ swapMVar (appShouldRestartWeb foundation) True shutdownWeb foundation @@ -230,7 +233,9 @@ shutdownAll threadIds = do -- Careful, you should always spawn this within forkIO so as to avoid accidentally killing the running process shutdownWeb :: RegistryCtx -> IO () shutdownWeb RegistryCtx{..} = do + putStrLn @Text "Taking MVar" threadId <- takeMVar appWebServerThreadId + putStrLn @Text "Killing Thread" killThread threadId --------------------------------------------------------------