Port syncing code to use conduit instead

unisonweb · Dec 16, 2024 · 439360b · 439360b
1 parent 9cbc7d3
commit 439360b
Show file tree

Hide file tree

Showing 5 changed files with 90 additions and 185 deletions.
diff --git a/unison-cli/package.yaml b/unison-cli/package.yaml
@@ -33,6 +33,7 @@ library:
     - code-page
     - concurrent-output
     - containers >= 0.6.3
+    - conduit
     - cryptonite
     - either
     - errors
@@ -52,7 +53,6 @@ library:
     - lsp >= 2.2.0.0
     - lsp-types >= 2.0.2.0
     - memory
-    - mmorph
     - mtl
     - network-simple
     - network-uri

diff --git a/unison-cli/src/Unison/Cli/DownloadUtils.hs b/unison-cli/src/Unison/Cli/DownloadUtils.hs
@@ -57,7 +57,7 @@ downloadProjectBranchFromShare useSquashed branch =
         -- TODO: Fill this in.
         let knownHashes = Set.empty
         let downloadedCallback = \_ -> pure ()
-        result <- SyncV2.downloadEntities Share.hardCodedBaseUrl branchRef causalHashJwt knownHashes downloadedCallback
+        result <- SyncV2.streamDownloadEntities Share.hardCodedBaseUrl branchRef causalHashJwt knownHashes downloadedCallback
         -- numDownloaded <- liftIO getNumDownloaded
         let numDownloaded = 0
         pure (result, numDownloaded)