From 0624e6667aa5b6d2a2960c53498bb3d84c924eea Mon Sep 17 00:00:00 2001 From: Keagan McClelland Date: Tue, 4 Aug 2020 18:51:00 -0600 Subject: [PATCH] revert printf debugging --- src/Application.hs | 5 ----- 1 file changed, 5 deletions(-) diff --git a/src/Application.hs b/src/Application.hs index d20cfad..c345b28 100644 --- a/src/Application.hs +++ b/src/Application.hs @@ -211,17 +211,14 @@ 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 @@ -233,9 +230,7 @@ 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 --------------------------------------------------------------