unisonweb/unison
1
0
Fork 0
mirror of https://github.com/unisonweb/unison.git synced 2024-10-04 21:57:25 +03:00
Code Issues Projects Releases Wiki Activity

do only one transaction in downloadEntities

Browse Source
This commit is contained in:
Mitchell Rosen 2022-06-15 13:55:32 -04:00
parent 243f363369
commit 9ccafe2274
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
unison-cli/src/Unison/Share/Sync.hs
View File

@ -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