From df5011ec43e1869d82eb80566088badbff97ffd4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 7 May 2024 15:34:55 -0400 Subject: [PATCH] git-remote-annex: fix hang on fetch Sponsored-by: k0ld on Patreon --- CmdLine/GitRemoteAnnex.hs | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/CmdLine/GitRemoteAnnex.hs b/CmdLine/GitRemoteAnnex.hs index 361feaabf3..000c5b5238 100644 --- a/CmdLine/GitRemoteAnnex.hs +++ b/CmdLine/GitRemoteAnnex.hs @@ -147,6 +147,10 @@ fetch' st rmt = do manifest <- maybe (downloadManifest rmt) pure (manifestCache st) forM_ (inManifest manifest) $ \k -> downloadGitBundle rmt k >>= inRepo . Git.Bundle.unbundle + -- Newline indicates end of fetch. + liftIO $ do + putStrLn "" + hFlush stdout push :: State -> Remote -> [String] -> Annex [String] push st rmt ls = do