More efficient batch inserts

2026-01-12 04:08:29 +01:00 · 2014-11-24 10:32:00 +02:00 · 2014-11-24 10:32:00 +02:00 · cdefe0bc3e
commit cdefe0bc3e
parent e588f9e45c
1 changed files with 5 additions and 4 deletions
--- a/Application.hs
+++ b/Application.hs
@ -266,11 +266,12 @@ appLoadCabalFiles updateDB env dbconf p = do
            )
        UploadState uploadHistory newUploads _ newMD <- loadCabalFiles updateDB uploadHistory0 metadata0
        $logInfo "Inserting to new uploads"
-        runDB' $ mapM_ insert_ newUploads
+        runDB' $ insertMany_ newUploads
        $logInfo "Updating metadatas"
-        runDB' $ forM_ newMD $ \x -> do
-            deleteBy $ UniqueMetadata $ metadataName x
-            insert_ x
+        runDB' $ do
+            let newMD' = toList newMD
+            deleteWhere [MetadataName <-. map metadataName newMD']
+            insertMany_ newMD'
        let views =
                [ ("pvp", viewPVP uploadHistory)
                , ("no-bounds", viewNoBounds)