From e941bae75518a735fb725fddcaf68b290226be18 Mon Sep 17 00:00:00 2001
From: Mitchell Rosen <mitchellwrosen@gmail.com>
Date: Wed, 15 Jun 2022 14:28:18 -0400
Subject: [PATCH] rename elaborateHashesClient to elaborateHashes

---
 codebase2/codebase-sqlite/U/Codebase/Sqlite/Queries.hs | 6 +++---
 unison-cli/src/Unison/Share/Sync.hs                    | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/codebase2/codebase-sqlite/U/Codebase/Sqlite/Queries.hs b/codebase2/codebase-sqlite/U/Codebase/Sqlite/Queries.hs
index 896b494fd..fca934ec0 100644
--- a/codebase2/codebase-sqlite/U/Codebase/Sqlite/Queries.hs
+++ b/codebase2/codebase-sqlite/U/Codebase/Sqlite/Queries.hs
@@ -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)
diff --git a/unison-cli/src/Unison/Share/Sync.hs b/unison-cli/src/Unison/Share/Sync.hs
index 72e05affb..e30a46545 100644
--- a/unison-cli/src/Unison/Share/Sync.hs
+++ b/unison-cli/src/Unison/Share/Sync.hs
@@ -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" -