haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-31 13:20:26 +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 , countSnapshots
, currentSchema , currentSchema
, last5Lts5Nightly , last5Lts5Nightly
, lastXLts5Nightly
, snapshotsJSON , snapshotsJSON
, getPackageCount , getPackageCount
, getLatestLtsByGhc , getLatestLtsByGhc
@ -751,8 +752,11 @@ getSnapshots mBranch l o = run $ case mBranch of
pure snapshot pure snapshot
last5Lts5Nightly :: GetStackageDatabase m => m [SnapName] last5Lts5Nightly :: GetStackageDatabase m => m [SnapName]
last5Lts5Nightly = run $ do last5Lts5Nightly = lastXLts5Nightly 5
ls <- selectList [] [Desc LtsMajor, Desc LtsMinor, LimitTo 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] ns <- selectList [] [Desc NightlyDay, LimitTo 5]
return $ map l ls ++ map n ns return $ map l ls ++ map n ns
where where

2
Stackage/Database/Cron.hs
View File

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