haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-13 19:35:49 +01:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

More snapshots for Hoogle

Browse Source
This commit is contained in:
Michael Snoyman 2020-02-13 18:02:43 +02:00
parent ef0247d3bb
commit 96973cac11
No known key found for this signature in database
GPG Key ID: 907EAE2F42B52046
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -696,7 +696,7 @@ uploadFromRIO key po = do
buildAndUploadHoogleDB :: RIO StackageCron () buildAndUploadHoogleDB :: RIO StackageCron ()
buildAndUploadHoogleDB = do buildAndUploadHoogleDB = do
snapshots <- lastLtsNightly 50 5 snapshots <- lastLtsNightly 80 5
let snapshots' = sortBy (\x y -> compare (snd (snd y)) (snd (snd x))) $ Map.toList snapshots let snapshots' = sortBy (\x y -> compare (snd (snd y)) (snd (snd x))) $ Map.toList snapshots
env <- ask env <- ask
locker <- newHoogleLocker (env ^. logFuncL) (env ^. envManager) locker <- newHoogleLocker (env ^. logFuncL) (env ^. envManager)