haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-27 03:11:57 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

A little more verbose on updating

Browse Source
This commit is contained in:
Michael Snoyman 2014-11-24 12:13:22 +02:00
parent 3a8bdb2ade
commit 0a058b7935
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Application.hs
View File

@ -272,7 +272,7 @@ appLoadCabalFiles updateDB forceUpdate env dbconf p = do
UploadState uploadHistory newUploads _ newMD <- loadCabalFiles updateDB forceUpdate uploadHistory0 metadata0 UploadState uploadHistory newUploads _ newMD <- loadCabalFiles updateDB forceUpdate uploadHistory0 metadata0
$logInfo "Inserting to new uploads" $logInfo "Inserting to new uploads"
runDB' $ insertMany_ newUploads runDB' $ insertMany_ newUploads
$logInfo "Updating metadatas" $logInfo $ "Updating metadatas: " ++ tshow (length newMD)
runDB' $ do runDB' $ do
let newMD' = toList newMD let newMD' = toList newMD
deleteWhere [MetadataName <-. map metadataName newMD'] deleteWhere [MetadataName <-. map metadataName newMD']