From dfe0122edfd19b853df6dae06134f16b1b91bbdc Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 25 Sep 2019 12:02:18 +0300
Subject: [PATCH] Cron job: more Hoogle debug info

---
 src/Stackage/Database/Cron.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/Stackage/Database/Cron.hs b/src/Stackage/Database/Cron.hs
index 7ea30ab..014250c 100644
--- a/src/Stackage/Database/Cron.hs
+++ b/src/Stackage/Database/Cron.hs
@@ -675,11 +675,12 @@ buildAndUploadHoogleDB = do
     env <- ask
     locker <- newHoogleLocker (env ^. logFuncL) (env ^. envManager)
     void $ flip Map.traverseWithKey snapshots $ \snapshotId snapName -> do
-        logDebug $ "Starting Hoogle DB download: " <> display (hoogleKey snapName)
+        logInfo $ "Starting Hoogle DB download: " <> display (hoogleKey snapName)
         mfp <- singleRun locker snapName
         case mfp of
-            Just _ -> logDebug $ "Hoogle database exists for: " <> display snapName
+            Just _ -> logInfo $ "Hoogle database exists for: " <> display snapName
             Nothing -> do
+                logInfo $ "Hoogle database does not exist for: " <> display snapName
                 mfp' <- createHoogleDB snapshotId snapName
                 forM_ mfp' $ \fp -> do
                     let key = hoogleKey snapName