From 9420272b55a09d92de02320782e866a93d9d47fc Mon Sep 17 00:00:00 2001
From: Bryan Richter <bryan@haskell.foundation>
Date: Wed, 3 Apr 2024 15:45:21 +0300
Subject: [PATCH] Log unexpected HTTP response fetching Hoogle DB

---
 src/Stackage/Database/Cron.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/Stackage/Database/Cron.hs b/src/Stackage/Database/Cron.hs
index 866ccd0..4e231ad 100644
--- a/src/Stackage/Database/Cron.hs
+++ b/src/Stackage/Database/Cron.hs
@@ -137,6 +137,7 @@ newHoogleLocker env man bucketUrl = mkSingleRun hoogleLocker
                                     return Nothing
                                 | otherwise -> do
                                     body <- liftIO $ brConsume $ responseBody res
+                                    logWarn $ "Unexpected status: " <> displayShow status
                                     mapM_ (logWarn . displayBytesUtf8) body
                                     return Nothing