haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-27 03:11:57 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Upgrade some hoogle messages to warnings

Browse Source
This commit is contained in:
Bryan Richter 2024-02-12 15:12:57 +02:00
parent 143b9b01c5
commit c1c7d14e15
No known key found for this signature in database
GPG Key ID: B202264020068BFB
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -125,11 +125,11 @@ newHoogleLocker env man bucketUrl = mkSingleRun hoogleLocker
sinkHandle h sinkHandle h
return $ Just fp return $ Just fp
| status == status404 -> do | status == status404 -> do
logDebug $ "NotFound: " <> display (hoogleUrl name bucketUrl) logWarn $ "NotFound: " <> display (hoogleUrl name bucketUrl)
return Nothing return Nothing
| otherwise -> do | otherwise -> do
body <- liftIO $ brConsume $ responseBody res body <- liftIO $ brConsume $ responseBody res
mapM_ (logDebug . displayBytesUtf8) body mapM_ (logWarn . displayBytesUtf8) body
return Nothing return Nothing
getHackageDeprecations :: getHackageDeprecations ::