mirror of
https://github.com/unisonweb/unison.git
synced 2024-10-05 06:07:21 +03:00
do only one transaction in downloadEntities
This commit is contained in:
parent
243f363369
commit
9ccafe2274
@ -378,10 +378,11 @@ downloadEntities ::
|
||||
downloadEntities doDownload conn hashes = do
|
||||
entities <- doDownload hashes
|
||||
fmap NESet.nonEmptySet do
|
||||
NEMap.toList entities & foldMapM \(hash, entity) ->
|
||||
Sqlite.runTransaction conn (upsertEntitySomewhere hash entity) <&> \case
|
||||
Q.EntityInMainStorage -> Set.empty
|
||||
Q.EntityInTempStorage -> Set.singleton hash
|
||||
Sqlite.runTransaction conn do
|
||||
NEMap.toList entities & foldMapM \(hash, entity) ->
|
||||
upsertEntitySomewhere hash entity <&> \case
|
||||
Q.EntityInMainStorage -> Set.empty
|
||||
Q.EntityInTempStorage -> Set.singleton hash
|
||||
|
||||
------------------------------------------------------------------------------------------------------------------------
|
||||
-- Get causal hash by path
|
||||
|
Loading…
Reference in New Issue
Block a user