haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-23 09:21:56 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

More efficient batch inserts

Browse Source
This commit is contained in:
Michael Snoyman 2014-11-24 10:32:00 +02:00
parent e588f9e45c
commit cdefe0bc3e
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Application.hs
View File

@ -266,11 +266,12 @@ appLoadCabalFiles updateDB env dbconf p = do
) )
UploadState uploadHistory newUploads _ newMD <- loadCabalFiles updateDB uploadHistory0 metadata0 UploadState uploadHistory newUploads _ newMD <- loadCabalFiles updateDB uploadHistory0 metadata0
$logInfo "Inserting to new uploads" $logInfo "Inserting to new uploads"
runDB' $ mapM_ insert_ newUploads runDB' $ insertMany_ newUploads
$logInfo "Updating metadatas" $logInfo "Updating metadatas"
runDB' $ forM_ newMD $ \x -> do runDB' $ do
deleteBy $ UniqueMetadata $ metadataName x let newMD' = toList newMD
insert_ x deleteWhere [MetadataName <-. map metadataName newMD']
insertMany_ newMD'
let views = let views =
[ ("pvp", viewPVP uploadHistory) [ ("pvp", viewPVP uploadHistory)
, ("no-bounds", viewNoBounds) , ("no-bounds", viewNoBounds)