haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-17 14:48:30 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Newest Hoogle first

Browse Source
This commit is contained in:
Michael Snoyman 2020-02-13 10:30:23 +02:00
parent 227d8a9bc9
commit ef0247d3bb
No known key found for this signature in database
GPG Key ID: 907EAE2F42B52046
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -697,9 +697,10 @@ uploadFromRIO key po = do
buildAndUploadHoogleDB :: RIO StackageCron () buildAndUploadHoogleDB :: RIO StackageCron ()
buildAndUploadHoogleDB = do buildAndUploadHoogleDB = do
snapshots <- lastLtsNightly 50 5 snapshots <- lastLtsNightly 50 5
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)
void $ flip Map.traverseWithKey snapshots $ \snapshotId snapName -> do for_ snapshots' $ \(snapshotId, (snapName, _created)) -> do
logInfo $ "Starting Hoogle DB download: " <> display (hoogleKey snapName) logInfo $ "Starting Hoogle DB download: " <> display (hoogleKey snapName)
mfp <- singleRun locker snapName mfp <- singleRun locker snapName
case mfp of case mfp of

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

@ -169,12 +169,12 @@ lastXLts5Nightly ltsCount = run $ do
l (Entity _ x) = SNLts (ltsMajor x) (ltsMinor x) l (Entity _ x) = SNLts (ltsMajor x) (ltsMinor x)
n (Entity _ x) = SNNightly (nightlyDay x) n (Entity _ x) = SNNightly (nightlyDay x)
lastLtsNightly :: GetStackageDatabase env m => Int -> Int -> m (Map SnapshotId SnapName) lastLtsNightly :: GetStackageDatabase env m => Int -> Int -> m (Map SnapshotId (SnapName, Day))
lastLtsNightly ltsCount nightlyCount = lastLtsNightly ltsCount nightlyCount =
run $ do run $ do
ls <- P.selectList [] [P.Desc LtsMajor, P.Desc LtsMinor, P.LimitTo ltsCount] ls <- P.selectList [] [P.Desc LtsMajor, P.Desc LtsMinor, P.LimitTo ltsCount]
ns <- P.selectList [] [P.Desc NightlyDay, P.LimitTo nightlyCount] ns <- P.selectList [] [P.Desc NightlyDay, P.LimitTo nightlyCount]
Map.map snapshotName <$> Map.map (snapshotName &&& snapshotCreated) <$>
P.getMany (map (ltsSnap . P.entityVal) ls <> map (nightlySnap . P.entityVal) ns) P.getMany (map (ltsSnap . P.entityVal) ls <> map (nightlySnap . P.entityVal) ns)