rename elaborateHashesClient to elaborateHashes

This commit is contained in:
Mitchell Rosen 2022-06-15 14:28:18 -04:00
parent c862aa9cf8
commit e941bae755
2 changed files with 4 additions and 4 deletions

View File

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

View File

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