From 459c2dd15873a2866f883b2c221c14e42d98d54f Mon Sep 17 00:00:00 2001
From: Manuel <git@huesers.de>
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