haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-23 16:07:52 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Log unexpected HTTP response fetching Hoogle DB

Browse Source
This commit is contained in:
Bryan Richter 2024-04-03 15:45:21 +03:00
parent b56aaf33fc
commit 9420272b55
No known key found for this signature in database
GPG Key ID: B202264020068BFB
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Stackage/Database/Cron.hs
View File

@ -137,6 +137,7 @@ newHoogleLocker env man bucketUrl = mkSingleRun hoogleLocker
return Nothing return Nothing
| otherwise -> do | otherwise -> do
body <- liftIO $ brConsume $ responseBody res body <- liftIO $ brConsume $ responseBody res
logWarn $ "Unexpected status: " <> displayShow status
mapM_ (logWarn . displayBytesUtf8) body mapM_ (logWarn . displayBytesUtf8) body
return Nothing return Nothing