From 459c2dd15873a2866f883b2c221c14e42d98d54f Mon Sep 17 00:00:00 2001 From: Manuel Date: Sat, 5 Jun 2021 23:34:12 +0200 Subject: [PATCH] Reduce logging further --- src/Myriad/Docker.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Myriad/Docker.hs b/src/Myriad/Docker.hs index e60e5ce..8e85b4b 100644 --- a/src/Myriad/Docker.hs +++ b/src/Myriad/Docker.hs @@ -83,9 +83,9 @@ startCleanup = do timer t = forever $ do -- Takes time in microseconds threadDelay $ t * 60000000 - logInfo ["Starting cleanup of containers"] + logDebug ["Starting cleanup of containers"] n <- killContainers - logInfo ["Cleaned up ", cs $ show n, " containers, next in ", cs $ show t, " minutes"] + logDebug ["Cleaned up ", cs $ show n, " containers, next in ", cs $ show t, " minutes"] timer t setupContainer :: Language -> Myriad ContainerName @@ -152,9 +152,9 @@ killContainer lang = do killContainers :: Myriad [ContainerName] killContainers = do containers <- gview #containers >>= readMVar - logInfo ["Starting killing of containers"] + logDebug ["Starting killing of containers"] xs <- forConcurrently (M.toList containers) $ \(k, v) -> (v,) <$> killContainer k - logInfo ["Finished killing of containers"] + logDebug ["Finished killing of containers"] pure . map fst $ filter snd xs evalCode :: Language -> Int -> String -> Myriad EvalResult