mirror of
https://github.com/unisonweb/unison.git
synced 2024-10-05 06:07:21 +03:00
rename elaborateHashesClient to elaborateHashes
This commit is contained in:
parent
c862aa9cf8
commit
e941bae755
@ -145,7 +145,7 @@ module U.Codebase.Sqlite.Queries
|
||||
saveSyncEntity,
|
||||
|
||||
-- * elaborate hashes
|
||||
elaborateHashesClient,
|
||||
elaborateHashes,
|
||||
|
||||
-- * db misc
|
||||
createSchema,
|
||||
@ -1578,8 +1578,8 @@ data EmptyTempEntityMissingDependencies
|
||||
--
|
||||
-- ... then `elaborateHashes {A}` would return the singleton set {C} (because we take the set of transitive
|
||||
-- dependencies {A,B,C} and subtract the set we already have, {A,B}).
|
||||
elaborateHashesClient :: Nel.NonEmpty Hash32 -> Transaction (Nel.NonEmpty Text)
|
||||
elaborateHashesClient hashes = do
|
||||
elaborateHashes :: Nel.NonEmpty Hash32 -> Transaction (Nel.NonEmpty Text)
|
||||
elaborateHashes hashes = do
|
||||
execute_
|
||||
[here|
|
||||
CREATE TABLE new_temp_entity_dependents (hash text)
|
||||
|
@ -478,7 +478,7 @@ uploadEntities httpClient unisonShareUrl conn repoName hashes0 uploadProgressCal
|
||||
-- In the end, we return a set of hashes that correspond to entities we actually need to download.
|
||||
elaborateHashes :: NESet Hash32 -> Sqlite.Transaction (NESet Share.HashJWT)
|
||||
elaborateHashes hashes =
|
||||
Q.elaborateHashesClient (NESet.toList hashes)
|
||||
Q.elaborateHashes (NESet.toList hashes)
|
||||
<&> NESet.fromList . coerce @(List.NonEmpty Text) @(List.NonEmpty Share.HashJWT)
|
||||
|
||||
-- | Upsert a downloaded entity "somewhere" -
|
||||
|
Loading…
Reference in New Issue
Block a user