haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-12 04:08:29 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Build many more Hoogle databases

Browse Source
This commit is contained in:
Michael Snoyman 2016-11-26 17:40:09 +02:00
parent ce3fffcb6e
commit c3f65f5a6e
2 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Stackage/Database.hs
View File

@ -37,6 +37,7 @@ module Stackage.Database
, countSnapshots
, currentSchema
, last5Lts5Nightly
, lastXLts5Nightly
, snapshotsJSON
, getPackageCount
, getLatestLtsByGhc
@ -751,8 +752,11 @@ getSnapshots mBranch l o = run $ case mBranch of
pure snapshot
last5Lts5Nightly :: GetStackageDatabase m => m [SnapName]
last5Lts5Nightly = run $ do
ls <- selectList [] [Desc LtsMajor, Desc LtsMinor, LimitTo 5]
last5Lts5Nightly = lastXLts5Nightly 5
lastXLts5Nightly :: GetStackageDatabase m => Int -> m [SnapName]
lastXLts5Nightly ltsCount = run $ do
ls <- selectList [] [Desc LtsMajor, Desc LtsMinor, LimitTo ltsCount]
ns <- selectList [] [Desc NightlyDay, LimitTo 5]
return $ map l ls ++ map n ns
where

2
Stackage/Database/Cron.hs
View File

@ -194,7 +194,7 @@ stackageServerCron = do
Left e -> error $ show (key, e)
Right _ -> putStrLn "Success"
names <- runReaderT last5Lts5Nightly db
names <- runReaderT (lastXLts5Nightly 50) db
let manager = view envManager env
locker <- newHoogleLocker False manager