diff --git a/unison-cli/src/Unison/Share/SyncV2.hs b/unison-cli/src/Unison/Share/SyncV2.hs index 7ec0181ae4..d3b215c4a2 100644 --- a/unison-cli/src/Unison/Share/SyncV2.hs +++ b/unison-cli/src/Unison/Share/SyncV2.hs @@ -569,6 +569,7 @@ negotiateKnownCausals :: Cli (Either (SyncError SyncV2.PullError) (Set Hash32)) negotiateKnownCausals unisonShareUrl branchRef hashJwt = do Cli.Env {authHTTPClient, codebase} <- ask + liftIO $ Text.hPutStrLn IO.stderr $ " 🔎 Identifying missing entities..." Timing.time "Causal Negotiation" $ do liftIO . C.runResourceT . runExceptT $ httpStreamCausalDependencies authHTTPClient